[Информация] Исходники автореги + реги мейлов [Delpi]

[Lenivets]

Ну так как 2дня моих трудов пошли коту под хвост изза Дурова.
И реги по инвайту.
Выкладываю свои наработки..
Рега в ВК работала , рега мейла ток додела.. и увидел что рега в ВК уже по инвайтам..

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, jpeg, OleCtrls, SHDocVw, ShlObj, ActiveX, IdCookieManager,
  math, IdExplicitTLSClientServerBase, IdMessageClient, IdPOP3, IdMessage;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Image1: TImage;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Memo2: TMemo;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Memo3: TMemo;
    IdHTTP2: TIdHTTP;
    Button4: TButton;
    Button5: TButton;
    Memo4: TMemo;
    IdPOP3: TIdPOP3;
    IdMessage1: TIdMessage;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sid, rnd: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData: TStringList;
  R: String;
  stream: TMemoryStream;
begin
  PostData := TStringList.Create;
  PostData.Add('act=register');
  PostData.Add('first_name=Vassa');
  PostData.Add('last_name=Pupkin');
  PostData.Add('regemail=' + Edit2.Text);
  PostData.Add('regpass=' + Edit3.Text);
  PostData.Add('sex=2');
  PostData.Add('timezone=120');
  PostData.Add('by_login=0');
  try
    R := IdHTTP1.POST('http://vk.com/register.php', PostData);
  finally
    PostData.Free;
    sid := copy(R, 25, 12);
    stream := TMemoryStream.Create;
    IdHTTP1.Get('/captcha.php?sid=' + sid, stream);
    stream.SaveToFile('C:\\captcha.jpeg');
    stream.Free;
    Image1.Picture.LoadFromFile('C:\\captcha.jpeg');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  c, h, id, auth, afcap: string;
  PostData: TStringList;
begin
  PostData := TStringList.Create;
  PostData.Add('act=register');
  PostData.Add('captcha_key=' + Edit1.Text);
  PostData.Add('captcha_sid=' + sid);
  PostData.Add('first_name=Vassa');
  PostData.Add('last_name=Pupkin');
  PostData.Add('regemail=' + Edit2.Text);
  PostData.Add('regpass=' + Edit3.Text);
  PostData.Add('sex=2');
  PostData.Add('timezone=120');
  PostData.Add('by_login=0');
  afcap := IdHTTP1.POST('http://vkontakte.ru/register.php', PostData);
  PostData.Clear;
  if Pos('"do_login":"1"', afcap) > 0 then
  begin
    c := IdHTTP1.Get('http://login.vk.com/?act=login&email=' + Edit2.Text +
      '&pass=' + Edit3.Text + '&expire=&vk=');
    Delete(c, 1, Pos('value=''', c) + 6);
    c := copy(c, 0, Pos(''' />', c) - 1);
    PostData.Add('__query=regstep1');
    PostData.Add('al=1');
    PostData.Add('al_id=0');
    IdHTTP1.Request.CustomHeaders.Add('Cookie: ' + 'remixsid=' + c);
    h := IdHTTP1.POST('http://vkontakte.ru/register.php', PostData);
    PostData.Clear;
    id := h;
    Delete(id, 1, Pos('/id', id) + 2);
    id := copy(id, 0, Pos('"', id) - 1);
    Delete(h, 1, Pos('finish&hash=', h) + 11);
    h := copy(h, 0, Pos('"', h) - 1);
    try
      IdHTTP1.Get('/register.php?act=finish&hash=' + h);
    except
      on e: Exception do
    end;
    auth := IdHTTP1.Get('/app1979194');
    Delete(auth, 1, Pos('key":"', auth) + 5);
    auth := copy(auth, 0, Pos('"', auth) - 1);
    PostData.Add('user=' + id);
    PostData.Add('key=' + auth);
    IdHTTP1.POST('http://109.234.155.198/prison/universal.php?initGame',
      PostData);
    Memo1.Lines.Add(Edit2.Text + ':' + Edit3.Text);
    Memo2.Lines.Add(id + ':' + auth);
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  s, res: string;
  PostData: TStringList;
  stream: TMemoryStream;
begin
  s := IdHTTP2.Get('http://www.mail.zp.ua/add.php');
  Delete(s, 1, Pos('name=''sid''', s) + 9);
  Delete(s, 1, Pos('value="', s) + 6);
  s := copy(s, 0, Pos('"', s) - 1);
  stream := TMemoryStream.Create;
  IdHTTP2.Get('http://www.mail.zp.ua/robot_check/showcode.php?sid=' +
    s, stream);
  stream.SaveToFile('C:\\captcha.jpeg');
  stream.Free;
  Image2.Picture.LoadFromFile('C:\\captcha.jpeg');

  PostData := TStringList.Create;
  PostData.Add('username=' + Edit4.Text);
  PostData.Add('passwd=' + Edit5.Text);
  PostData.Add('passwd2=' + Edit5.Text);
  PostData.Add('rname=Vasya');
  PostData.Add('question=%F7%C1%DB%C5+%CC%C0%C2%C9%CD%CF%C5+%C2%CC%C0%C4%CF');
  PostData.Add('answer=GovnO');
  PostData.Add('email=');
  PostData.Add('sid=' + s);
  PostData.Add('code=');
  PostData.Add('portable=0');
  res := IdHTTP2.POST('http://www.mail.zp.ua/add.post.php', PostData);
  Memo3.Lines.Add(Edit4.Text + ':' + Edit5.Text);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  IdPOP3.Host := 'mail.zp.ua';
  IdPOP3.Port := 110;
  IdPOP3.Username := Edit4.Text;
  IdPOP3.Password := Edit5.Text;
  IdMessage1.Clear;
  IdPOP3.Connect;
  Memo4.Clear;
  IdPOP3.Retrieve(1, IdMessage1);
  Memo4.Lines := IdMessage1.Body;
  IdPOP3.Disconnect;
