Нужно написать чекер ключей pixodrom

Нужен чекер ключей на pixodrom.com чтобы сохранял в файл: ключ:баланс
проверка идёт как-то так http://pixodrom.com/res.php?key=blablabla&action=getbalance

 

Ключи ложишь в keys.txt, результат в checked.txt

pixordrom_checker.rar

 

спасибо за троянов

PHP:

https://www.virustotal.com/ru/file/aa23118b6640402e82256b9fbe508b9c66a0581beebc02f004ac631f39c46eed/analysis/1398333022/

Показатель выявления:     4 / 51

Антивирус     Результат     Дата обновления
Avast     Win32:Downloader-ONV [Trj]     20140424
Ikarus     Trojan.Win32.Spy     20140424
Jiangmin     Trojan/Sasfis.lyz     20140424
Kaspersky     HEUR:Trojan.Win32.Generic     20140424


 

Детка, это античат.

 

Идиот блять, это Indy компоненты.

Code:

program Project1;

{$APPTYPE CONSOLE}

uses
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdHTTP,
  IdGlobal;

var
f1,f2:textfile;
key,res:string;
HTTP: TIdHTTP;
i:integer;
timeouted:boolean;
label timeout_retry;
begin
Writeln('************************************'+#13#10+
        '* http://pixodrom.com keys checker *'+#13#10+
        '*           by #colorblind         *'+#13#10+
        '************************************'+#13#10+#13#10+

        'Started...');

Assign(f1,'keys.txt');
Reset(f1);
Assign(f2,'checked.txt');
Rewrite(f2);

    timeouted:=false;
    HTTP := TIdHTTP.Create(nil);
with http do begin
    MaxLineLength:= 200;
    MaxLineAction:=maException;
    ReadTimeout:= 500;
    RecvBufferSize:= 50;
    SendBufferSize:= 50;
    AllowCookies:= True;
    ProxyParams.BasicAuthentication:= False;
    ProxyParams.ProxyPort:= 0;
    ReadTimeout:=readtimeout;

    Request.Host:= 'pixodrom.com';
    Request.UserAgent:=
      'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101' +
      ' Firefox/25.0;';
    Request.Accept:= 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Request.AcceptLanguage:= 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
    Request.AcceptEncoding:= 'deflate';
    Request.Connection:= 'keep-alive';
    Request.BasicAuthentication:= False;
    HTTPOptions:= [hoForceEncodeParams];
end;

while not EOF(f1) do begin
Readln(f1,key);
timeout_retry:
      try
      Writeln('Checking '+key);
      res:=Http.Get('http://pixodrom.com/res.php?key='+key+'&action=getbalance');
      except
      timeouted:=true
      end;

      If timeouted
      Then begin
           timeouted:=false;
           Writeln('Timeout! Retrying...');
           goto timeout_retry;
           end;
      Writeln(f2,key+':'+res);
end;
    CloseFile(f1);
    CloseFile(f2);
Writeln(#13#10+'Completed!'+#13#10+'Press Enter to exit');
Readln;
end.

Скомпилируй и отправь на свой ебаный вирустотал.
Поверь, если я захочу впарить тебе вирус, ни один антивирусник не пикнет.

 

Вместо того, чтобы поблагодарить за то что я потратил 5 минут своего времени совершенно нахаляву ты тут сидишь и пиздишь на меня, при том получив ровно то что просил. Идите наxyй. Больше никакой помощи не увидите, уёбки

 

Ладно, извини. Вирустотал испугал.
Спасибо.

 

Мне pixodrom.com категорически не понравился. Зарегестрировался, кинул на счет пару долларов, и он не работает. Саппорт молчит. Гугл не дал какой либо информации что Selka парсер херово работает с ним в связке.

 

Ты не пробовал обращаться к саппорту Selka, а не пиксодрома? Как бы это логично было бы