Imail密码加密算法及VBS实现

imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要打开注册表就可以看到imail里的所有信息,包括用户的密码. 细节:
imail将企业邮局信息全部存储在:
hkey_local_machine\software\ipswitch\imail\domains\<domainname>\users\<username>
这样一个键里,其中domainname是邮局名,username是用户名,而在<username>下有一个名叫password的键值则是存储的用户密码.密码并不是明文存储的,而是结这了简单的加密运行后生成的,他的加密过程如下:
1.读取用户名,并将其全部转为小写
2.将用户名每个数字转为对应的ascii码
3.计算出用户名里每个字母和第一个字母的偏移量
4.计算出每个密码字母对应的ascii码
5. 将密码的每个ascii码加上参考值(用户名首字母的ascii减去97)再加上用户名对应的偏移量
6.再对应密码表就可以得到密码了.
具体程序如下: 以下是引用片段： sub initcode(byref infos) '自动生成密码表
count=-97
codearray=array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f")
for z=0 to ubound(codearray)
for y=0 to ubound(codearray)
infos.add cstr(count),codearray(z) & codearray(y)
count=count 1
next
next
end sub function getimailpassword(user,pass) 'imail密码加密函数
encryptcode=""
set objdict=createobject("scripting.dictionary")
call initcode(objdict)
user=lcase(user) '将用户转为小写
firstchar=left(user,1)
firstcharcode=asc(firstchar) '得到首字母的ascii码
reference=firstcharcode-97 '得到参考值
execute "dim usercode(" & len(user)-1 & ")" '定义两个存放用户与密码ascii的数组
execute "dim passcode(" & len(pass)-1 & ")"
for i=0 to len(user)-1 '取得用户字母的偏移量
uchar=asc(mid(user,i 1,1))
usercode(i)=firstcharcode-uchar
next
for j=0 to len(pass)-1 '取得密码对应的新值
pchar=asc(mid(pass,j 1,1))
ipos=j mod len(user)
passcode(j)=pchar reference-usercode(ipos)
next
for k=0 to ubound(passcode) '查询密码表,最后得到密码
encryptcode= encryptcode & objdict.item(cstr(passcode(k)))
next
getimailpassword=encryptcode
end function iuser="web9898" '测试用的imail用户名
ipass="web9898.cn" '测试用的imail密码
wscript.echo ipass & "加密后的密码是:" & getimailpassword(iuser,ipass)