end;

end. 


[miron26]

сочувствую((

[MiKS007]

та же проблема, Паша падла!

[Deep45]

прогу не смотрел, но я знаю точно - ничего не поимеешь!
Дуров Пахан решил сделать регистрацию по приглашениям.... хотя У МЕНЯ приглашений всё ещё нету!! и хз где они появятся и когда....
т.ч. забудь ))

Добавлено через 2 минуты
автор, спасибо!!
возможно, когда нибудь пригодится)))
сам хотел писать кое-какой софт для тюряги (идея отличная была) а тут такое...(((

[sla1x]

не выкладывайте коды прог!!! их тупо стырят и позже переделают под себя!!! в ближайшее время регу откроют!!!

[Lenivets]

sla1x и ?
Мне не жалко 3 процедуры..
Довести до ума всеровно надо ещо.. а у кого руки крюки всеровно не доведёт..

[Deep45]

Цитата: Сообщение от sla1x не выкладывайте коды прог!!! их тупо стырят и позже переделают под себя!!! в ближайшее время регу откроют!!!

где гарантии?? и откуда такая информация??

[teddyboy]

Цитата: Сообщение от Lenivets Ну так как 2дня моих трудов пошли коту под хвост изза Дурова. И реги по инвайту. Выкладываю свои наработки.. Рега в ВК работала , рега мейла ток додела.. и увидел что рега в ВК уже по инвайтам..

То что искал!!!!!!!!1111111111 =) Я тебя люблю и хочу от тебя детей xD хахаха =) СПАСИБО!

[Lenivets]

teddyboy эмм...
Фу противный..
А хотя..приходи ^__^

[Deep45]

Lenivets, после того как будут раздавать приглашения, объеденимся для написания авторегера с инвайтами?? =) я примерно систему понял)

[Рекрут)]

да поидее система проста заместо каптч будет инвайткод.. но вот будет ли лимит на колл-во в день ето надо еще узнать)

[nesh007]

Цитата: Сообщение от zmokie ребят такой вопрос jbot for mail.ru что он дает?в чем его суть? к примеру у меня есть 2.5к майлов валидных, что я с этого поимею?

Это для тюряге на мыле

[SSTIFLER]

Цитата: Сообщение от nesh007 Это для тюряге на мыле

ОН спрашивает что поимеет а не где это будет работать

Цитата: Сообщение от zmokie ребят такой вопрос jbot for mail.ru что он дает?в чем его суть? к примеру у меня есть 2.5к майлов валидных, что я с этого поимею?

Ты поимеешь нычки)

[berserk2]

Lenivets А регер мыла работает? или доработать надо?!


Lenivets teddyboy Фу блин.... Извращенцы ....

[kev961]

Можете объяснить для чего в начале страниц этот синий код что это? а то я нуб