Delphi Чекер логинов Steam

[Sascha]

Заходим в делфи, создаем новый проэкт, кидаем на форму:

smemo
sRichEdit   // Можете кинуть и мемо, но я решил ричедит и сделать текст красным.
idHTTP
IdSSLIOHandlerSocketOpenSSL
sButton
sLabel    // 2 раза в моем случае 4

Создаем обработчик событий на кнопке и пишим:

procedure TForm1.sButton1Click(Sender: TObject);
var
  HTTP: tidHTTP;
  i:Integer;
  Zapros:string;
  data: Tstringlist;
begin
  HTTP:=TIdHTTP.Create(nil);
  HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;// подключаем idSSL т.к на странице httpS
  for i:=0 to sMemo1.Lines.Count-1 do //цикл
  begin
     data := Tstringlist.Create;                       //подставляем свои логины с мемо.
     data.Add('accountname=' + smemo1.Lines.Strings[i]);
     data.Add('count=5');
    Zapros:=HTTP.post('https://store.steampowered.com/join/checkavail/',data); //формируем пост запрос
    if Pos('{"bAvailable":false,"rgSuggestions"', Zapros)<>0 then

    begin
      sRichEdit1.SelAttributes.Color:=clRed; // устанавливаем цвет в ричедит
      sRichEdit1.Lines.Add(smemo1.Lines.Strings[i]);//запишем в ричедит удачный логин.
      sLabel1.Caption:=IntToStr(StrToInt(sLabel1.Caption)+1);//+1 k GOOD
     end
    else
    begin
      sLabel2.Caption:=IntToStr(StrToInt(sLabel2.Caption)+1);//записываем +1 к неудачному
     end;
  end;
ShowMessage('Готово!');//месага что все готово и переберать больше не чего.
data.Free;
end;

Вот и все.Запускаем, проверяем.

 

[7.UP]

вроде-же это, {"bAvailable":false бэд а не гуд ?

 

[Sascha]

вроде-же это, {"bAvailable":false бэд а не гуд ?

Как раз наоборот, false отвечает что такой аккаунт уже существует а true место свободное, но нам оно не нужно

 

[7.UP]

Кому интересно перевел в синапс
в uses прописать httpsend, ssl_openssl

var
  HTTP: THTTPSend;
  HTML: tstringList;
  data: TstringStream;
  i: Integer;
begin
  HTTP := THTTPSend.Create;
  HTML := tstringList.Create;
  data := TstringStream.Create;
  for i := 0 to sMemo1.Lines.Count - 1 do // цикл
  begin
    data.WriteString('accountname=' + sMemo1.Lines.Strings[i] + 'count=5');
    HTTP.Document.LoadFromStream(data);
    if HTTP.HTTPMethod('POST','https://store.steampowered.com/join/checkavail/') then
    begin
      HTML.LoadFromStream(HTTP.Document);
      if Pos('{"bAvailable":false,"rgSuggestions"', HTML.Text) <> 0 then
      begin
        sRichEdit1.SelAttributes.Color := clRed; // устанавливаем цвет в ричедит
        sRichEdit1.Lines.Add(smemo1.Lines.Strings[i]);//запишем в ричедит удачный логин.
        GoodLabel.Caption := IntToStr(StrToInt(GoodLabel.Caption) + 1); // записываем +1 в Good
      end
      else
      begin
        BadLabel.Caption := IntToStr(StrToInt(BadLabel.Caption) + 1); // записываем +1 в Bad
      end;
    end;
  end;
  FreeAndNil(HTTP);
  FreeAndNil(HTML);
  FreeAndNil(data);