Serv-U软件密码加密函数
类别: ASP教程 
<!--#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
%>
<%
\'==================================================
\'函数名：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
%>
- 上一篇: Dictionary在权限管理中的应用
- 下一篇: 加密处理使密码更安全[CFS编码加密
