/trunk/TODO.txt |
---|
1,6 → 1,8 |
1. Make it Unicode and Win11 compatible. |
New DEC required? https://github.com/MHumm/DelphiEncryptionCompendium |
2. Avoid 4GB+ ZIP compression to avoid data loss |
3. Check where we have stopped development in 2007. Are there unfinished things? Anything we should change? Anything we should remove? |
/trunk/VCL_DEC/DECHash.pas |
---|
695,7 → 695,7 |
for J := 0 to DigestSize -1 do |
R := R xor Digest[J]; |
Result[I +1] := Char(R); |
Result[I +1] := AnsiChar(R); |
end; |
finally |
Free; |
/trunk/VCL_DEC/DECUtil.pas |
---|
27,7 → 27,7 |
uses Windows, SysUtils, Classes, CRC; |
type |
Binary = String; // LongString with Binary Contens |
Binary = AnsiString; // LongString with Binary Contents |
{$IFNDEF VER_D4H} |
LongWord = type Integer; |
{$ENDIF} |
371,7 → 371,7 |
procedure ProtectBinary(var Value: Binary); |
begin |
UniqueString(String(Value)); |
UniqueString(AnsiString(Value)); |
ProtectBuffer(Pointer(Value)^, Length(Value)); |
Value := ''; |
end; |