If I'm correct, there are 39 images in the database according to that link aboe.. AND all loaded by Show.php <– Seen from page inspection, and can be downloaded Via CurlLib. Download every single one, read the question for each.. Try again and again. repeat. OR Label each image downloaded manually then find keywords like "dog" in the question and click the corresponding image.
I used this to download from RS GE.. Just a little modification and you can download from villavu.. Or you can crop a screenshot of the slots that each image lies within. Obviously the below is edited so no one can use it.. but it does indeed work.
Edit:
Also for you guys that did not know, you can go to
villavu.com/forum/register.php.. and it will show a list of images and a question.. if you right click each image and open it in a new tab, it can tell you if your wrong or right.. then u close the tab if wrong and do that for all 8 images shown.. this way, it doesn't bother you at all and you just bypassed the entire captcha..
Example:
http://i.imgur.com/dNIFV.png <— This is a huge exploit in the way we implement the captcha.. Why? Because no matter how many tries I took, it isn't counted in new tabs.. I can have unlimited amount of tries thus the chances of getting the answer correct is 100%!!!! See what I mean?
From my GetItemsByID thread:
program ImageProc;
{$loadlib SSecurity} //DLL containing multiple libraries for encrypt And Image processing..
{$i SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
Function ImageProc(BMPName: String; ItemID: Integer; Bounds: TBox): String; //Don't touch this function..
var
Image, Path: string;
FP, Item, X, Y, SX, SY: Integer;
V: Extended;
begin
Image:= GetPage('http://villavu.com/register.php' + ToStr(ItemID));
Path:= ScriptPath + BMPName + '.bmp';
Path:= Trim(Path);
FP:= CreateFile(Path);
WriteFileString(FP, Image);
CloseFile(FP);
ImgToBMP(ScriptPath + BMPName + '.bmp');
Item:= LoadBitmap(ScriptPath + BMPName + '.bmp');
GetBitmapSize(Item, Sx, SY);
DebugBitmap(Item);
if FindDeformedBitmapToleranceIn(Item, X, Y, Bounds.X1, Bounds.Y1, Bounds.X2, Bounds.Y2, 5, 0, True, V) then
MMouse(X + SX/2, Y + SY/2, 0, 0);
FreeBitmap(Item);
end;
Begin
SetupSRL;
ImageProc('NameToSaveImageAs', 561, MIBox);
end.
