by Shayne Cairns (5 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 17th April 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Encrypts and decrypts text
API Declarations
'add two command buttons named cmdEnc, cmdDec
sinp = txtInput.Text
sout = ""
For p = 1 To Len(sinp) Step 1
sc = Mid(sinp, p, 1)
nc = Asc(sc) + 3
sout = sout + Chr(nc)
Next p
txtInput.text = sout
end sub
private sub cmdDec_click()
sinp = txtInput.text
sout = ""
For p = 1 To Len(sinp) Step 1
sc = Mid(sinp, p, 1)
nc = Asc(sc) - 3
sout = sout + Chr(nc)
Next p
txtInput.text = sout
ed sub