Encryption/decryption program

Submitted on: 1/7/2015 10:47:00 PM
By: Steve (from psc cd)  
Level: Beginner
User Rating: By 2 Users
Compatibility: VB 5.0, VB 6.0
Views: 859
     This article explains how to encrypt a message and then decrypt it using an array and loops. Using random letters to change the original letters of the original message.

				First let me explain the algorithm.
For encrypting:
1) Dimension variables
2) Clear all variables
3) get the message
4) Loop through the message
5) In the loop, firstly randomize a number from 1 to 110 and hold this number in an array. Secondly increment a value by 1. Now, get the new character and add it to the encrypted message(Using chr$ in VB).
Now after the loop has finished the message has been encrypted.
To Decrypt it:
1) Get the coded message.
2) Loop through teh coded message.
3) increment a value by 1.
4) by using the Chr$, mid$ and asc functions, take away the ascii relative to codded letter and add the letter to a variable (decoded message).
In a module set these variables:
Global a% 'the value that increments in the loops
Global msgnum(10000) As Long 'the array that holds the ascii numericals relative to the letters
Global codedmsg As String 'the encrypted message
In your encryption procedure:
Dim n%
Dim x%
Dim message$
Dim emessage$
Dim word$
Dim ctext
Dim i As Integer
Erase msgnum 'erase all value in the array
a% = 0
ctext = txtmessage.Text 
word$ = "" 
For i = 1 To Len(ctext) 'loop through the string
x% = Int((110 * Rnd) + 1) 'randomize a number from 1 to 110.
a% = a% + 1 'Increment this value as it is used in the array
 word$ = word$ & Chr$(Asc(Mid(c_text, i, 1)) + x%)
'add the original letter ascii value to the randomized value and produce that character
msgnum(a%) = x% 'hold the randomized number in the array
Next i
codedmsg = word$
In your decryption procedure:
Dim msg$
Dim x%
Dim ctext
Dim word$
Dim decodedmsg
Dim i As Integer
ctext = codedmsg
word$ = ""
a% = 0 
For i = 1 To Len(c_text) 'Loop through the coded message
a% = a% + 1 'Increment value by 1
word$ = word$ & Chr$(Asc(Mid(c_text, i, 1)) - msgnum(a%))
'this time take away the the randomized value, which is held in the array from the codded character ascii value to produce the original letter
Next i
decodedmsg = word$ 'Decoded msg

Other 8 submission(s) by this author


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this article (in the Beginner category)?
(The article with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)

Other User Comments

 There are no comments on this submission.

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular article, please click here instead.)

To post feedback, first please login.