Ich habe noch eine etwas ältere Version von
DEC (Version 6.2 laut readme).
Delphi-Quellcode:
function TDECHash.CalcString(const Value: RawByteString; Format: TDECFormatClass): RawByteString;
var
Buf: TBytes;
begin
Result := '';
if Length(Value) > 0 then
{$IF CompilerVersion >= 24.0}
Result := BytesToRawString(ValidFormat(Format).Encode(CalcBuffer(Value[low(Value)], Length(Value) * SizeOf(Value[low(Value)]))))
{$ELSE}
Result := BytesToRawString(ValidFormat(Format).Encode(CalcBuffer(Value[1], Length(Value) * SizeOf(Value[1]))))
{$IFEND}
else
begin
SetLength(Buf, 0);
Result := BytesToRawString(ValidFormat(Format).Encode(CalcBuffer(Buf, 0)));
end;
end;
Hier kommt der richtige MD5-Hash raus.