Crypt512

To encrypt or decrypt any string
' Strii is the required text to protect
' PwdNr is the Encryption/Decryption number
By Rodik (rodik@hehe.com), Jul 12 2002


Public

Tested

My Own Work

Strii, PwdNr

If Not str = Crypt512(Crypt512(str, pwdNr), pwdNr) Then
The password would have to be changed in order for it to work properly.

Views 4024 Downloads 1259