Captcha Çözümleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
bkantur
Üye
Mesajlar: 47
Kayıt: 23 Kas 2013 04:45
Konum: Balıkesir

Captcha Çözümleme

Mesaj gönderen bkantur »

Soruyu makale kısmına sormuşum yanlışlıkla. İsmi alttaki şekilde görünen captcha kodunu nasıl image üzerine alıp çözümleyebiliriz acaba ?

[url]data:image/jpg;base64,iVBORw0KGgoAAAANSUhEUgAAAJYAAAAiCAIAAAAyOLfWAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAeRSURBVGhD7ZrpTxVXGMb9A/rFP8Fo0qZJa1KNNcaa4NbSlrhUSl0wLoWyaKuBCpTSCghYrXIRQRCEggsggoKiuIG4sihWtLLIUisqV1rrgg3yxf7IuRmGmevcuXOvV6655GQy93DmLO9z3ud53zMzauBxx4sXL7iKG/En/fTUj3z7jFJgJqHoqZebQrGV1Xv9NdrNAqG7TNczT8Ve4ecQhB7ydFMRGeVBzk2Rk4AbgvA1srmHHtX0qF99h2mheKznwT8eOOXx+YgKXtTbfdAL5VPMyMqdOHNldVWlJ8dwl1zLAqHktt5fhY8e5x0aHj8S8qG6ipPfjPfqvtXpEWwNwR6WF7Z3duOC/iHxXF2ZF24LiciJTlRTBJVA6FFKbaUcpoWro0yUlqZLOGLRodMuU0QgBCpzW71CgSJm+VL0C7vj265id35xelrdqZNqFh2xijgsL5wwfem52muYjBt80WXRNuABoSkgRCHAge9N3b85zZWHfMEzvOaMHRPkNdVdhHAwtZcMtK+gAOQEbFvSC7m/09FoeCW95kfFu0/nph+OD0t53NNisx+g8nlrTNPZS9J8/rxaI2oM7KSMXVvS0qMf9dywOa7ct8zt9UBYnrUVCPFFA+PKh3PZzhuCELcDOTFv8gog/MR3FaKIX9qrRgmROQtmRIryhVdYYVaRNpuL/+KIiQuDpJVXFxyUC6F+Ou263f7OhNEUUNQzrgTV1apSIORnamSEuLGXTvdt/y3M92tKXFDUzcbr9trNWHsLkYIZaOF2CGHMxmzuRRH46TcfjQP9Ej8cuzw7OQ9HFHP671m/HnNIjigaE8tApAbys02mmI/nTVwV7s9Vz7iS4fA8gRzuKHdEqYG2HcAs3C/45IGjnS3tZXnFS6bMbTp/wsD87dp29G9JKo6eugRguB3OR14BqZIgEtQQo8ohtEkOMCf44XbGchIw2+DrL9ZAIMO9gX5AbtEyrwtn9+OIe4uy9M8/0s83KThItE8JCwFOsLQrP35ibpbaZyVu3/p9jIH5q31GO6caygvBDyIVRzPiGUCNjtti1xqgzYAFP6m3rU3sxSOncjIlRQTOI5n5Cjey2U/d5XMgl5+XREuBpf75g1lhsiUhfmg28xMgDWOQGZsEndo7fwPttd4Xoo6LAyMlEzx63KdNKc3XuwSF0ux25/0rtc0UbtTbSqMfkUg0n6sEy1vD5URPP9Fxq0HuQW8PjQlqgLP0QKoearrb2UksSiwDijAqHgmEFLDUM64Y4t+/H0KhEGnlnnyIlHvF0HZJks5xbb8v7O9/XnL4zJLguLcn+3V3XNUwByEoEG5LKhJyKBWiG/lT2ssgigE8UJRiGbuWrfA8IYqKrW3VrGcOHQRCARv4EdGAJYrIjX4Y6o+XmaI2Ah7+J+Fn1/x1wiafktb7QmKZ0IitILc89McjJy7aJDEhhHCpKXYnHnm99jwF/Kjkqk3o8qmDHyium+5jL4kJ/RMsKhaJU1JDvdo0ivlIUai8HhRBFAeVP66wA7DBmfIG4Edoqn+9BshTPpyV94VtHX/Fbs59f9qSz/2+3Vtyorf7hk45gUIFkSraAyrZxb32wUMDNYWqdwaZPhQqP6y509reWFlqvtWgjURUzDIAW7zSm4IKUrihJmTNfJvjRizwSQgY9FfFfHBEq/VSs9KdmWQR8v6pITS1ueMdRE7qf9j7wqabHdN8QifNDkzOKOpoUR532aSjuqoqIMQXFbSJU1KPX+qhU3ACrbLtu/YlmH7wXvjdlM/wyOAPZkbNmlt3yJK2vqwfaJOigFBUCnXUoCmgwufUMnGxfDf5orpesuD5yjMAJoeQQFReY9Nu8p2t3mqKodW0PEwLcbjGhhqN6Wp3R+Si4EzRXhAsEGqowo3qw+Fe80Fr6dhJIJcVEQ+EYNl68bjO+UixqKJ9WUURjoiDavQDVeYmJYrIRQPml80/NmAtXEosw7MiIxRC+KpVUPSvfF9or/wo2hPIwJmcqMnrRaV8SWqS6TM3t9Q3OkI+hC2z54y/21mnth31FHW9g3KVHJlUkl0w8HyAdFB4njiaQQgVW8GRdWnbbQhCZ41RXX4MhwMzcTRDt4JFueoUQsN7CJCgUKu2E9kFVwcxU7Dcs6d9xWnpa+atOFZYDpB4YduVGsPzN2wf539HKjCTzkitUqsBxtemOJI/IBRnMfI/gRmnpuBHcfq4dN7b9fuelF3rFq46WzH0es41FCqWYzsvNLBsRBH9IzSliNRebVYNZXLH9r33zBk/J+CRl2tqXTz/V/sd6f2Oa+KMhpJjys/clJu340jfg1bDpKEtDPe66glqyAIp3IiyIyMmZVtEauZGrpQnTyyH784lVTGx+20NCOT6gMHTgFfRv1W7OfM70vVrTcGLfgn6cv1H7waIo5lPJ6/hJ4X61A3ZQFiQY4kwnbvC5tYm1G7qrHFLA31E8V8xk8LN5l/XCggpO3OTn/ZaTqKdJf/qfqBWp4dOai6UxnXmd6R/NFwQDve8f8AA/WqrnSvVxb1o38p3pG+YSqkd4g3bXk7OC63G9Bok4GnveFig/I7UY1PHbepKIRxKKjxK475K/D9Yb1Iv7WqhrAAAAABJRU5ErkJggg==[/url]
Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 829
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:

