记生平写的第一个病毒！

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

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