Hash file int a variable

[jcpetu]

Hello forum, from _Crypt_HashFile example that comes with Autoit, I would like to write in the console as it appears on the GUI and put into a variable the return value of the function.

I attempted to pass it from binary to string without success. Any help will he appreciated.

Thanks a lot.

expandcollapse popup

#include <Crypt.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <String.au3>
Local $bAlgorithm = $CALG_SHA1
GUICreate("Hash File", 425, 70)
Local $iInput = GUICtrlCreateInput(@ScriptFullPath, 5, 5, 200, 20)
Local $iBrowse = GUICtrlCreateButton("...", 210, 5, 35, 20)
Local $iCombo = GUICtrlCreateCombo("", 250, 5, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "MD2|MD4|MD5|SHA1", "SHA1")
Local $iCalculate = GUICtrlCreateButton("Calculate", 355, 40, 65, 25)
Local $iHashLabel = GUICtrlCreateLabel("Hash Digest", 5, 50, 350, 25)
GUISetState(@SW_SHOW)
_Crypt_Startup() ; To optimize performance start the crypt library.
While 1
Switch GUIGetMsg()
  Case $GUI_EVENT_CLOSE
   Exit
  Case $iBrowse
   Local $sFilePath = FileOpenDialog("Open a file", "", "All files (*.*)") ; Select a file to find the hash.
   If @error Then
    ContinueLoop
   EndIf
   GUICtrlSetData($iInput, $sFilePath) ; Set the inputbox with the filepath.
   GUICtrlSetData($iHashLabel, "Hash Digest") ; Reset the hash digest label.
  Case $iCombo ; Check when the combobox is selected and retrieve the correct algorithm.
   Switch GUICtrlRead($iCombo) ; Read the combobox selection.
    Case "MD2"
     $bAlgorithm = $CALG_MD2
    Case "MD4"
     $bAlgorithm = $CALG_MD4
    Case "MD5"
     $bAlgorithm = $CALG_MD5
    Case "SHA1"
     $bAlgorithm = $CALG_SHA1
   EndSwitch
  Case $iCalculate
   Local $sRead = GUICtrlRead($iInput)
   If StringStripWS($sRead, 8) <> "" And FileExists($sRead) Then ; Check there is a file available to find the hash digest
    Local $bHash = _Crypt_HashFile($sRead, $bAlgorithm) ; Create a hash of the file.
    GUICtrlSetData($iHashLabel, $bHash) ; Set the hash digest label with the hash data.
    ConsoleWrite(BinaryToString($bHash))
   EndIf
EndSwitch
WEnd
_Crypt_Shutdown() ; Shutdown the crypt library.

[kylomas]

jcpetu,

Try the following...

expandcollapse popup

#include <Crypt.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <String.au3>
Local $bAlgorithm = $CALG_SHA1
GUICreate("Hash File", 425, 70)
Local $iInput = GUICtrlCreateInput(@ScriptFullPath, 5, 5, 200, 20)
Local $iBrowse = GUICtrlCreateButton("...", 210, 5, 35, 20)
Local $iCombo = GUICtrlCreateCombo("", 250, 5, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "MD2|MD4|MD5|SHA1", "SHA1")
Local $iCalculate = GUICtrlCreateButton("Calculate", 355, 40, 65, 25)
Local $iHashLabel = GUICtrlCreateLabel("Hash Digest", 5, 50, 350, 25)
GUISetState(@SW_SHOW)
_Crypt_Startup() ; To optimize performance start the crypt library.

local $myhash = ''                                          ;  <------ to hold the hash value

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $iBrowse
            Local $sFilePath = FileOpenDialog("Open a file", "", "All files (*.*)") ; Select a file to find the hash.
            If @error Then
                ContinueLoop
            EndIf
            GUICtrlSetData($iInput, $sFilePath) ; Set the inputbox with the filepath.
            GUICtrlSetData($iHashLabel, "Hash Digest") ; Reset the hash digest label.
        Case $iCombo ; Check when the combobox is selected and retrieve the correct algorithm.
            Switch GUICtrlRead($iCombo) ; Read the combobox selection.
                Case "MD2"
                    $bAlgorithm = $CALG_MD2
                Case "MD4"
                    $bAlgorithm = $CALG_MD4
                Case "MD5"
                    $bAlgorithm = $CALG_MD5
                Case "SHA1"
                    $bAlgorithm = $CALG_SHA1
            EndSwitch
        Case $iCalculate
            Local $sRead = GUICtrlRead($iInput)
            If StringStripWS($sRead, 8) <> "" And FileExists($sRead) Then ; Check there is a file available to find the hash digest
                Local $bHash = _Crypt_HashFile($sRead, $bAlgorithm) ; Create a hash of the file.
                GUICtrlSetData($iHashLabel, $bHash) ; Set the hash digest label with the hash data.

                ConsoleWrite('Hash = ' & $bHash & @lf)      ; <-------  write hash to console
                $myhash = $bHash                            ; <-------  save hash to variable
                msgbox(0,'Yo, this is the hash value!!',$bHash) ; <----  just for grins

            EndIf
    EndSwitch
WEnd
_Crypt_Shutdown() ; Shutdown the crypt library.

kylomas

[jcpetu]

Kylomas, now it works. Thanks a lot and regards.

[guinness]

That example I wrote ages ago. Wow it's badly designed, back when I didn't know much about anything. Sorry guys.