[ReaperX]

Converts:
---------------------
- String to Binary
- Binary to String
- String to Hex
- Hex to String
---------------------

Code:

#include <String.au3> Main() StringToB() StringToH() BinaryToS() HexToS() Func Main() GUIDelete() GUICreate("String Converter", 250, 230) $title = GUICtrlCreateLabel("String Converter by ReaperX", 55, 20) $StringToB = GUICtrlCreateButton("String -> Binary", 75, 60, 100, 30) $StringToH = GUICtrlCreateButton("String -> Hex", 75, 90, 100, 30) $BinaryToS = GUICtrlCreateButton("Binary -> String", 75, 120, 100, 30) $HexToS = GUICtrlCreateButton("Hex -> String", 75, 150, 100, 30) $about = GUICtrlCreateButton("About", 0, 210, 80, 20) $exit = GUICtrlCreateButton("Exit", 170, 210, 80, 20) GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit Select Case $msg = $StringToB StringToB() Case $msg = $StringToH StringToH() Case $msg = $BinaryToS BinaryToS() Case $msg = $HexToS HexToS() Case $msg = $about MsgBox(0, "About", "Created By ReaperX (C) 2011.") Case $msg = $exit Exit EndSelect WEnd EndFunc ;==>Main Func StringToB() GUIDelete() GUICreate("String Converter", 300, 260) $title = GUICtrlCreateLabel("String To Binary", 110, 50) $text_label = GUICtrlCreateLabel("Text String:", 15, 101) $text = GUICtrlCreateInput("", 75, 100, 170, 18) GUICtrlSetTip($text, "String to Convert to Binary.") $result = GUICtrlCreateInput("", 75, 130, 170, 18) GUICtrlSetTip($result, "Conversion Displayed Here.") $result_label = GUICtrlCreateLabel("Result:", 35, 131) $convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30) $back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20) $copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20) GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.") $converter = "" GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit Select Case $msg = $convert $read = GUICtrlRead($text) $converter = StringToBinary($read) GUICtrlSetData($result, $converter) Case $msg = $back Main() Case $msg = $copy ClipPut($converter) MsgBox(0, "Copied!", "Conversion Copied to Clipboard!") EndSelect WEnd EndFunc ;==>StringToB Func StringToH() GUIDelete() GUICreate("String Converter", 300, 260) $title = GUICtrlCreateLabel("String To Hex", 110, 50) $text_label = GUICtrlCreateLabel("Text String:", 15, 101) $text = GUICtrlCreateInput("", 75, 100, 170, 18) GUICtrlSetTip($text, "String to Convert to Hex.") $result = GUICtrlCreateInput("", 75, 130, 170, 18) GUICtrlSetTip($result, "Conversion Displayed Here.") $result_label = GUICtrlCreateLabel("Result:", 35, 131) $convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30) $back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20) $copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20) GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.") $converter = "" GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit Select Case $msg = $convert $read = GUICtrlRead($text) $converter = _StringToHex($read) GUICtrlSetData($result, $converter) Case $msg = $back Main() Case $msg = $copy ClipPut($converter) MsgBox(0, "Copied!", "Conversion Copied to Clipboard!") EndSelect WEnd EndFunc ;==>StringToH Func BinaryToS() GUIDelete() GUICreate("String Converter", 300, 260) $title = GUICtrlCreateLabel("Binary To String", 110, 50) $text_label = GUICtrlCreateLabel("Binary String:", 8, 101) $text = GUICtrlCreateInput("", 75, 100, 170, 18) GUICtrlSetTip($text, "Binary String to Convert to Text.") $result = GUICtrlCreateInput("", 75, 130, 170, 18) GUICtrlSetTip($result, "Conversion Displayed Here.") $result_label = GUICtrlCreateLabel("Result:", 35, 131) $convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30) $back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20) $copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20) GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.") $converter = "" GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit Select Case $msg = $convert $read = GUICtrlRead($text) $converter = BinaryToString($read) GUICtrlSetData($result, $converter) Case $msg = $back Main() Case $msg = $copy ClipPut($converter) MsgBox(0, "Copied!", "Conversion Copied to Clipboard!") EndSelect WEnd EndFunc ;==>BinaryToS Func HexToS() GUIDelete() GUICreate("String Converter", 300, 260) $title = GUICtrlCreateLabel("Hex To String", 110, 50) $text_label = GUICtrlCreateLabel("Hex String:", 15, 101) $text = GUICtrlCreateInput("", 75, 100, 170, 18) GUICtrlSetTip($text, "Hex String to Convert to Text.") $result = GUICtrlCreateInput("", 75, 130, 170, 18) GUICtrlSetTip($result, "Conversion Displayed Here.") $result_label = GUICtrlCreateLabel("Result:", 35, 131) $convert = GUICtrlCreateButton("Convert", 130, 160, 50, 30) $back = GUICtrlCreateButton("<- Back", 0, 0, 45, 20) $copy = GUICtrlCreateButton("Copy To Clipboard", 105, 200, 100, 20) GUICtrlSetTip($copy, "Copy Conversion Result to Clipboard.") $converter = "" GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit Select Case $msg = $convert $read = GUICtrlRead($text) $converter = _HexToString($read) GUICtrlSetData($result, $converter) Case $msg = $back Main() Case $msg = $copy ClipPut($converter) MsgBox(0, "Copied!", "Conversion Copied to Clipboard!") EndSelect WEnd EndFunc