Hex Text Translator!

[AlmarM]

Hey!

I made a Hex Text Translator

Its pretty cool.

"This is an example of my newest program: "Hex Text Translator" would be:

74686973 6973 616E 6578614D706C65 6F66 4D79 6E6577657374 70726F6772614D: "686578 74657874 7472616E736C61746F72"

expandcollapse popup

#include <GUIConstants.au3>

$GUI = GUICreate("Hex Text Translator", 200, 90, -1, -1)
$Input = GUICtrlCreateInput("", 10, 60, 180, 20)
$Button = GUICtrlCreateButton("Hex My Text", 10, 30, 180, 25)
$Credit = GUICtrlCreateLabel("Made by AlmarM", 10, 10)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button
        $string = GUICtrlRead($Input)
        $string = StringReplace($string, "a", "61")
        $string = StringReplace($string, "A", "41")
        $string = StringReplace($string, "b", "62")
        $string = StringReplace($string, "B", "42")
        $string = StringReplace($string, "c", "63")
        $string = StringReplace($string, "C", "43")
        $string = StringReplace($string, "d", "64")
        $string = StringReplace($string, "D", "44")
        $string = StringReplace($string, "e", "65")
        $string = StringReplace($string, "E", "45")
        $string = StringReplace($string, "f", "66")
        $string = StringReplace($string, "F", "46")
        $string = StringReplace($string, "g", "67")
        $string = StringReplace($string, "G", "47")
        $string = StringReplace($string, "h", "68")
        $string = StringReplace($string, "H", "48")
        $string = StringReplace($string, "i", "69")
        $string = StringReplace($string, "I", "49")
        $string = StringReplace($string, "j", "6A")
        $string = StringReplace($string, "J", "4A")
        $string = StringReplace($string, "k", "6B")
        $string = StringReplace($string, "K", "4B")
        $string = StringReplace($string, "l", "6C")
        $string = StringReplace($string, "L", "4C")
        $string = StringReplace($string, "m", "4D")
        $string = StringReplace($string, "M", "4D")
        $string = StringReplace($string, "n", "6E")
        $string = StringReplace($string, "N", "4E")
        $string = StringReplace($string, "o", "6F")
        $string = StringReplace($string, "O", "4F")
        $string = StringReplace($string, "p", "70")
        $string = StringReplace($string, "P", "50")
        $string = StringReplace($string, "q", "71")
        $string = StringReplace($string, "Q", "51")
        $string = StringReplace($string, "r", "72")
        $string = StringReplace($string, "R", "52")
        $string = StringReplace($string, "s", "73")
        $string = StringReplace($string, "S", "53")
        $string = StringReplace($string, "t", "74")
        $string = StringReplace($string, "T", "54")
        $string = StringReplace($string, "u", "75")
        $string = StringReplace($string, "U", "55")
        $string = StringReplace($string, "v", "76")
        $string = StringReplace($string, "V", "56")
        $string = StringReplace($string, "w", "77")
        $string = StringReplace($string, "W", "57")
        $string = StringReplace($string, "x", "78")
        $string = StringReplace($string, "X", "58")
        $string = StringReplace($string, "y", "79")
        $string = StringReplace($string, "Y", "59")
        $string = StringReplace($string, "z", "7A")
        $string = StringReplace($string, "Z", "5A")
        $string = StringReplace($string, "!", "21")
        $string = StringReplace($string, "?", "3F")
        $string = StringReplace($string, ".", "2E")
        $string = StringReplace($string, ",", "2C")
        Run("notepad.exe", "", @SW_MAXIMIZE)
        WinWait("<Ur Notepad Thing>")
        Send($string)
    EndSelect
WEnd

Its like a continue on my 1337 Text Translator

-AlmarM-

[weaponx]

I'm sorry to say but you have posted something very common yet overly complex. This is already builtin to AutoIt...

#include <string.au3>
$String = "I like AutoIt3"
$Hex = _StringToHex($String)
ConsoleWrite("Original String: " & $String & @LF & " Hex: " & $Hex & @CRLF)

$Hex = "49206C696B65204175746F497433"
$String = _HexToString($Hex)
ConsoleWrite("Original Hex: " & $Hex & @LF & " String: " & $String)

[AlmarM]

Aii ;P

[emoyasha]

are those the actual hex values?

[AlmarM]

Yes, those are the real Hex Codes!

[emoyasha]

thanks those could help me out a lot nice try