XProfan

 {$RUNTIME E:XPROFAN-RUNTIMESP11.2aPRFRUN11.2a.Test.EXE}
 {$IQ}
 {$MapFile}
 {$CLEQ} wenn fertig, Exe erzeugen
#include Hashes.pcu=Hash.
 $U Hashes.pcu=Hash.
cls
@Set("Decimals",0)
Print "Lade Datei-Liste... bitte warten"
CLearList
AddFiles *"E:\TestPics\*.jpg"
@ListBox$("Gefundene JPG-Bilder: " + @str$(%GetCount+1),4)
Print "Erstelle MD5-Liste... bitte warten"

WhileLoop 0,%GetCount

    Print @ListBoxItem$(&loop);" >> ";Hash.Hash(@ListBoxItem$(&loop),"MD5")

EndWhile

waitinput
end

DEF testit(3) ! "hashes.dll","testit"

proc stringhash

    parameters in$,hash$
    declare zeile$,dll&,out$,b#
    out$ = $Appdatadir+"Hash.txt"
    dll& =usedll("hashes.dll")
    dim b#, len(in$)
    char b#,0,in$
    Blockwrite out$,b#,0,sizeof(b#)
    dispose b#
    testit(addr(out$),addr(hash$),addr(out$))
    assign #1,out$
    Reset #1
    input #1,zeile$
    close #1
    Assign #1,""
    erase out$
    freedll dll&
    return zeile$

endproc

proc hash

    parameters in$,hash$
    declare zeile$,dll&,out$
    out$ = $Appdatadir+"Hash.txt"
    dll& =usedll("hashes.dll")
    testit(addr(in$),addr(hash$),addr(out$))
    assign #1,out$
    Reset #1
    input #1,zeile$
    close #1
    Assign #1,""
    erase out$
    freedll dll&
    return zeile$

endproc

cls
var test$ = $Winpath+"\Angler.bmp"
Erst in Datei schreiben
print hash(test$,"MD5")
print hash(test$,"CRC32")
ohne in Datei zu schreiben
var t& =  testit(addr(test$),"MD5",chr$(0))
var t$ = string$(t&,0)
Hier könnte man den Zusatz entfernen, weiß nicht ob das zulässig ist
t$ = translate$(t$,"Free for non commercial use","")
t$ = Trim$(translate$(t$,"(c) By Dirk Paehl https://www.paehl.de",""))
Print t$
print
Hier einen Stringhash erstellen
Print "String --> ",stringhash("Hallo Leute","MD5")
waitinput