Serv-U软件密码加密函数

<!–#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

%>