Hexadecimal Editor

[Joke758]

I know the GUI looks like crap..

Don't edit big program because it's kinda slow..

I don't know why but I can't write something when I open a file...

;By Joke758
#include <GUIConstants.au3>

$Form1 = GUICreate("Hexadecimal editor - By Joke758", 683, 553, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 8, 48, 665, 465)
GUICtrlCreateLabel("Hexadecimal editor in AutoIt by Joke758", 184, 8, 327, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Open", 264, 520, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Save", 352, 520, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        If $msg = $button1 Then
            $file = FileOpenDialog ( "Choose a file", "C:\", "Any Files (*.*)" )
            GuiCtrlSetData ( $edit1, StringTrimLeft ( String(BinaryString(FileRead($file) ) ), 2 ) )
        EndIf
       
        If $msg = $button2 Then
            $save = FileSaveDialog ( "Save as..", "C:\", "Any Files (*.*)" )
            $v_executable = '0x' & GuiCtrlRead ( $edit1 )
            Local $h_Open = FileOpen($save, 2)
            FileWrite($h_Open, BinaryString($v_executable))
            FileClose($h_Open)
            MsgBOx ( 64, "Hexadecimal editor", "File saved!" )
        EndIf
    EndSelect
WEnd
Exit

Edited January 3, 2007 by Joke758

[Joke758]

1day/30 views and no replies

I will maybe make a winzip in autoit. I need an algorithm to reduce the size of the hexadecimal numbers. I was thinking to put each bytes in binary ( very slow process ) then my program will change the 11111 to 51 and 000 to 30. But I think it will be very slowwww.

[jvanegmond]

I've just tried this. It's ok, but I'd rather have a professional editor. It's funny how it sometimes loads up to 10 seconds. ^^

[spyrorocks]

Looks cool.

[A. Percy]

Hey! Try creating a stereogram!