Encrypts and decrypts text
Encrypts and decrypts text
API Declarations
'add two command buttons named cmdEnc, cmdDec
Rate Encrypts and decrypts text
(1(1 Vote))
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
Encrypts and decrypts text Comments
No comments yet — be the first to post one!
Post a Comment