decoderalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 4

  → / @ 5

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 4 → Rev 5

/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;