刚写了个nod32通用的id自动获取器脚本

打开记事本复制以下代码，并另存为xxx.vbs（名字可以自己起，但一定要是.vbs的后掇名。保存类型 要选 所有文件 ）

推荐用nod32 2.xx版的，暂用内存小，杀毒快。

1. Option Explicit
   
2. 
   
3. 
   
4. Dim theURL : theURL = "http://hi.baidu.com/lazivip" '
   
5. 
   
6. Const MyName = "GetValidID"
   
7. Const MyVersion = &H1016
   
8. Const HKeyLocalMachine = "HKEY_LOCAL_MACHINE"
   
9. Const HKEY_LOCAL_MACHINE = &H80000002
   
10. Const RegEset30 = "SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins1000400\Profiles\@My profile"
    
11. Const RegEset27 = "SOFTWARE\Eset\Nod\CurrentVersion\Modules\Update\Settings\Config000\Settings"
    
12. Const UserStartup = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
    
13. Dim RegEset : RegEset = RegEset30
    
14. Dim str : str = ""
    
15. Dim ids
    
16. Dim un : un = ""
    
17. Dim pw : pw = ""
    
18. Dim PassBytesA : PassBytesA = Array(&H61, &HD4, &HDD, &HFB, &H5B, &H35, &HB7, &H19, &HEC, &H2B)
    
19. Dim PassBytesB : PassBytesB = Array(&HD6, &HE9, &HF0, &HF2, &H64, &HAD, &HC8, &H75, &H31, &HBC)
    
20. Dim oShell : Set oShell = CreateObject("WScript.Shell")
    
21. Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject")
    
22. Dim oXmlHttp : Set oXmlHttp = CreateObject("Msxml2.XMLHTTP")
    
23. Dim StartupPath : StartupPath = oShell.RegRead(UserStartup)
    
24. 
    
25. If Wsh.Arguments.Count > 0 Then If Wsh.Arguments(0) = "v" Then Wsh.Quit MyVersion
    
26. If Wsh.Arguments.Count <> 0 Then Wsh.Quit -254
    
27. If oShell.CurrentDirectory <> StartupPath Then
    
28. Dim StartupFullPath : StartupFullPath = StartupPath & "" & MyName & ".vbs"
    
29. 
    
30. End If
    
31. 
    
32. On Error Resume Next
    
33. oShell.RegRead "HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info\ProductVersion"
    
34. If Err.Number <> 0 Then
    
35. On Error Resume Next
    
36. oShell.RegRead "HKEY_LOCAL_MACHINE\SOFTWARE\ESET\NOD\CurrentVersion\Info\CurrentVersion"
    
37. If Err.Number <> 0 Then
    
38. Wsh.Echo "本机没有安装ESET产品"
    
39. Wsh.Quit -128
    
40. End If
    
41. RegEset = RegEset27
    
42. End If
    
43. On Error Goto 0
    
44. 
    
45. With oXmlHttp
    
46. .Open "GET", theURL, False
    
47. .SetRequestHeader "Pragma", "no-cache"
    
48. .SetRequestHeader "Cache-Control", "no-cache"
    
49. On Error Resume Next
    
50. .Send
    
51. If Err.Number <> 0 Then
    
52. Wsh.Echo "连接不上ID分发网站"
    
53. Wsh.Quit -1
    
54. End If
    
55. On Error Goto 0
    
56. If .Status <> 200 Then
    
57. Wsh.Echo "ID分发网页有错误"
    
58. Wsh.Quit -2
    
59. End If
    
60. With New RegExp
    
61. .IgnoreCase = True
    
62. .Global = True
    
63. .Pattern = "(?:NOD32升级用户名称)\s*：\s*(EAV-\d+)[\s\S]*?(?:NOD32升级密码)\s*：\s*(\w+)"
    
64. Dim match
    
65. For Each match In .Execute(oXmlHttp.responseText)
    
66. str = str & match.SubMatches(0) & ":" & _
    
67. match.SubMatches(1) & vbcrlf
    
68. Next
    
69. 'Wsh.Echo str : Wsh.Quit
    
70. End With
    
71. 
    
72. If Len(str) = 0 Then
    
73. Wsh.Echo "在ID分发网页内找不到任何ID"
    
74. Wsh.Quit -4
    
75. End If
    
76. Dim i, j, m, k, u, tmp
    
77. Randomize
    
78. ids = Split(str, vbcrlf)
    
79. i = Abs(UBound(ids) - 1)
    
80. if i > 15 then i = 15
    
81. ReDim rand(i)
    
82. For j = 0 To i : rand(j) = j : Next
    
83. For j = 0 To i
    
84. k = Fix(Rnd() * (i + 1)) : u = Fix(Rnd() * (i + 1))
    
85. m = rand(k) : rand(k) = rand(u) : rand(u) = m
    
86. Next
    
87. 
    
88. For j = 0 To i : Do
    
89. un = "" : pw = ""
    
90. tmp = Split(ids(rand(j)), ":")
    
91. un = Trim(tmp(0)) : pw = Trim(tmp(1))
    
92. If un = "" Or pw = "" Then Exit Do
    
93. .Open "GET", "http://update.eset.com/download/engine3/em000_32_l0.nup", _
    
94. False, un, pw
    
95. On Error Resume Next
    
96. .Send
    
97. If Err.Number <> 0 Then
    
98. Wsh.Echo "连接不上ESET官址进行验证..."
    
99. Wsh.Quit -1
    
100. End If
     
101. On Error Goto 0
     
102. If .Status <> 200 And .Status <> 304 Then Exit Do
     
103. ReDim binarr((Len(pw) - 1) * 2 + 1)
     
104. For k = 0 To UBound(PassBytesA)
     
105. binarr(k * 2) = Asc(Mid(pw, k + 1, 1)) Xor PassBytesA(k)
     
106. binarr(k * 2 + 1) = PassBytesB(k)
     
107. If k + 1 >= Len(pw) Then Exit For
     
108. Next
     
109. oShell.RegWrite HkeyLocalMachine & RegEset & "Username", un, "REG_SZ"
     
110. GetObject("Winmgmts:root\default:StdRegProv")_
     
111. .SetBinaryValue HKEY_LOCAL_MACHINE, RegEset, "Password", binarr
     
112. oShell.Popup "随机抽选的新ID已被验证和安装" & vbcrlf & " Username: " & un & vbcrlf & _
     
113. " Password: " & pw & vbcrlf & " (本窗会在5秒后消失)", 5, MyName, vbOKOnly + vbInformation
     
114. Wsh.Quit 0
     
115. Loop While False : Next
     
116. Wsh.Echo "ID分发网页内的ID全部无效"
     
117. Wsh.Quit -3
     
118. End With
     
119. 
     
120. Wsh.Quit 0

复制代码

围观黑客....

围观黑客....
熙雅 发表于 2010-5-14 14:30

围观传说中的山寨版黑客程序！

哈哈~   我说看着眼熟....

回复 3# 特洛伊剑客

去你的

回复  特洛伊剑客

去你的
孤独浪子 发表于 2010-5-15 18:07

我真想亲手一板儿砖拍死你！