最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
Serv-U软件密码加密函数
时间:2022-06-30 09:15:36 编辑:袖梨 来源:一聚教程网
<%
'==================================================
'函数名: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
%>
相关文章
- 《塞尔达传说王国之泪》实用稀有材料速刷视频策略 05-16
- 家园3修改器在哪里下载 05-16
- 金铲铲之战S11夜幽九五阵容怎么搭配 05-16
- zb官网下载最新版 05-16
- aex交易所app苹果版 05-16
- aex交易平台官网最新版 05-16