找回密码
 加入
搜索
查看: 28479|回复: 80

[原创] nod32用户名密码获取工具 (2010年6月9日更新到2.0)

 火... [复制链接]
发表于 2008-9-2 17:51:53 | 显示全部楼层 |阅读模式
本帖最后由 星驰周 于 2010-6-9 14:47 编辑

本人用NOD32这个杀软件,最近免ID升级老是不灵,做了个这个,以方便更新!

原来的版本不能用了,最近更新了一下,又可以继续使用了!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2008-9-2 20:38:26 | 显示全部楼层
更新用户名密码是通过注册表吗?
记得密码是加密的,解密会但是加密不会
发表于 2008-9-2 22:03:09 | 显示全部楼层
没的用过NOD32这个杀软件
 楼主| 发表于 2008-9-2 22:05:26 | 显示全部楼层
我没用注册表
怎么解密给说说啊,老大
发表于 2008-9-2 22:14:04 | 显示全部楼层
哦哦,不错,好东西!
发表于 2008-9-2 22:19:08 | 显示全部楼层
原帖由 星驰周 于 2008-9-2 22:05 发表
我没用注册表
怎么解密给说说啊,老大


这个是针对2.7的 3.0有升级补丁

 
Global Const $mask[20] = [0x61, 0xD6, 0xD4, 0xE9, 0xDD, 0xF0, 0xFB, 0xF2, 0x5B, 0x64, 0x35, 0xAD, 0xB7, 0xC8, 0x19, 0x75, 0xEC, 0x31, 0x2B, 0xBC]
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[20]
 $aryHex = StringSplit($strHex, "")
 If Mod($aryHex[0], 2) <> 0 Then
  SetError(1)
  Return -1
 EndIf
 
 For $i = 1 To $aryHex[0]
  $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 
 楼主| 发表于 2008-9-3 10:02:30 | 显示全部楼层
非常感觉版主gooker给的源码
其实,都可以解密了,加密还会是问题吗?

只当是给自己出的一道题,我就自个给逆解密一下。
我相信很快自己就能做出写注册表方式的自动注册升级工具了!
发表于 2008-9-9 09:06:06 | 显示全部楼层
将密码写到注册表中,写写玩玩
另外说下帐号和密码有效性的验证方法:
用帐号密码登录下面地址,能正常登录则为可用
http://update.eset.com/download/engine3/em000_32_l0.nup

Global $Array[20] = [0x61, "D6", 0xD4, "E9", 0xDD, "F0", 0xFB, "F2", 0x5B, "64", 0x35, "AD", 0xB7, "C8", 0x19, "75", 0xEC, "31", 0x2B, "BC"]

$a = "50d3bprepp" ;假设此为网页上获取到的nod32密码

$result =""
For $i = 1 to 10 ;前面可写个判断,密码必定为10位的
    $result = $result & Hex(BitXOR(Binary(Asc(StringMid($a, $i, 1))), $Array[2*$i-2]),2) & $Array[2*$i-1]
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 编辑 ]
发表于 2008-9-9 10:37:43 | 显示全部楼层

另外说下,楼主不厚道,不给源码!
 楼主| 发表于 2008-9-18 21:15:25 | 显示全部楼层

……楼主不厚道,不给源码!

没源码,都不满啊,那就送上!
发表于 2008-11-10 14:03:33 | 显示全部楼层
试试这个,也是用au3写的。
使用说明的原地址:
http://bbs.vc52.cn/thread-28750-1-1.html

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2009-6-4 08:49:41 | 显示全部楼层
试试这个,也是用au3写的。
使用说明的原地址:
http://bbs.vc52.cn/thread-28750-1-1.html
kaidashi 发表于 2008-11-10 14:03




楼主没有源码啊?
发表于 2009-6-4 10:00:47 | 显示全部楼层
发表于 2009-6-4 10:35:22 | 显示全部楼层
支持下,要是有源码就更好了
发表于 2009-6-7 20:49:33 | 显示全部楼层
还不错哦
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-23 01:49 , Processed in 0.089333 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表