Ist das nur ein Konzept oder soll das ernsthaft verwendet werden? Wenn ja, solltest Du in der
Unit dxIDTPEncryptionProviderRCx nicht das Delphi-Random verwenden, was ja bekanntermaßen nicht besonders geeignet ist für Kryptoanwendungen. Außerdem wird es noch weiter verschlimmbessert durch
Salt[I] := Random(255)
, gemeint ist wohl
Salt[I] := Random(256)
.
Edit: Weiter ist mM ein Offset-Fehler mit Bufferoverflow-Potential vorhanden: In
RCxEncode(FRCx, Salt[1], Output^, FSaltLength)
muß die
1 doch wohl durch
0 oder Low(Salt) ersetzt werden.
Gruß Gammatester