Encryption

Encrypts and Decrypts a string easily

Original Author: ND4SPD

API Declarations

Public Function Encrypt(text)
For much = 1 To Len(text)
word = Asc(Mid(text, much, 1)) + 10
c$ = c$ & Chr(word)
Encrypt = c$
Next much

End Function
Public Function Decrypt(text)
For many = 1 To Len(text)
jin = Asc(Mid(text, many, 1)) - 10
d$ = d$ & Chr(jin)
Decrypt = d$
Next many
End Function

Code

'create 3 text boxes
'to encrypt
text2.text=encrypt(text1.text)

'to decrypt
text3.text=decrypt(text2.text)


About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 91 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.