<%

'==================================================

'函数名：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

%>