I've created this captcha cracker but somehow it keeps given weird errors.
This is the code ( i made it shorter )
First it finds the bitmap "een", and it write IT WORKS a couple of times but then it gives me this error:Code:program New; {.include SRL/SRL.scar} var login, a, b, c, d, e, nul, een, twee, drie, vier, vijf, zes, zeven, acht, negen, x, y: Integer; const y1= 365; y2= 380; x1a= 940; x2a= 955; x1b= 949; x2b= 964; x1c= 959; x2c= 974; x1d= 967; x2d= 982; x1e= 975; x2e= 99; procedure find; begin een := BitmapFromString(9, 12, 'beNolj0cOhDAQBF/CgQNRIpic4/' + '8/wgWRJBCwbAn6MLI90z1lIeq6TtNUluWmaaIoSpIky7I8z03TdBy' + 'Hc1EUtm3P8/w8D5OaplHLsgzDUJKk59V5nlVV8R4EgaqqbdvyuK4r' + '9bouXdfJIbnrOsMw4jju+36aJrqe54WvXNdlEV3qfd9fCx6GyfzY0' + 'LIs+77DxpiiKL7vW5YFLfkfCS5o6WIRQnCF5/fqi4KBL7CufIVl2z' + 'bmYcDYvBqGgfdxHI/j4AAqXn6Bi0VfJYp8EsQfQcmBbQ=='); een := BitmapFromString(6, 1, 'beNpjYEAHAAASAAE='); twee := BitmapFromString(8, 44, 'beNpjYBgFo2AUjALsAAAEIAAB'); drie := BitmapFromString(8, 10, 'beNoljUcKhUAQBS8jBsyKo5hAZ' + 'e5/CLduHNAxjr/gb5rqF7ptu65rY8z3fcx1XYFhGNI0BY7jcF13mq' + 'b/uixLVVWe53Vd1/d9WZZhGGZZhrXvO3eEEIiE8zx/noeD5KMoQuQ' + 'mCkmlFCtJKWUQBLgUHcfBuq6rbVusoiiSJKHLF0Brfd930zRYKLiW' + 'ZfGCyvu+8zwD6L7vU4d5NI4jDGzbhnKeJzOOY/sHWr55wA=='); vier := BitmapFromString(8, 10, 'beNo9jtEKhCAURP+jRx/KyDAoR' + 'K1EAqH//4a+IBBxXd0dkt37NM4d5x6lGGP7vk/TJKVUSsUYc87zPK' + '/rOgzDeZ5N03x+I4TAqus6rTWer2dSStu2LctyHMd936UUxLD13ht' + 'jOOf1L6UUnVUTQqoYx9FaW/3rupxzKIRGyfuZEEJN4igIcQJhcFYf' + 'Jhz4fd9Dg+HP2bYtfAAgDwFIsKkv/aeDIA=='); vijf := BitmapFromString(37, 57, 'beNrtwTEBAAAAwqD1T20ND6AA' + 'AAAAAAAuDBi3AAE='); zes := BitmapFromString(8, 10, 'beNo9TkkOhDAM+01BLCqiULogeu' + 'iJ/7+DAwKhlq1YE2lychzHNudN0/R9f993SinG+L6vUspam+d5+k1' + 'Zll3XAVzX5ZwDOI5DSglyGAbvPda6rklcVdU4jm3bFkUxTROs4An+' + 'L8DgCj6EsCwLrVmWATzPI4QgDdK11sYYNCEGenSDOSJQGOn7vm/bx' + 'hgjAcrAiuLmecYjNOd50nVdV5jzD5TujDU='); zeven := BitmapFromString(8, 10, 'beNoljjkKgDAURO+iaOESjBJj' + 'BPdWC+/fiq0gCFpIfJgUn/w3k5kodV2Xtfa+b/uf8zzduq6rlLIsy' + 'yAIsixblmXbNqQ8z+M47rpumqYkSZRS7qEQoqoqJmZjzPM8wDAM+7' + '6HpGmK/31fOGpRFFEUITFdddu2vu8TSyl3l0k7dUCSh2E4jmPfd60' + '1pXBCxnHERuY8z6zwpmnquvY8DzOSg/I//E19Q5tuAg=='); negen := BitmapFromString(1, 47, 'beNpjYBhEAAAAjQAB'); cleardebug; // ****************** Begin A *************************** if(FindBitmapToleranceIn(een, x, y, x1a, y1, x2a, y2, 2) )then begin a := 1 writeln('IT WORKS') end; end; begin SetupSRL; repeat find; until(false); end.
I've checked the bitmap where it gives the error and re captured it. But it still gives me the same error.Code:IT WORKS [Runtime Error] : Exception: Can't create compatible DC in line 48 in script C:\Documents and Settings\mypc\Mijn documens\test.scar


Reply With Quote


