原帖由 星驰周 于 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
|