记生平写的第一个病毒！

日前写了一个病毒，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;

最简单的病毒就这样莫名其妙的产生了，卡巴司机还是挺牛的！