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
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

赞 (0)

相关推荐

  • vbs imail 密码解密

    复制代码 代码如下: on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = &

  • Imail密码加密算法及VBS实现

    Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\<DOMAINNAME>\Users\<USERNAME> 这样一个键里,其中DomainName是邮局名,UserName是用户名,而在<USERNAME>下有一个名叫Pas

  • python密码学RSA密码解密教程

    目录 授权 身份验证 RSA密码解密 本章是前一章的延续,我们使用RSA算法逐步实现加密,并详细讨论它. 用于解密密文的函数是as跟随 : def decrypt(ciphertext, priv_key):    cipher = PKCS1_OAEP.new(priv_key)    return cipher.decrypt(ciphertext) 对于公钥加密或非对称密钥加密,重要的是要保持两个重要的功能,即身份验证和授权. 授权 授权是确认发件人是唯一发送邮件的人的过程.以下代码解释了

  • VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Args = WScript.Arguments Ver="1.1" CloseTime = 5 FileName = WScript.ScriptNam

  • vbs版的解密base64加密的脚本

    复制代码 代码如下: Function fDecode(sStringToDecode)  'This function will decode a Base64 encoded string and returns the decoded string.  'This becomes usefull when attempting to hide passwords from prying eyes.  Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZa

  • Python移位密码、仿射变换解密实例代码

    Python移位密码、仿射变换解密实例代码

    前言 这个代码是很久之前的,已经忘记具体的思路了,你可以结合此文章来了解两个加密方式的内容. 前两个步骤是对应加密方式的函数,第三个步骤是整合. 一.移位密码 def yiwei(string,number): ''' 将字符串的每个字母,向右移动指定的位数,并返回移动后的字符串 如:A 向右移动3位,返回值为D string为字符串,number为整型 A的ASCII码为65 ''' new_string = "" string = string.upper() #转换为大写 for

  • Go实现凯撒密码加密解密

    Go实现凯撒密码加密解密

    目录 1 凯撒密码加密 设计思想 2 Go实现 2.1 导入包 2.2 编写 caesar 方法 3 凯撒密码解密 4 其他实现 5 测试 总结 1 凯撒密码加密 凯撒密码(英语:Caesar cipher),或称凯撒加密.凯撒变换.变换加密,是一种最简单且最广为人知的加密技术. 凯撒密码是一种替换加密技术,明文中的所有字母都在字母表上向后(或向前)按照一个固定数目进行偏移后被替换成密文. 例如,当偏移量是 3 的时候,所有的字母 A 将被替换成 D:B 变成E,以此类推.这个加密方法是以罗马共

  • SrpingDruid数据源加密数据库密码的示例代码

    SrpingDruid数据源加密数据库密码的示例代码

    前言 在工作中遇到这样一个问题:开发过程中将数据库的账号.密码等信息配置在了一个单独的properties配置文件中(使用明文).但运维人员要求在配置文件中的密码一律不得出现明文. 环境 Spring 4.2.6.RELEASE MyBatis 3.4.1 Druid 1.0.14 改造思路 一般spring容器启动时,通过PropertyPlaceholderConfigurer类读取jdbc.properties文件里的数据库配置信息.通过这个原理,我们把加密后的数据库配置信息放到jdbc.

  • Java AES加密和解密教程

    在本教程中,我们将看到如何使用JDK中的Java密码体系结构(JCA)来实现AES加密和解密.对称密钥块密码在数据加密中起重要作用.这意味着同一密钥可用于加密和解密.高级加密标准(AES)是一种广泛使用的对称密钥加密算法. AES算法是一种迭代的对称密钥块密码,它支持128.192和256位的加密密钥(秘密密钥),以对128位的块中的数据进行加密和解密. 在AES中生成密钥的方法有两种:从随机数生成或从给定密码生成. 在第一种方法中,应该从像SecureRandom类这样的加密安全(伪)随机数生

  • mybatis类型转换器如何实现数据加解密

    mybatis类型转换器如何实现数据加解密

    目录 mybatis类型转换器数据加解密 背景需求 mybatis 类型转换器 数据加解密类型转换 使用方法 mybatis密码解密 mybatis的配置 properties的配置 mybatis类型转换器数据加解密 背景需求 对表中的某些字段进行加密,查询之后对字段进行解密,业务代码无需关注加解密环节. mybatis 拦截器 vs 类型转换器 mybatis的拦截器能实现上面的需求,但是会拦截所有的sql语句,如果项目中只是部分sql涉及到加解密操作,还是比较牺牲大局的.实现起来也比较麻烦

随机推荐