這篇文章主要介紹了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)<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密碼解密-創新互聯
分享地址：http://m.newbst.com/article26/egicg.html

成都網站建設公司_創新互聯，為您提供軟件開發、App設計、做網站、手機網站建設、移動網站建設、面包屑導航

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