Encode / Decode Data to and from Hex
Learn how to take strings and encode them to a data file in HEX format, and how to pull strings from a HEX-encoded file and convert them back into readable text! Please Vote on this Tutorial!
It doesn't format quite right in PSC, so I suggest downloading the htm version and viewing it that way.
Original Author: Jason Allen
Code
Please Vote on this Tutorial!
Ever wanted to create your own encoded program data? Can't figure out how to do it?
This tutorial shows you how to encode and decode your custom data file to a hex format and back again.
Encoding Data to Hex:
Thanks to feedback, I realized that the conversion from hex into dec is a lot easier than I made it before. I updated the tutorial to show the easier way.
'Declare our variables
'StringLength holds the length of the string that we are converting
Dim StringLength As Integer
'MyString holds the string that we are converting
Dim MyString As String
'MyChar holds the current character that we are converting
Dim MyChar As String
'myHex holds the hex version of the current character
Dim myHex As String
'ConvertedString holds the new string in HEX-encoded format
'MyString is whatever you want it to say
MyString = "This is a test string for data encoding"
'First, we take the string and get the length
StringLength = Len(MyString)
'Now, we loop through each character in the string to convert the string one character at a time.
'We have to convert the character first into the ASCII equivalent of the character,
'then convert the ascii value into hex.
'loop through each character of the string
For I = 1 To StringLength
    'get the next character from the string and set myChar to that character. Uses the
    'Mid$(String, Begin, Length) function.
    MyChar = Mid$(MyString, I, 1)
    'check to make sure myChar is not equal to nothing
    If MyChar <> "" Then
       'take the ascii number of the character and convert it to a hex number.
       'The ASC function returns the ASCII number (between 0 and 255) of the character.
       'The HEX function returns the hexadecimal value of the number passed to it
       '(in this case, the ASCII value of the character)
       myHex = Hex(Asc(MyChar))
       'Add the new HEX value to the end of the ConvertedString. We're also going to add a separator
       'to make it easier for us to decode later on. Since HEX goes 0-9 and A-E, we'll use the letter G
       'as a separator between hex values. You can use any letter you prefer, except for 0-9 and A-E
       ConvertedString = ConvertedString & myHex & "G"
    End If
Next I
'Your String is now converted. If you wanted to add another line to the string, for instance, if you are using this to convert a file to hex, just add
'"& VbCrLf" to then end of the Converted String Statement, then keep adding all the strings you want.
'Now, you can output the data to your data file. The great thing about this is that you can create any unused file extension you want. Use the Open
statement as follows:
'Replace Data.Enc with whatever filename you want, Use the "Open Filename For OpenType As FileNumber" Function
Open "Data.Enc" For Append As #1 'Or use For Output for new files
'Print your new ConvertedString to the File
Print #1, ConvertedString
'Reset the string for later use
ConvertedString = ""
'Close the File
Close #1
'You now have a new file that contains your string(s) in encoded hex format. Each line, if applicable, is separated by a Carriage Return.
'Decoding Data from Hex back to text:
'we 'll assume you used the above process and now have a file that contains your text in the encoded hex format.
'First, a few notes: because the character set is always from 0 - 255, we know the highest hex value of any character is FF (255 in dec). Second, we also know that you won't be using the first 16 (0-15) values of the character ASCII set, because they don't represent common text. So we can now correctly assume that the characters that we converted into HEX will ALWAYS be represented by two characters in HEX Format. For example, Spacebar is equal to ASCII 32, which is 20 in HEX. ?© is equal to 255 in ASCII, which is FF in HEX. (note that that is a Y with double dots over it, not the regular Y, which is 89 in ASCII). So Knowing this, we can proceed knowing that every two entries in the encoded file make up one character in real text.
'HexString stores a line from the data file in hex format
Dim HexString As String
'OneChar stores one character at a time from the HexString
Dim OneChar As String
'TwoChar stores sets of two characters from the HexString - which equals one text character after conversion
Dim TwoChar As String
'NewText stores the newly converted to text character.
Dim NewText As String
'Open the encoded file for input, use the "Open Filename for Input as FileNumber" Function
Open "Data.Enc" For Input As #1
'Input lines from encoded file until we reach the end of file (EOF)
While Not EOF(1)
    'input a line
    Line Input #1, HexString
    'Loop through the string positions from 1 to the length of the string (using the LEN function again)
    For I = 1 To Len(HexString)
        'Pull One character at a time from the string, in order. NOTE: the reason we pull one character
        'at a time rather than two (since we know all text = two hex characters), is because we added in
        'the "fake" G, so we have to pull one at a time to make sure we don't pass the G and create errors.
        'If you don't use the added "G", you can modify this function to pull two characters at a time and
        'evaluate the string that way.
        'We again use the Mid function to pull data.
        OneChar = (Mid$(HexString, I, 1))
        'check to see if our "dummy character" of G is the letter we pulled. If it is, we know that TwoChar
        'has two hex values that we can now convert back to text.
        If OneChar = "G" Then
            'The function Val converts the hex string back into dec format
            '(which is equal to the text characters ASCII value).
            'We then use the Chr function to convert the ASCII value back to it's original text value,
            'and add it to the decoded string variable. Then we can reset our variables.
            NewText = Chr(Val("&H" + TwoChar))
            'Add to DecodedString
            DecodedString = DecodedString & NewText
            'reset OneChar and TwoChar
            OneChar = ""
            TwoChar = ""
        Else
            'If we didn't reach the dummy character (G), we know we need to pull another letter
            'from the string, and then add it to our TwoChar variable.
            TwoChar = TwoChar & OneChar
        End If
    Next I
    'Print the line where ever you want. In this example, I will open a new file and print it there.
    Open "Converted.dat" For Output As #2
    Print #1, DecodedString
    'Reset DecodedString for next Line
    DecodedString = ""
Wend
About this post
Posted: 2002-06-01
By: ArchiveBot
Viewed: 114 times
Categories
Attachments
Encode___D70388492002.zip
Posted: 9/3/2020 3:45:00 PM
Size: 3,595 bytes
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.