/ Snippet Library - View Code

Visual Basic / Encryption / Text Encryption

Snippet details

ID: 7

Viewed: 1373

Added: 2001-11-21

Version:

Snippets in this catagory
Show Printable Version

Encrypts a text string.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'add this into a form with 3 Textboxes and a Command Button 'Text1 is the message to encypt/decrypt 'Text2 is the "1" or anything else (tells whetehrt o encrypt or not) 'Text3 is the result Private Sub Command1_Click() Dim iSeed As Integer Dim keyTxt, messageTxt, decrypt, directionTxt As String keyText = "dog" messageTxt = Text1.Text directionTxt = Text2.Text iSeed = 0 Rnd (-1) Randomize (iSeed) For i = 1 To Len(keyTxt) iSeed = iSeed + Asc(Mid(keyTxt, i, 1)) Next decrypt = "" For i = 1 To Len(messageTxt) If (directionTxt = "1") Then decrypt = decrypt & Chr((Asc(Mid(messageTxt, i, 1)) + (Int(Rnd() * 10)))) Else decrypt = decrypt & Chr((Asc(Mid(messageTxt, i, 1)) - (Int(Rnd() * 10)))) End If Next Text3.Text = decrypt

No Reviews to show