Shulou(Shulou.com)06/03 Report--

This article mainly introduces vbs how to achieve imail password decryption, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand.

The code is as follows:

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)

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.