注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

我的博客

 
 
 

日志

 
 

nod32 自动ID获取的vbs  

2009-09-07 10:51:34|  分类: 安全 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
======================================
 
Option Explicit
'因为感觉最近ESET官方打压ID分发网站的力度加猛, 所以不会再把其它的ID分发网站的网址写入我的脚本了.
'从这个版本开始我只会写入一个默认的ID分发网站的网址进我的脚本, 如果这个ID分发网站不行, 就请大家
'自已动手google一下找找其它的可用ID分发网站然後把紧接着下边的一行代码中的网址部份改成你们自已找
'到的那个ID分发网站的网址便可. 紧记网址开头必需要是http://啊. 还有别忘记网址部份必需整个套进""里
'边啊.
Dim theURL : theURL = "http://www.nod32key.com/nod32id/" ' <-- 对, 就是这行

Const MyName = "GetValidID"
Const MyVersion = &H1016
Const HKeyLocalMachine = "HKEY_LOCAL_MACHINE\"
Const HKEY_LOCAL_MACHINE = &H80000002
Const RegEset30 = "SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile\"
Const RegEset27 = "SOFTWARE\Eset\Nod\CurrentVersion\Modules\Update\Settings\Config000\Settings\"
Const UserStartup = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
Dim RegEset : RegEset = RegEset30
Dim str : str = ""
Dim ids
Dim un : un = ""
Dim pw : pw = ""
Dim PassBytesA : PassBytesA = Array(&H61, &HD4, &HDD, &HFB, &H5B, &H35, &HB7, &H19, &HEC, &H2B)
Dim PassBytesB : PassBytesB = Array(&HD6, &HE9, &HF0, &HF2, &H64, &HAD, &HC8, &H75, &H31, &HBC)
Dim oShell : Set oShell = CreateObject("WScript.Shell")
Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject")
Dim oXmlHttp : Set oXmlHttp = CreateObject("Msxml2.XMLHTTP")
Dim StartupPath : StartupPath = oShell.RegRead(UserStartup)
If Wsh.Arguments.Count > 0 Then If Wsh.Arguments(0) = "v" Then Wsh.Quit MyVersion
If Wsh.Arguments.Count <> 0 Then Wsh.Quit -254
If oShell.CurrentDirectory <> StartupPath Then
 Dim StartupFullPath : StartupFullPath = StartupPath & "\" & MyName & ".vbs"
 If Not oFso.FileExists(StartupFullPath) Then
  If oShell.Popup("是否要把这个脚本复制到[启动]菜单?" & vbcrlf & _
    "按'是'以後每次开机时这个脚本便会自动运行一次" & vbcrlf & _
    "(本窗会在15秒后消失)", 15, MyName, vbYesNo + vbQuestion) = vbYes Then _
   oFso.CopyFile Wsh.ScriptFullName, StartupFullPath, True
 Else
  If oShell.Run(Chr(34) & StartupFullPath & Chr(34) & " v",,True) < MyVersion Then _
   If oShell.Popup("这个脚本版本比在[启动]菜单中的现有脚本要新" & vbcrlf & _
     "是否要把这个新个脚本复制到[启动]菜单?" & vbcrlf & _
     "按'是'以後每次开机时会运行这个新脚本" & vbcrlf & _
     "(本窗会在15秒后消失)", 15, MyName, vbYesNo + vbQuestion) = vbYes Then _
    oFso.CopyFile Wsh.ScriptFullName, StartupFullPath, True
 End If
End If
On Error Resume Next
oShell.RegRead "HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info\ProductVersion"
If Err.Number <> 0 Then
 On Error Resume Next
 oShell.RegRead "HKEY_LOCAL_MACHINE\SOFTWARE\ESET\NOD\CurrentVersion\Info\CurrentVersion"
 If Err.Number <> 0 Then
  Wsh.Echo "本机没有安装ESET产品"
  Wsh.Quit -128
 End If
 RegEset = RegEset27
End If
On Error Goto 0
With oXmlHttp
 .Open "GET", theURL, False
 .SetRequestHeader "Pragma", "no-cache"
 .SetRequestHeader "Cache-Control", "no-cache"
 On Error Resume Next
 .Send
 If Err.Number <> 0 Then
  Wsh.Echo "连接不上ID分发网站"
  Wsh.Quit -1
 End If
 On Error Goto 0
 If .Status <> 200 Then
    Wsh.Echo "ID分发网页有错误"
    Wsh.Quit -2
 End If
  With New RegExp
    .IgnoreCase = True
    .Global = True
  .Pattern = "(?:username)\s*:\s*(EAV-\d+)[\s\S]*?(?:password|passw0rd)\s*:\s*(\w+)"
    Dim match
    For Each match In .Execute(oXmlHttp.responseText)
      str = str & match.SubMatches(0) & ":" & _
        match.SubMatches(1) & vbcrlf
    Next
    'Wsh.Echo str : Wsh.Quit
  End With
 If Len(str) = 0 Then
  Wsh.Echo "在ID分发网页内找不到任何ID"
  Wsh.Quit -4
 End If
  Dim i, j, m, k, u, tmp
  Randomize
  ids = Split(str, vbcrlf)
  i = Abs(UBound(ids) - 1)
  if i > 15 then i = 15
  ReDim rand(i)
  For j = 0 To i : rand(j) = j : Next
  For j = 0 To i
    k = Fix(Rnd() * (i + 1)) : u = Fix(Rnd() * (i + 1))
    m = rand(k) : rand(k) = rand(u) : rand(u) = m
  Next
  For j = 0 To i : Do
    un = "" : pw = ""
    tmp = Split(ids(rand(j)), ":")
    un = Trim(tmp(0)) : pw = Trim(tmp(1))
    If un = "" Or pw = "" Then Exit Do
    .Open "GET", "
http://update.eset.com/download/engine3/em000_32_l0.nup", _
      False, un, pw
    On Error Resume Next
    .Send
    If Err.Number <> 0 Then
      Wsh.Echo "连接不上ESET官址进行验证..."
      Wsh.Quit -1
    End If
    On Error Goto 0
    If .Status <> 200 And .Status <> 304 Then Exit Do
    ReDim binarr((Len(pw) - 1) * 2 + 1)
    For k = 0 To UBound(PassBytesA)
      binarr(k * 2) = Asc(Mid(pw, k + 1, 1)) Xor PassBytesA(k)
      binarr(k * 2 + 1) = PassBytesB(k)
      If k + 1 >= Len(pw) Then Exit For
    Next
    oShell.RegWrite HkeyLocalMachine & RegEset & "Username", un, "REG_SZ"
    GetObject("Winmgmts:root\default:StdRegProv")_
      .SetBinaryValue HKEY_LOCAL_MACHINE, RegEset, "Password", binarr
    oShell.Popup "随机抽选的新ID已被验证和安装" & vbcrlf & "   Username: " & un & vbcrlf & _
      "   Password: " & pw & vbcrlf & "   (本窗会在5秒后消失)", 5, MyName, vbOKOnly + vbInformation
    Wsh.Quit 0
  Loop While False : Next
  Wsh.Echo "ID分发网页内的ID全部无效"
  Wsh.Quit -3
End With
Wsh.Quit 0
 
================================================= 
 
 
 
复制以上的蓝色代码到记事本,保存 在重命名为  eset.vbs  就ok了每天自动更换id。
 
  评论这张
 
阅读(224)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017