Search Tools Links Login

Unbreakable Encryption


Visual Basic 6, or VB Classic

'this is probably the crappest encryption going here
'i wrote this cause i saw it on descovery channel
'its an encryption that has been used for ages even used
'in wars
'its supposed to use passwords and encode whole
'sentences but i didn't feel like doing that
'i will soon, mabey this weekend
'anyway what this does it gets the ascii code of the
'uppercase letter in text1 and adds the ascii code of
'the uppercase letter in text2 it then subtracts 64 from
'it and converts this to a new character to test draw a
'table similar to this one:
'A|B|C|D|E|F|G|H|I|J ETC. UNTIL Z.
'B|C|D|E|F|G|H|I|J|K
'C|D|E|F|G|H|I|J|K|L
'D
'E
'ETC. UNTIL Z
'YOU GET THE PICTURE
'Now take the word you want to encode say norm and choose
'password say dog . what you do now is go to the 1st
'letter of the password on the top row and the 1st letter
'of the text in the vertical row and move down/across until
'they meet. this is the encoded character. you keep doing
'this until the text is encoded. if the password is at the
'end start at the beginning again.
'to decode do the same as the encryption but now you do
'the password in the vertical side and the text on the
'horizontal side
'tada
'Themba Kriger : wayne_kerr@hushmail.com send me any
'modifications plz! thanx

Original Author: Themba Kriger

Inputs

the password and the text to encrypt decrypt

Assumptions

'this is probably the crappest encryption going here
'i wrote this cause i saw it on descovery channel
'its an encryption that has been used for ages even used
'in wars
'its supposed to use passwords and encode whole
'sentences but i didn't feel like doing that
'i will soon, mabey this weekend
'anyway what this does it gets the ascii code of the
'uppercase letter in text1 and adds the ascii code of
'the uppercase letter in text2 it then subtracts 64 from
'it and converts this to a new character to test draw a
'table similar to this one:
'A|B|C|D|E|F|G|H|I|J ETC. UNTIL Z.
'B|C|D|E|F|G|H|I|J|K
'C|D|E|F|G|H|I|J|K|L
'D
'E
'ETC. UNTIL Z
'YOU GET THE PICTURE
'Now take the word you want to encode say norm and choose
'password say dog . what you do now is go to the 1st
'letter of the password on the top row and the 1st letter
'of the text in the vertical row and move down/across until
'they meet. this is the encoded character. you keep doing
'this until the text is encoded. if the password is at the
'end start at the beginning again.
'to decode do the same as the encryption but now you do
'the password in the vertical side and the text on the
'horizontal side
'tada
'Themba Kriger : wayne_kerr@hushmail.com send me any
'modifications plz! thanx

Returns

the encoded decoded text

Side Effects

may cause neasea

About this post

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

Categories

Visual Basic 6

Attachments

CODE_UPLOAD92718242000.zip
Posted: 9/3/2020 3:45:00 PM
Size: 3,952 bytes


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.