by Muhammad Umair (1 Submission)
Category: Encryption
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 1st March 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code let you encrypt and decrypt your text with simple code.
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
No comments have been posted about This code let you encrypt and decrypt your text with simple code.. Why not be the first to post a comment about This code let you encrypt and decrypt your text with simple code..