JPG hex editor

[Joke758]

That's pretty funny how you can destroy a jpg file only by changing some bytes

expandcollapse popup

;By Joke758
Global $form1
#include <GUIConstants.au3>

$Form2 = GUICreate("Form1", 607, 534, 173, 107)
GUICtrlCreateLabel("JPG Hex Editor By Joke758", 144, 8, 321, 29)
GUICtrlSetFont(-1, 16, 800, 0, "Verdana")
$Edit1 = GUICtrlCreateEdit("", 8, 40, 585, 457)
$Button1 = GUICtrlCreateButton("Save", 150, 504, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Open", 250, 504, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Refresh", 350, 504, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        
        If $msg = $button2 Then
            $open = FileOpenDialog ( "Choose a file", @scriptdir, "JPG Pictures (*.jpg)" )
            $hex = String(BinaryString(FileRead ( $open )))
            GuiCtrlSetData ( $edit1, StringTrimLeft($hex, 2) )
            If $form1 Then
                GuiDelete ( $form1 )
            EndIf
            $Form1 = GUICreate("Picture", 625, 482, 192, 125)
            $Pic1 = GUICtrlCreatePic($open, 0, 0, 625, 481, BitOR($SS_NOTIFY,$WS_GROUP))
            GUISetState(@SW_SHOW)
        EndIf
        
        If $msg = $button3 Then
            $read = '0x' & GuiCtrlRead ( $edit1 )
            $open = FileOpen ( "C:\temp.jpg", 2 )
            FileWrite ( $open, BinaryString ( $read ) )
            FileClose ( $open )
            If $form1 Then
                GuiDelete ( $form1 )
            EndIf
            $Form1 = GUICreate("Picture", 625, 482, 192, 125)
            $Pic1 = GUICtrlCreatePic("C:\temp.jpg", 0, 0, 625, 481, BitOR($SS_NOTIFY,$WS_GROUP))
            GUISetState(@SW_SHOW)
        EndIf
        
        If $msg = $button1 Then
            $save = FileSaveDialog ( "Save file..", @scriptdir, "JPG Pictures (*.jpg)" )
            $open = FileOpen ( $save, 2 )
            FileWrite ( $open, BinaryString ( $read ) )
            FileClose ( $open )
        EndIf
        
    EndSelect
WEnd
Exit

Func OnAutoitExit()
    FileDelete ( "C:\temp.jpg" )
EndFunc

[sohfeyr]

That's pretty funny how you can destroy a jpg file only by changing some bytes

Question: why?

Why would you want to do that? Besides, altering just about any binary file (without knowing what you are doing) is almost certain to render it useless.