|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;平安|静态|加密|反复做一个完整静态的暗码,让不异的暗码天生分歧的了局
暗码aaa经由第一次运算后了局为:
jlce1d65ec3b91556234879c9db8f6da1123
第二次:
hjmnbe0d01cc1fbd3e18ae7431fa52fb3ce4
第三次:
grttb05901915e121d83ebefad7e809ef1b0
......
固然,亦可复原对照
以下我依据动网MD5函数修正后的代码,
=======================================
word要加密的字符串
前往加密后的word
例:response.writeMd6("aaa")
www.ckuyun.com
=======================================
FunctionMd6(Word)
DimRandom,RandomNum,reRandom,reWord
Randomize
DoWhileLen(Random)<4
RandomNum=Chr(25*rnd+97)
Random=Random&RandomNum
Loop
reRandom=Md5(Random)
reWord=Md5(Word)
Md6=LCase(Random&Md5(reRandom+reWord))
EndFunction
=======================================
Wrod必要考证的字符串,OldWord加密后的原字符串
前往对照后的了局,假如相称前往True,反之False
例:pwd=“aaa“
old_pwd=“grttb05901915e121d83ebefad7e809ef1b0“
ifMd6Back(pwd,old_pwd)=TRUEthen
......
=======================================
FunctionMd6Back(Word,OldWord)
DimRandom,RandomNum,reRandom,reWord
Random=Mid(OldWord,1,4)
reRandom=Md5(Random)
reWord=Md5(Word)
IfOldWord=Random&Md5(reRandom+reWord)Then
Md6Back=True
Else
Md6Back=False
EndIf
EndFunction
[img=1border=0style=,1src=]http://www.ckuyun.com/[/img]
</p>因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。 |
|