日前写了一个病毒,Troy.Downloader!
程序很简单,一个Exe,一个DLL,共享VCL.bpl
DLL中导出一个函数:
exe中的dpr文件:
最简单的病毒就这样莫名其妙的产生了,卡巴司机还是挺牛的!
程序很简单,一个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 ;
最简单的病毒就这样莫名其妙的产生了,卡巴司机还是挺牛的!