记生平写的第一个病毒！

最新推荐文章于 2024-02-04 06:45:40 发布

budded

最新推荐文章于 2024-02-04 06:45:40 发布

阅读量857

点赞数

CC 4.0 BY-SA版权

文章标签： pascal delphi dll function exe class

本文链接：https://blog.youkuaiyun.com/budded/article/details/1746840

日前写了一个病毒，Troy.Downloader！
程序很简单，一个Exe，一个DLL，共享VCL.bpl
DLL中导出一个函数：

Delphi(Pascal) code

function DLLMain: TFormClass
begin
  Result := TForm;
end;

exe中的dpr文件：

Delphi(Pascal) code


function MetaClass: TFormClass;
begin
  if not Assigned(FMeta) then
    FMeta := ...; // Get DLL FormClass

  Result := FMeta;
end;

var
  FMeta: TFormClass;  // DLL Class
  FInstance: TForm;

begin
  Application.Initialize;
  FMeta := MetaClass;
  if Assigned(FMeta) then
    Application.CreateForm(FMeta, FInstance);

  Application.Run;         
end;