String to binary and binary to string

[Cyber]

Un program relativ foarte simplu

Convert to:
     1. String to Binary
     2. Binary to String

Download: http://www.cyber.rsb-team.com/downloads/BtoSandStoB.exe

Cod:

#include

Global $string, $binary, $msg

$gui = GUICreate("String to binary and binary to string by Cyber", 400, 68)
$get_string = GUICtrlCreateInput("Insert text", 2, 2, 396, 20)
$get_binary = GUICtrlCreateInput("Insert binary", 2, 24, 396, 20)
$but1 = GUICtrlCreateButton("Convert to binary", 2, 46, 196, 20)
$but2 = GUICtrlCreateButton("Convert to text", 200, 46, 196, 20)

GUISetBkColor(0x000000)
GUICtrlSetBkColor($get_string, 0x000000)
GUICtrlSetBkColor($get_binary, 0x000000)
GUICtrlSetColor($get_string, 0xFFFFFF)
GUICtrlSetColor($get_binary, 0xFFFFFF)

GUISetState()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $but1
$string = GUICtrlRead($get_string)
$binary = StringToBinary($string)
GUICtrlSetData($get_binary, $binary)
Case $msg = $but2
$binary = GUICtrlRead($get_binary)
$string = BinaryToString($binary)
GUICtrlSetData($get_string, $string)
EndSelect
WEnd

GUIDelete($gui)

[SkullAds]