DCPcrypt Stringverschlüsselung

[Schorschi5566]

Hat sich erledigt...

Ändert man:

Delphi-Quellcode:

procedure TDCP_hash.UpdateStr(const Str: string);
begin
  Update(Str[1],Length(Str));
end;

in DCPcrypt2.pas nach:

Delphi-Quellcode:

procedure TDCP_hash.UpdateStr(const Str: RawByteString);
begin
  Update(Str[1],Length(Str));
end;

funktioniert es wie erwartet.