This is my Cogwheel Encryption Method to encrypt and decrypt strings.
Wheel1 is Replace by Wheel2 when Encrypting and Wheel2 is Replace by wheel1 when you are decrypting...
To Encrypt a string, just call the EncryptString function
Text2.Text = EncryptString(Text1.Text)
To Decrypt a string, just call the DecryptString function
Text2.Text = DecryptString(Text1.Text)
This is my First Code Snippet so hope you like it.