Login Register




⚠️ Domain Changed /🎂 Happy 14th Birthday Sinisterly!
Proxyvizr - The Proxy Marketplace (Residential / Mobile / Datacenter / ISP). 10+ Providers, Instant Auto-delivery, Pay with Crypto.


[AutoIt] String Converter filter_list
Author
Message
ReaperX Offline
Registered (Bronze)
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 109
Threads: 26
Reputation: 0
Currency: 0 SP
[AutoIt] String Converter 11-18-2011, 12:58 PM #1
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
(This post was last modified: 11-18-2011, 10:14 PM by Skullmeat.)

Reply

ReaperX Offline
Registered (Bronze)
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 109
Threads: 26
Reputation: 0
Currency: 0 SP
[AutoIt] String Converter 11-18-2011, 12:58 PM #2
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
(This post was last modified: 11-18-2011, 10:14 PM by Skullmeat.)

Reply

Jacob Offline
Registered (Bronze)
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 2,476
Threads: 272
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-18-2011, 08:20 PM #3
my handy characters is this but times 10 Biggrin

Website
Reply

1234hotmaster Offline
No code no life
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 2,367
Threads: 170
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-18-2011, 10:15 PM #4
Fixed your code to make it work Smile

Nice program =]
Pierce the life fibers with your drill.

Reply

ReaperX Offline
Registered (Bronze)
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 109
Threads: 26
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-19-2011, 01:21 AM #5
Thanks And it Worked Anyway... What had to Be Fixed?

Reply

1234hotmaster Offline
No code no life
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 2,367
Threads: 170
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-19-2011, 01:46 AM #6
it didn't... You didn't include String.au3 which is needed for _StringToHex and _HexToString and the GUIConstants.au3 which the $GUI_EVENT_CLOSE is in it and i replaced it with -3 which is the same except no need for the include =]
Pierce the life fibers with your drill.

Reply

ReaperX Offline
Registered (Bronze)
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 109
Threads: 26
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-19-2011, 05:45 PM #7
(11-19-2011, 01:46 AM)1234Darkmaster Wrote: it didn't... You didn't include String.au3 which is needed for _StringToHex and _HexToString and the GUIConstants.au3 which the $GUI_EVENT_CLOSE is in it and i replaced it with -3 which is the same except no need for the include =]

Oh Thanks. I Had Included String.au3 but i Must have Accidently Taken it Out When i Copied the Code. xD

Reply

Mediocrity_mybb_import6293 Offline
May the BruteForce be with you
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 944
Threads: 67
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-19-2011, 05:46 PM #8
Nice programme Darkmaster was right it wouldnt of worked withought the String.au3 include
<?php echo "Very inactive at this current moment in time"; ?>
[Image: Z8KDe.png]

Website
Reply

ReaperX Offline
Registered (Bronze)
 ***
Registered (Bronze)
Fourteen Years of Service
Posts: 109
Threads: 26
Reputation: 0
Currency: 0 SP
RE: [AutoIt] String Converter 11-19-2011, 05:49 PM #9
(11-19-2011, 05:46 PM)peggy Wrote: Nice programme Darkmaster was right it wouldnt of worked withought the String.au3 include
i know


Reply