README.md
December 4, 2022 ยท View on GitHub
Description
Encrypts and Decrypts a string easily
More Info
| Submitted On | |
| By | ND4SPD |
| Level | Unknown |
| User Rating | 4.2 (161 globes from 38 users) |
| Compatibility | VB 3.0, VB 4.0 (16-bit), VB 4.0 (32-bit), VB 5.0, VB 6.0 |
| Category | Miscellaneous |
| World | Visual Basic |
| Archive File |
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
Source Code
'create 3 text boxes
'to encrypt
text2.text=encrypt(text1.text)
'to decrypt
text3.text=decrypt(text2.text)