• Home
 · 
• Encryption
 · 
• This code let you encrypt and decrypt your text with simple code.

This code let you encrypt and decrypt your text with simple code.

This code let you encrypt and decrypt your text with simple code.

Rate This code let you encrypt and decrypt your text with simple code.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim S,N as variant
private sub command1_click()
'Encrypt the text in text1
for i=1 to len(text1.text)
s=mid(text1,i,1)
n=n & chr(asc(s)-1)
next
text2.text=n
n=""
end sub

private sub command2_click()
'Decrypt the text back as normal
for i=1 to len(text2.text)
s=mid(text2,i,1)
n=n & chr(asc(s)+1)
next
text3.text=n
n=""
end sub