Re: Captcha Çözümleme

Mesaj gönderen G.Arkas »

Bu nasıl bir link yahu?

Mrmarman hocanın bunun üzerine bir makalesi var forumda. Ayrıca google tesseract ile de bu işlemi yapabilirsin.
Resim
Kullanıcı avatarı
loaded
Üye
Mesajlar: 122
Kayıt: 12 Eki 2010 09:45
Konum: Konya
İletişim:

Re: Captcha Çözümleme

Mesaj gönderen loaded »

Gönderdiğiniz Url deki

Kod: Tümünü seç

iVBORw0KGgoAAAANSUhEUgAAAJYAAAAiCAIAAAAyOLfWAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAeRSURBVGhD7ZrpTxVXGMb9A/rFP8Fo0qZJa1KNNcaa4NbSlrhUSl0wLoWyaKuBCpTSCghYrXIRQRCEggsggoKiuIG4sihWtLLIUisqV1rrgg3yxf7IuRmGmevcuXOvV6655GQy93DmLO9z3ud53zMzauBxx4sXL7iKG/En/fTUj3z7jFJgJqHoqZebQrGV1Xv9NdrNAqG7TNczT8Ve4ecQhB7ydFMRGeVBzk2Rk4AbgvA1srmHHtX0qF99h2mheKznwT8eOOXx+YgKXtTbfdAL5VPMyMqdOHNldVWlJ8dwl1zLAqHktt5fhY8e5x0aHj8S8qG6ipPfjPfqvtXpEWwNwR6WF7Z3duOC/iHxXF2ZF24LiciJTlRTBJVA6FFKbaUcpoWro0yUlqZLOGLRodMuU0QgBCpzW71CgSJm+VL0C7vj265id35xelrdqZNqFh2xijgsL5wwfem52muYjBt80WXRNuABoSkgRCHAge9N3b85zZWHfMEzvOaMHRPkNdVdhHAwtZcMtK+gAOQEbFvSC7m/09FoeCW95kfFu0/nph+OD0t53NNisx+g8nlrTNPZS9J8/rxaI2oM7KSMXVvS0qMf9dywOa7ct8zt9UBYnrUVCPFFA+PKh3PZzhuCELcDOTFv8gog/MR3FaKIX9qrRgmROQtmRIryhVdYYVaRNpuL/+KIiQuDpJVXFxyUC6F+Ou263f7OhNEUUNQzrgTV1apSIORnamSEuLGXTvdt/y3M92tKXFDUzcbr9trNWHsLkYIZaOF2CGHMxmzuRRH46TcfjQP9Ej8cuzw7OQ9HFHP671m/HnNIjigaE8tApAbys02mmI/nTVwV7s9Vz7iS4fA8gRzuKHdEqYG2HcAs3C/45IGjnS3tZXnFS6bMbTp/wsD87dp29G9JKo6eugRguB3OR14BqZIgEtQQo8ohtEkOMCf44XbGchIw2+DrL9ZAIMO9gX5AbtEyrwtn9+OIe4uy9M8/0s83KThItE8JCwFOsLQrP35ibpbaZyVu3/p9jIH5q31GO6caygvBDyIVRzPiGUCNjtti1xqgzYAFP6m3rU3sxSOncjIlRQTOI5n5Cjey2U/d5XMgl5+XREuBpf75g1lhsiUhfmg28xMgDWOQGZsEndo7fwPttd4Xoo6LAyMlEzx63KdNKc3XuwSF0ux25/0rtc0UbtTbSqMfkUg0n6sEy1vD5URPP9Fxq0HuQW8PjQlqgLP0QKoearrb2UksSiwDijAqHgmEFLDUM64Y4t+/H0KhEGnlnnyIlHvF0HZJks5xbb8v7O9/XnL4zJLguLcn+3V3XNUwByEoEG5LKhJyKBWiG/lT2ssgigE8UJRiGbuWrfA8IYqKrW3VrGcOHQRCARv4EdGAJYrIjX4Y6o+XmaI2Ah7+J+Fn1/x1wiafktb7QmKZ0IitILc89McjJy7aJDEhhHCpKXYnHnm99jwF/Kjkqk3o8qmDHyium+5jL4kJ/RMsKhaJU1JDvdo0ivlIUai8HhRBFAeVP66wA7DBmfIG4Edoqn+9BshTPpyV94VtHX/Fbs59f9qSz/2+3Vtyorf7hk45gUIFkSraAyrZxb32wUMDNYWqdwaZPhQqP6y509reWFlqvtWgjURUzDIAW7zSm4IKUrihJmTNfJvjRizwSQgY9FfFfHBEq/VSs9KdmWQR8v6pITS1ueMdRE7qf9j7wqabHdN8QifNDkzOKOpoUR532aSjuqoqIMQXFbSJU1KPX+qhU3ACrbLtu/YlmH7wXvjdlM/wyOAPZkbNmlt3yJK2vqwfaJOigFBUCnXUoCmgwufUMnGxfDf5orpesuD5yjMAJoeQQFReY9Nu8p2t3mqKodW0PEwLcbjGhhqN6Wp3R+Si4EzRXhAsEGqowo3qw+Fe80Fr6dhJIJcVEQ+EYNl68bjO+UixqKJ9WUURjoiDavQDVeYmJYrIRQPml80/NmAtXEosw7MiIxRC+KpVUPSvfF9or/wo2hPIwJmcqMnrRaV8SWqS6TM3t9Q3OkI+hC2z54y/21mnth31FHW9g3KVHJlUkl0w8HyAdFB4njiaQQgVW8GRdWnbbQhCZ41RXX4MhwMzcTRDt4JFueoUQsN7CJCgUKu2E9kFVwcxU7Dcs6d9xWnpa+atOFZYDpB4YduVGsPzN2wf539HKjCTzkitUqsBxtemOJI/IBRnMfI/gRmnpuBHcfq4dN7b9fuelF3rFq46WzH0es41FCqWYzsvNLBsRBH9IzSliNRebVYNZXLH9r33zBk/J+CRl2tqXTz/V/sd6f2Oa+KMhpJjys/clJu340jfg1bDpKEtDPe66glqyAIp3IiyIyMmZVtEauZGrpQnTyyH784lVTGx+20NCOT6gMHTgFfRv1W7OfM70vVrTcGLfgn6cv1H7waIo5lPJ6/hJ4X61A3ZQFiQY4kwnbvC5tYm1G7qrHFLA31E8V8xk8LN5l/XCggpO3OTn/ZaTqKdJf/qfqBWp4dOai6UxnXmd6R/NFwQDve8f8AA/WqrnSvVxb1o38p3pG+YSqkd4g3bXk7OC63G9Bok4GnveFig/I7UY1PHbepKIRxKKjxK475K/D9Yb1Iv7WqhrAAAAABJRU5ErkJggg==
Base64 ile kodlanmış veri aşağıdaki png formatındaki resme ait binary verisini içermekte.
dönüştürülmüş.png
dönüştürülmüş.png (2.67 KiB) 1200 kere görüntülendi
Manuel çözüm için "base64string to binaryfile" veyahut "base64string to memorystream" konularında araştırma yapmalısınız.
Kalk ve işe yarar bir şey yap! Çünkü Allah (c.c.) yeniden başlayanların yardımcısıdır.
bkantur
Üye
Mesajlar: 47
Kayıt: 23 Kas 2013 04:45
Konum: Balıkesir

