Serv-U软件密码加密函数

Serv-U软件密码加密函数

可用于Asp结合Serv-U进行在线Ftp管理

<!--#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  
Rand = Int(rnd*(b-a+1)+a)
End Function
%>