• Home
 · 
• Miscellaneous
 · 
• Encryption

Encryption

Encrypts and Decrypts a string easily

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


Rate Encryption

• 1
• 2
• 3
• 4
• 5

(38(38 Vote))

'create 3 text boxes
'to encrypt
text2.text=encrypt(text1.text)

'to decrypt
text3.text=decrypt(text2.text)