<%
==================================================
函数名：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.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
