nod32用户名密码获取工具 (2010年6月9日更新到2.0)
本帖最后由 星驰周 于 2010-6-9 14:47 编辑本人用NOD32这个杀软件，最近免ID升级老是不灵，做了个这个，以方便更新！
原来的版本不能用了，最近更新了一下，又可以继续使用了！
更新用户名密码是通过注册表吗?
记得密码是加密的,解密会但是加密不会 没的用过NOD32这个杀软件 我没用注册表
怎么解密给说说啊，老大 哦哦，不错，好东西！ 原帖由 星驰周 于 2008-9-2 22:05 发表 http://www.autoitx.com/images/common/back.gif
我没用注册表
怎么解密给说说啊，老大
这个是针对2.7的 3.0有升级补丁
Global Const $mask =
Dim $password=""
$Nod32PWD = RegRead($Nod32Key,"Password")
If @EXTENDED = 3 Then
$buf = _HexToString($Nod32PWD)
For $i=0 To UBound ($buf)-1
$password = $password &Chr(BitXOR($buf[$i],$mask[$i]))
$i=$i+1
Next
MsgBox(0,"用户名和密码",RegRead($Nod32Key,"Username")&@CRLF&$password)
EndIf
Func _HexToString($strHex)
Local $strChar, $aryHex, $i, $j=0,$iDec, $Char, $iOne, $iTwo
Local $buf
$aryHex = StringSplit($strHex, "")
If Mod($aryHex, 2) <> 0 Then
SetError(1)
Return -1
EndIf
For $i = 1 To $aryHex
$iOne = $aryHex[$i]
$i = $i + 1
$iTwo = $aryHex[$i]
$iDec = Dec($iOne & $iTwo)
$buf[$j] = $iDec
$j=$j+1
If @error <> 0 Then
SetError(1)
Return -1
EndIf
Next
ReDim $buf[$j]
Return $buf
EndFunc
非常感觉版主gooker给的源码
其实，都可以解密了，加密还会是问题吗？
只当是给自己出的一道题，我就自个给逆解密一下。
我相信很快自己就能做出写注册表方式的自动注册升级工具了！ 将密码写到注册表中，写写玩玩
另外说下帐号和密码有效性的验证方法：
用帐号密码登录下面地址，能正常登录则为可用
http://update.eset.com/download/engine3/em000_32_l0.nup
Global $Array =
$a = "50d3bprepp" ;假设此为网页上获取到的nod32密码
$result =""
For $i = 1 to 10 ;前面可写个判断，密码必定为10位的
$result = $result & Hex(BitXOR(Binary(Asc(StringMid($a, $i, 1))), $Array),2) & $Array
Next
$password = "0x"&$result
MsgBox(0,"将写入注册表二进制值为",$password)
;RegWrite("HKLM\SOFTWARE\Eset\Nod\CurrentVersion\Modules\Update\Settings\Config000\Settings", "Password","REG_BINARY",$password)
[ 本帖最后由 bob 于 2008-9-9 10:31 编辑 ] :face (34):
另外说下，楼主不厚道，不给源码！
……楼主不厚道，不给源码！
没源码，都不满啊，那就送上！ 试试这个，也是用au3写的。使用说明的原地址：
http://bbs.vc52.cn/thread-28750-1-1.html 试试这个，也是用au3写的。
使用说明的原地址：
http://bbs.vc52.cn/thread-28750-1-1.html
kaidashi 发表于 2008-11-10 14:03 http://www.autoitx.com/images/common/back.gif
楼主没有源码啊？ :face (13): 支持下，要是有源码就更好了 还不错哦:face (22):