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(法稢) ' 丁20046る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)) '32md5 FinalPass = Seed & EnCodePass SerUPassEnCode = FinalPass End Function '================================================== 'ㄧ计Rand ' ノㄢ俱计ぇ丁繦诀计 '把 计n,m ------ 俱计 ' netyum(法稢) ' 丁20046る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 |