Re: Captcha Çözümleme

Mesaj gönderen bkantur »

Cevaplar ve göstermiş olduğunuz yol için teşekkür ederim. Alttaki kod ile image üzerinde gösterebiliyorum.

Son bir sorum daha olacak yardımcı olursanız eğer çok sevinirim. Burada d:\test.jpg olarak kaydettirmeyip direkt olarak image üzerinde nasıl gösterebilirim ?

Kod: Tümünü seç

var strMemo: String;
    Decoder: TIdDecoderMIME;
    DecodedStm: TStringStream;
begin
  strMemo:=aradansec(EmbeddedWB1.OleObject.document.body.innerHTML, 'base64,' , '">');

  Decoder:=TIdDecoderMime.Create(nil);
  DecodedStm := TStringStream.Create('');
  Try
    Decoder.DecodeBegin(DecodedStm);
    Decoder.Decode(strMemo);
    Decoder.DecodeEnd;

    DecodedStm.SaveToFile('d:\test.jpg');
    Image1.Picture.LoadFromFile('d:\test.jpg');
  Finally
    FreeAndNil(DecodedStm);
    FreeAndNil(Decoder);
  End;
end;
Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 829
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:

Re: Captcha Çözümleme

Mesaj gönderen G.Arkas »

:ara LoadStream, SaveStream
Resim
bkantur
Üye
Mesajlar: 47
Kayıt: 23 Kas 2013 04:45
Konum: Balıkesir

Re: Captcha Çözümleme

Mesaj gönderen bkantur »

G.Arkas yazdı::ara LoadStream, SaveStream
Hocam bu şekilde denemiştim ama ne hata veriyor nede image üzerinde gösteriyor ...

Kod: Tümünü seç

var strMemo: String;
    Decoder: TIdDecoderMIME;
    DecodedStm: TStringStream;
    ms:TMemoryStream;
begin
  strMemo:=aradansec(faturaweb.OleObject.document.body.innerHTML, 'base64,' , '">');

  Decoder:=TIdDecoderMime.Create(nil);
  DecodedStm := TStringStream.Create('');
  ms := TMemoryStream.Create;
  Try
    Decoder.DecodeBegin(DecodedStm);
    Decoder.Decode(strMemo);
    Decoder.DecodeEnd;

    DecodedStm.SaveTostream(ms);
    Image1.Picture.Bitmap.LoadFromStream(ms);

  Finally
    FreeAndNil(DecodedStm);
    FreeAndNil(Decoder);
    ms.free;
  End;
end;
Cevapla