Hex to Text

[Skrip]

expandcollapse popup

#include <GUIConstants.au3>
#include <string.au3>

$Form1 = GUICreate("Hex to Text ~~~ By Firestorm", 657, 722, 199, 111)
$Edit1 = GUICtrlCreateEdit("", 8, 24, 633, 305)
$Edit2 = GUICtrlCreateEdit("", 8, 392, 633, 305)
$Button1 = GUICtrlCreateButton("Text to Hex", 144, 344, 121, 33, 0)
$Button2 = GUICtrlCreateButton("Hex to Text", 360, 344, 129, 33, 0)
$Label1 = GUICtrlCreateLabel("Text:", 8, 8, 28, 17)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label2 = GUICtrlCreateLabel("Hex:", 8, 376, 26, 17)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $info = GUICtrlRead($Edit1)
            $info_set = _StringToHex($info)
            If $info_set = "-1" Then
                GUICtrlSetData($Edit1, "ERROR IN TEXT STRING!!" & @CRLF & "Please revise the string...")
            Else
            GUICtrlSetData($Edit2, $info_set)
            EndIf
        Case $Button2
            $info = GUICtrlRead($Edit2)
            $info_set = _HexToString($info)
            If $info_set = "-1" Then
                GUICtrlSetData($Edit1, "ERROR IN HEX STRING!!" & @CRLF & "Please revise the string...")
            Else
            GUICtrlSetData($Edit1, $info_set)
            EndIf
    EndSwitch
WEnd

I know this has probably been made before, but I felt like making my own. I know this will help me. I seem to work with hex more than I used to.

Edit: Added error checking.

Edited November 9, 2006 by Firestorm