|
Displaying Source Code(s)
|
|
Decrypt Function
--------------------------------------------------------------------------------
Description : The Decrypt function changes an encrypted string
into readable text. Decrypt only can decrypt strings encoded
with the Encrypt Function.
<%
Private Function Decrypt(ByVal encryptedstring)
Dim x, i, tmp
encryptedstring = StrReverse( encryptedstring )
For i = 1 To Len( encryptedstring )
x = Mid( encryptedstring, i, 1 )
tmp = tmp & Chr( Asc( x ) - 1 )
Next
Decrypt = tmp
End Function
%>
|
|
|
123
Eng