Serv-U软件密码加密函数

来源： 作者： 出处：巧巧读书 2006-10-01 进入讨论组

• 关 键 词：
• serv-u
• asp

　　<!--#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
%>来自:http://www.qqread.com/asp/2006/10/f228168.html 更多内容请看电脑密码设置手册、加密与解密技术、常用软件加密宝典专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：ServerVariables 对路径的操作（转）

较新的文章：Session 详解