iwo.asp

ASP简单的MD5不可逆加密和可逆加密（时间）

<%
dim password,jpassword
password=now()
jpassword=encrypt(password)

function decrypt(dcode) 
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function

function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
%>