serv-u| Function | Encryption <!--#include file= "md5.asp"-->
<%
'==================================================
' Function name: Servupassencode
' Function: Serv-u software password encryption function
' Parameter: Strpass------string
' Author: netyum (Yang Song)
' Time: June 28, 2004
'==================================================
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-bit MD5
Finalpass = Seed & Encodepass
Serupassencode = Finalpass
End Function
'==================================================
' Function name: Rand
' Function: To take a random number between two integers
' Parameter: n,m------integer
' Author: netyum (Yang Song)
' Time: June 28, 2004
'==================================================
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
%>
