Captcha Killer - aber wie?

[jokerfacehro]

hey is ziemlich easy brauchst 2 funktionen:

wichtig, du musst dich vorher einmal auf dem rechner bei cptcha killer angemeldet haben, damit er den aufruf akzeptiert und es gehen nur noch 30captchas pro tag

ansonsten is die seite geil, liest studiVZ und alle möglichen anderen imagecodes ohne probleme solange man die farbtiefe auf 8bit oder niedriger setzt.


hier datei hochladen:

Delphi-Quellcode:

function TLoginForm.uploadImage(dest:string):string;
var DataStream: TIdMultiPartFormDataStream;
    stringvar:String;
    idHTTP: TIdCustomHTTP;
begin
idHTTP:=TIdCustomHTTP.Create(self);  //compo erstellen
DataStream := TIdMultiPartFormDataStream.Create;    //stream erstellen

DataStream.AddFormField('method','upload_captcha');
DataStream.AddFormField('api_key',api_key);
DataStream.AddFormField('captcha_url','sro');
DataStream.AddFormField('expire','120');
DataStream.AddFormField('rights','true');
DataStream.AddFile('file', 'IMAGE.JPG', 'multipart/form-data'); //bild einfuegen

stringvar := idHTTP.Post(dest, DataStream);  //upload

stringvar:=Copy(stringvar,21,Length(stringvar)-21);
{Delete(stringvar,1,20);
StringReplace(stringvar, #13#10, '', [rfReplaceAll]);}

DataStream.Free;
idHTTP.Free;

Memo1.Lines.Add(stringvar);

Result:=stringvar; //captcha_id is rueckgabewert
end;

text lesen = alle 10sekunden oder so aufrufen:

Delphi-Quellcode:

function TLoginForm.readImage(dest:string):string;
var DataStream: TIdMultiPartFormDataStream;
    stringvar:String;
    idHTTP: TIdCustomHTTP;
begin
idHTTP:=TIdCustomHTTP.Create(self);  //compo erstellen
DataStream := TIdMultiPartFormDataStream.Create;    //stream erstellen

DataStream.AddFormField('method','get_result');
DataStream.AddFormField('api_key',api_key);
DataStream.AddFormField('captcha_id',captcha_id);
DataStream.AddFormField('op','Submit');

sleep(50);

stringvar:=idHTTP.Post(dest, DataStream);
Memo1.Lines.Add(stringvar);

DataStream.Free;
idHTTP.Free;

Result:=stringvar; //rückgabe ist WAIT oder SUCCESS: text
end;

viel Spaß damit