Decrypt Function

Decrypt Function:

The Decrypt function changes an encrypted string into readable text. Decrypt only can decrypt strings encoded with the Encrypt Function.

Syntax:

string = Decrypt(encryptedstring)

Example Usage:

<%
Dim a
a = Encrypt("Where are my shoes?")
%>
<%  =  Decrypt(a)  %>

ASP Source Code:

<%
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
%>