|
Displaying Source Code(s)
|
|
Encrypt Function
--------------------------------------------------------------------------------
Description : The Encrypt function encrypts a string. To decrypt
an encrypted string, use the Decrypt Function. Encrypt replaces
each letter in a string with a different character, including
spaces, and then reverses the scrambled string. Encrypt provides
good enough string encryption.
<%
Private Function Encrypt(ByVal String)
Dim x, i, tmp
For i = 1 To Len( String )
x = Mid( String, i, 1 )
tmp = tmp & Chr( Asc( x ) + 1 )
Next
tmp = StrReverse( tmp )
Encrypt = tmp
End Function
%>
|
|
|