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
Regards,
Pradeep Y
|
| Author: Fool To Code 02 Dec 2008 | Member Level: Gold Points : 0 |
good stuff yaar, thanx
|