Encrypts and Decrypts a string easily
Original Author: ND4SPD
API Declarations
Public Function Encrypt(text)
For much = 1 To Len(text)
word = Asc(Mid(text, much, 1)) + 10
c$ = c$ & Chr(word)
Encrypt = c$
Next much
End Function
Public Function Decrypt(text)
For many = 1 To Len(text)
jin = Asc(Mid(text, many, 1)) – 10
d$ = d$ & Chr(jin)
Decrypt = d$
Next many
End Function
Code
'create 3 text boxes
'to encrypt
text2.text=encrypt(text1.text)
'to decrypt
text3.text=decrypt(text2.text)