「VB」製作個人的NOD32帳號密碼獲取器

最近許多人都在尋找NOD32下載工具=)

可是很多人都會想說我可不可以自己做一個呢?

20101003:NOD32帳號密碼獲取工具可能已經失效,如果急需使用NOD32帳號密碼,請參考:合法ESET NOD32永久免費試用教學 – 拋棄你手中的盜版!(點我進入)》

答案是:可以的

而且不需要有什麼語言基礎 只要你會用Windows中的記事本!

就可以馬上製作歐:)

因為這個VB已經直譯過了,作者也直接開放原始碼,所以我就直接做教學,且不用直譯,用Windows記事本就可以做了歐!(不需VB直譯軟體)!

製作過程:

1.開啟Windows記事本→2.把下面的原始碼複製到記事本中→3.儲存→4.把記事本檔名後面.txt 改為.vbs 即可開始使用

※電腦中若沒有安裝NOD32程序將無法使用此程序。

※2:
大家將分割線下面第2行的紅色部分改為你要獲取ID的網址,然後按照上面方法即可製作成功啦!!

如果你要獲取的網址是http://blog.2cc.tw/,你只需將    大家在這裡填入ID發佈網址    修改為http://blog.2cc.tw/ 即可,其他不變(注意修改的是分割線下面第2行的)

※NOD32id授權獲取器請自尋到網路上尋找,因為涉及到法律問題,本站不提供,製作此軟體發佈與本站完全無關,本站只做程式製作上的說明

銘在此提醒各位:要注意好法律、版權問題,即使編出軟體了也不要輕易公開於網路上,如果被抓到通常都是罰錢or坐牢

有可能因為一時想出名,而換來永遠的痛!

————————————————————————-

Option Explicit

Dim theURL : theURL = “大家在這裡填入ID發佈網址" ‘ <– 對, 就是這行

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"

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

———————————————————-

  • http://1@hotmail.com 1
    • http://blog.2cc.tw a45601236qq

      那個站我從來沒去過…

      而且重點是我這篇教學是在另外一個論壇找到的…

      所以抱歉沒給你指教到…

      我本身就不會程式設計樂

      只是分享給大家罷樂…

      忘記註明我原本找到的地方 拍謝..

  • 匿名

    找不到發佈網可以貼入

    有找到 每天都會有新的ID的網站

    但是貼上去 她都說 沒有ID

    不然就是顯示過期…
    ———————————————————————-
    回覆『匿名』:
    可能已經失效了((之前有測試過可以順利獲取?
    如果急著要用的話請參考:
    合法ESET NOD32永久免費試用教學 – 拋棄你手中的盜版!
    文章網址:http://1cc.biz/3313.htm