SRL Archive - Other Scripts

I am working on a Captcha solver for simple captchas, but can't seem to get the order working. I am currently using dtms to solve this captcha (because its an easy one) and searching for deformed dtms. Though the problem i am having is getting the letters/numbers in order as they are shown on the screen. I can identify all of the letters correctly though. If needed i will post some pictures…

Post pictures or the site with the capatcha you are trying to crack.

Take the positions that you found the DTMs at and sort the letters from smallest X position to highest X position.

haha i think bullzeye has what i am looking for. is there a simple way to put them in order or do i have to do a lot of </> stuff?

otherwise ill probably have to make a long sorting procedure :(. oh well. ill still post pics, maybe someone has an easier way.

post the link to the catchpa

~shut

Post the link please :<.

I can't post the link, its under a log in thing under facebook. Its called moola. Ive been working on a script for months now, only to be beaten by this the other day. so far it has made me $30 but i can't beat this captcha. still working on it though…

program New;
var
  b: TBitmap;
  w, h, i, ii, iii: Integer;
  p: TPointArray;
begin
  b := LoadBitmap('c:\tmp.jpg');
  GetBitmapSize(b, w, h);
  
  SetTargetBitmap(b);

  with GetBitmapCanvas(b) do
  begin
    Brush.Color := clRed;
    Pen.Color := clRed;
    Rectangle(0, 0, w, 10);
    Rectangle(0, 50, w, h);
  end;
  
  FindColorsTolerance(p, 0, 0, 10, w, 50, 300);
  for i := 0 to High(p) do
    for ii := 0 to 1 do
      for iii := 0 to 1 do
        FastSetPixel(b, p[i].x + ii, p[i].y + iii, clRed);

  FindColorsTolerance(p, clWhite, 0, 10, w, 50, 50);
  for i := 0 to High(p) do
    for ii := -1 to 1 do
      for iii := -1 to 1 do
        FastSetPixel(b, p[i].x + ii, p[i].y + iii, clWhite);
        
  FindColorsTolerance(p, 0, 0, 10, w, 50, 440);
  for i := 0 to High(p) do
    for ii := 0 to 1 do
      for iii := 0 to 1 do
        FastSetPixel(b, p[i].x + ii, p[i].y + iii, clRed);
  
  DisplayDebugImgWindow(w, h);
  SafeDrawBitmap(b, GetDebugCanvas, 0, 0);
  
  FreeBitmap(b);
end.

Make sure you change the location of the bitmap in LoadBitmap.
My guess is it's possible.

my gosh nielsie. you are a god. I wouldve never thought of this in a billion years. now i gotta find where its storing the bmp…

SCAR also loads jpg through LoadBitmap (as it does above).

thats kinda weird considering its loadbitmap. oh well, ill keep that in mind.

From: malotthouse
thats kinda weird considering its loadbitmap. oh well, ill keep that in mind.

Now you used Nielsie's script how do you get the letters now?

working on it. actually i need to get another captcha first… haha.

Now is there a function to save the bmp so that i can search the bmp? and then how can i search dtms on something not on screen? any ideas?

hmm, this won't work considering the captcha is not depositing a picture in any temp i see. Ill keep looking, but it doesn't seem so.

Omfg dude. Merge your posts!

But that capatcha is fail.

sorry about not merging posts. i just keep continuing work and post it as a new one. oh well, ill do it from now on.

it seems like i'll have to go back to the original method of dtms and aligning from left to right by x values. bleh. another day, im done for today.

Oh sorry! I didn't read the first post correctly! I thought you couldn't detect the letters, but you can :p

Yeah, sorting by x values would be the way to go :)

I can just imagine SRL-Forums being a CAPTCHA and site cracking site in a couple of months, running on hidden servers like The Pirate Bay.

Just imagining…

Are there any known scripts that will solve simple CAPTCHA's?

I am trying to find one, as the CAPTCHA I need to solve is very simple.
URL included.
https://login.aol.hk/idp/Captcha

You could try to download the image with the script and then read it off.

Sorry, I just thougt that could help.