Captcha Killer - aber wie?

[spox]

Hallo Delphifans!

Der ein oder andere kennt möglicherweiße die Seite http://www.captchakiller.com/. Man kann dort Captcha's lösen lassen. Nun gibt es auch die Möglichkeit, ohne die Website aufzurufen, das Captcha zu senden. Das Ergebnis wird dann zurück gesendet (steht in den API-Docs auf der Website). Ich frage mich nur wie?! Denn das wäre doch ganz interessant.

[Luckie]

Zitat von spox:

Denn das wäre doch ganz interessant.

Ganz interessant wo für? Um automatisch Spam in Foren zu verbreiten?

[generic]

Captcha sollen eigendlich von Menschen gelöst werden, um Seiten vor Spammern und Bots zu schützen.

Daher wirst du hier keine Hilfe bekommen!

Grund: Umgehung von Schutzmassnahmen

s.h. dazu bitte auch die Forumregeln

[Daniel]

Moin,

ich kann solche Seiten nicht befürworten, da Captachas - so lästig sie für uns Menschen sein mögen - wenigstens den gröbsten Spam aus Foren, Blogs und sonstigen Seiten fernhalten.

Aber davon mal abgesehen ... es gibt dort Beispiele für PHP, Perl und VB.NET - welche Fragen hast Du denn jetzt? Auf der Seite steht doch:

Zitat:

The API has 2 simple HTTP POST operations.

Du musst Dich also mit dem HTTP-Protokoll befassen und dort dann mit der POST-Operation. In Delphi dürfte der einfachste Weg über die Indy-Komponenten gehen, die sind bei Delphi gleich mit dabei.

Also: Bei konkreten Fragen wende Dich gern an uns - aber mal so allgemein in den Raum fragen, wer das für Dich tun könnte, kommt nicht in die Tüte. Sorry.

[s.h.a.r.k]

zum einen muss ich meinen beiden drei vorredern recht geben, ABER es ist zurzeit wohl leider so, dass die captcha selbst von menschen nicht auf anhieb erkannt werden und dies vermiest mir persönlich die laune an sowas. daher finde ich derartige systeme recht gut, da sie den praktischen nutzen davon doch ziemlich einschränken, so schön der gedanke daran auch sein mag.

ich mag hier allerdings keine diskussion über captchas vom zaun brechen, aber wenn du dir das ganze mal etwas genauer durchliest, dann solltest recht schnell auf die lösung kommen! all zu schwer scheint es nicht zu sein.

[edit]
wo war deer verflixte rote kasten!?
[/edit]

[spox]

hoppla... sry, hab gedacht darüber sprechen dürfte man

Blöderweiße stehen dort nur Beispiele für PHP, Perl und VB.NET.Pascal leider nicht. Ich hätte gern gewusst, wie die Prozedur für das verschicken und empfangen eines Captchas aussieht. Aber wenn's verboten ist... Ist schon okay.

[rawsoul]

[OffTopic]

Zitat von s.h.a.r.k:

[...], ABER es ist zurzeit wohl leider so, dass die captcha selbst von menschen nicht auf anhieb erkannt werden und dies vermiest mir persönlich die laune an sowas. [...]

Das kann ich so leider auch bestätigen. Vor kurzem erst wollte ich mich bei einem Rollenspiel registrieren, bei welchem man als Spammaßnahme Charaktere auswählen sollte, welche in diesem Spiel wählbar sind. Ohne das Spiel allerdings zu kennen, war es mir selbst beim vierten Versuch nicht möglich, mich anzumelden. Letztendlich hab ich's dann aufgegeben.
[/OffTopic]

[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

[toms]

Zitat von Luckie:

Zitat von spox:

Denn das wäre doch ganz interessant.

Ganz interessant wo für? Um automatisch Spam in Foren zu verbreiten?

Vielleicht dafür?

Zitat:

CAPTCHA Killer is 100% focused on increasing accessibility on the Internet. There are over 1 Million Americans that suffer from blindness. CAPTCHA Killer can be used to automatically translate an image into the underlying text.

[alzaimar]

toms, neben/unter so gut wie jedem Captcha steht, das der Anwender sich bei Unvermögen, das Captcha zu erkennen, gerne an den Webmaster wenden darf. Das halte ich für das richtige Vorgehen. Wie dem auch sei: Sobald ein Captcha geknackt ist, denkt man sich halt ein Neues aus. Ich frage mich sowieso, wieso einige der Captchas so schwer zu knacken sein sollen...