记生平写的第一个病毒!
日前写了一个病毒,Troy.Downloader!
程序很简单,一个Exe,一个DLL,共享VCL.bpl
DLL中导出一个函数:
function DLLMain: TFormClassbegin Result := TForm;end;
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;