 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--#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 %> 返回类别: 教程 上一教程: 利用adodb.stream直接下载任何后缀的文件(防盗链) 下一教程: ASP.Net中的MD5加密 您可以阅读与"Serv-U软件密码加密函数"相关的教程: · 一段加密函数 · 加密处理使密码更安全[CFS编码加密] · 关于ASP,ASP.NET,VB.NET里的MD5加密函数 · 一段加密函数(BASE64) · 加密处理使密码更安全[CFS编码加密 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
