Serv-U软件密码加密函数 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- Serv-U软件密码加密函数 (http://www.webasp.net/article/12/11567.htm)

-- 作者：未知 -- 发布日期： 2004-07-01

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

webasp.net