|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。加密|算法简述:
Imail是一个盛行的运转在WindowsNT服务器下的邮件服务器软件,由于设置复杂,简单利用,功效完美。以是如今良多假造主机服务商或企业均是接纳这个邮件体系.
Imail的一切邮局信息,好比用户,暗码都实践上都是存储在盘算机注册表傍边的,以是只必要翻开注册表就能够看到Imail里的一切信息,包含用户的暗码.
细节:
Imail将企业邮局信息全体存储在:
HKEY_LOCAL_MACHINESOFTWAREIpswitchIMailDomains<DOMAINNAME>Users<USERNAME>
如许一个键里,个中DomainName是邮局名,UserName是用户名,而在<USERNAME>下有一个名叫Password的键值则是
存储的用户暗码.暗码并非明文存储的,而是结这了复杂的加密运转后天生的,他的加密历程以下:
1.读取用户名,并将其全体转为小写
2.将用户名每一个数字转为对应的ASCII码
3.盘算出用户名里每一个字母和第一个字母的偏移量
4.盘算出每一个暗码字母对应的ASCII码
5.将暗码的每一个ASCII码加上参考值(用户名首字母的ASCII减往97)再加上用户名对应的偏移量
6.再对应暗码表就能够失掉暗码了.
详细程序以下:
<%
出格申明,此程序是举世万维原创程序,并不是转摘,以是假如您转摘,请说明出处,感谢.
作者:举世万维,专业域名注册,假造主机服务商
网址:http://www.netInter.cn
以上信息与文章注释是不成支解的一部分,以是假如您要转载本文章,您必需保存以上信息.
subinitCode(ByRefInfos)主动天生暗码表
Count=-97
CodeArray=Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F")
forz=0toUbound(CodeArray)
fory=0toUbound(CodeArray)
Infos.AddCstr(Count),CodeArray(z)&CodeArray(y)
Count=Count+1
next
next
endsub
FunctionGetImailPassword(User,Pass)Imail暗码加密函数
encryptCode=""
SetobjDict=CreateObject("Scripting.Dictionary")
CallinitCode(objDict)
User=Lcase(User)将用户转为小写
FirstChar=left(User,1)
FirstCharCode=asc(FirstChar)失掉首字母的ASCII码
Reference=FirstCharCode-97失掉参考值
execute"DimUserCode("&len(User)-1&")"界说两个寄存用户与暗码ASCII的数组
execute"DimPassCode("&len(Pass)-1&")"
fori=0tolen(User)-1获得用户字母的偏移量
UChar=Asc(mid(User,i+1,1))
UserCode(i)=FirstCharCode-UChar
next
forj=0tolen(Pass)-1获得暗码对应的新值
PChar=Asc(mid(Pass,j+1,1))
iPos=jmodlen(User)
PassCode(j)=PChar+Reference-UserCode(iPos)
next
fork=0toUbound(PassCode)查询暗码表,最初失掉暗码
encryptCode=encryptCode&objDict.item(Cstr(PassCode(k)))
next
GetImailPassword=encryptCode
endfunction
iUser="web9898"测试用的Imail用户名
iPass="web9898.cn"测试用的Imail暗码
Response.writeiPass&"加密后的暗码是:"&GetImailPassword(iUser,iPass)
%>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时. |
|