|
| Serv-U软件密码加密函数 |
| 〖编辑：Cloudy | 浏览：人次〗 |
<!--#include file="Md5.asp"-->
<%
'==================================================
'函数名：ServUPassEnCode
'作 用：Serv-U软件密码加密函数
'参 数：strPass ------ 字符串
'作 者：netyum(杨嵩)
'时 间：2004年6月28日
'==================================================
Function SerUPassEnCode(strPass)
Dim Char1,Char2,Seed,prePass,EncodePass,FinalPass
If IsNull(strPass) Or strPass="" Then Exit Function
Char1 = Chr(Rand(97,122))
Char2 = Chr(Rand(97,122))
Seed = Char1 & Char2
prePass = Seed & strPass
EnCodePass = Ucase(md5(prePass)) '32位md5
FinalPass = Seed & EnCodePass
SerUPassEnCode = FinalPass
End Function
'==================================================
'函数名：Rand
'作 用：取两个整数之间的随机数
'参 数：n,m ------ 整数
'作 者：netyum(杨嵩)
'时 间：2004年6月28日
'==================================================
Function Rand(n,m)
Dim a,b,t
a = n : b = m
If b < a Then t = b : b = a : a = t
Randomize
Rand = Int(rnd*(b-a+1)+a)
End Function
%>
|
录入时间：2006-05-11 21:44:32 [打印本页]
[关闭窗口]
[返回顶部] |
| 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
