by ND4SPD (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (38 Votes)
Encrypts and Decrypts a string easily
API DeclarationsPublic 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
'create 3 text boxes
'to encrypt
text2.text=encrypt(text1.text)
'to decrypt
text3.text=decrypt(text2.text)