记生平写的第一个病毒！

[budded]

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

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

exe中的dpr文件：

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;

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

[budded]

沙发！

[brightyang]

哈哈~~~
顶一个

[brightyang]

最好的杀毒软件就是不用杀毒软件

[pengxuan]

这里怎么用HTML代码

[hsmserver]

卡巴确实牛

[wywry]

接分

[china618]

卡得死机也老说我写的程序是病毒
我真想问候卡巴一家
哈哈

[rong451]

牛人，牛程序了

[jhldelphi]

顶

[cloudlyanhart]

卡巴已经被我停用了，开着它金山词霸都用不了。。

[cnhxjtoa]

可以接铁了

[liu19801204]

up

[blueplusplus]

哈哈,JF

[budded]

情人节快乐！

[骑牛上铂金]

呵呵!