Encrypt Function:

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.

string = Encrypt(string)
Example Usage:
<%  =  Encrypt("Where are my shoes?")  %>
ASP Source Code:
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 )
	tmp = StrReverse( tmp )
	Encrypt = tmp
End Function