ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure Torrent.capthca;
var cap:array [1..1000] of TIdMultiPartFormDataStream;
cap_id: array [1..1000] of string;
i:integer;
response2:array [1..1000] of tstringlist;
begin
response2[num]:=Tstringlist.Create();
IDHTTP2[num]:=TIDHTTP.Create(nil);
IDHTTP2[num].HandleRedirects:=true;
IDHTTP2[num].AllowCookies:=true;
cap[num]:=TIdMultiPartFormDataStream.Create;
cap[num].AddFormField('method','post');
cap[num].AddFormField('key','cd68a7198ea23eb4a77c179d4775e 899');
cap[num].AddFile('file',GetCurrentDir+'\'+inttostr(num)+'. jpg','image/jpeg');
response2[num].text:=IDHTTP2[num].Post('http://antigate.com/in.php',cap[num]);

cap_id[num]:=copy(response2[num].Text,4,9);
sleep(5000);

response2[num].text:=IDHTTP2[num].Get('http://antigate.com/res.php?key='+antigatekey'+'&action=get&id='+cap_i d[num]);