Hex editor

[tonyatcodeleakers]

I was wondering if there were any udf's available to retrieve the hex of a file, much like hxd.

I did some research and nothing came up. All im looking to do is let say, select a file and have it return the hex information shown in a format like so,.

Thanks in advanced

[Nessie]

Try this:

#include <String.au3>

$sHex = _FileToHex("") ;Your file path here

ConsoleWrite($sHex & @CRLF)

; #FUNCTION# ====================================================================================================================
; Name ..........: _FileToHex
; Description ...: Show the hex code of the file
; Syntax ........: _FileToHex($sPath)
; Parameters ....: $sPath               - The path of the file
; Return values .: On Success - Return the hex code of the file
;                  On Failure -
;                               @error = 1 The file doesn't exist
;                               @error = 2 Unable to open the file
;                               @error = 3 Unable to read the file
;                               @error = 4 Unable to retrive the hex code of the file
; Author ........: Nessie
; Example .......: _FileToHex("C:\myfile.exe")
; ===============================================================================================================================
Func _FileToHex($sPath)
    If Not FileExists($sPath) Then Return SetError(1, 0, "")

    $hOpen = FileOpen($sPath)
    If @error Then Return SetError(2, 0, "")

    $sRead = FileRead($hOpen)
    If @error Then Return SetError(3, 0, "")
    FileClose($hOpen)

    $sHex = _StringToHex($sRead)
    If @error Then SetError(4, @extended, "")

    Return $sHex
EndFunc   ;==>_FileToHex

Hi!

[KaFu]

Maybe is what you're looking for.

Edited May 8, 2013 by KaFu

[tonyatcodeleakers]

Thanks nessie, exactly what i needed, just to make it look cleaner how should i go about formatting it so that the texts adds a space in between every 2 digits and only allows 16 columns.

[Nessie]

Usually we don't code for you, even if you don't show to you some piece of code. But this time i will make an exception.

it's an ungly code...but hey it's 3.30 AM here my mind in holiday

expandcollapse popup

#include <String.au3>

$sHex = _FileToHex("") ;Your file path here
$split = StringRegExp($sHex, "(?s).{1,2}", 3)

$k = 0
$add = ""
$txt = ""


For $i = 0 To UBound($split) - 1
    $k += 1
    If $k < 16 Then
        $add = "  "
        $txt &= $split[$i] & $add
    ElseIf $k = 16 Then
        $add = @CRLF
        $txt &= $split[$i] & $add
        $k = 0
    EndIf
Next

ConsoleWrite($txt)

; #FUNCTION# ====================================================================================================================
; Name ..........: _FileToHex
; Description ...: Show the hex code of the file
; Syntax ........: _FileToHex($sPath)
; Parameters ....: $sPath               - The path of the file
; Return values .: On Success - Return the hex code of the file
;                  On Failure -
;                               @error = 1 The file doesn't exist
;                               @error = 2 Unable to open the file
;                               @error = 3 Unable to read the file
;                               @error = 4 Unable to retrive the hex code of the file
; Author ........: Nessie
; Example .......: _FileToHex("C:\myfile.exe")
; ===============================================================================================================================
Func _FileToHex($sPath)
    If Not FileExists($sPath) Then Return SetError(1, 0, "")

    $hOpen = FileOpen($sPath)
    If @error Then Return SetError(2, 0, "")

    $sRead = FileRead($hOpen)
    If @error Then Return SetError(3, 0, "")
    FileClose($hOpen)

    $sHex = _StringToHex($sRead)
    If @error Then SetError(4, @extended, "")

    Return $sHex
EndFunc   ;==>_FileToHex

Edited May 8, 2013 by Nessie

[tonyatcodeleakers]

Thanks again nellie but to be fair i did ask how to go about it, not for you to code it for me. But regardless thank you