• Home
 · 
• Miscellaneous
 · 
• Encrypts and decrypts text

Encrypts and decrypts text

Encrypts and decrypts text

API Declarations


'add two command buttons named cmdEnc, cmdDec




Rate Encrypts and decrypts text

• 1
• 2
• 3
• 4
• 5

(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