TDataFile Probleme mit Delphi 2010

[himitsu]

Zitat von mkinzler:

Dann ist es u.U. für jemand anderes interssant/brauchbar.

Es gibt seit 1,5 Jahren Unicode, das Projekt wurde seit etwa 6 Jahren nicht mehr weiterentwickelt und es hatte bis jetzt noch keine weitere Anfrage gegeben.
Also falls der TE was Anderes nimmt und sich in Zukunft doch nochmal wer meldet ... eventuell steigt auch er um und wenn nicht, dann kann man es auch später noch machen.

Außerdem wäre es nicht schlecht, wenn man wüßte was nötig ist und wie man dann was anpassen müßte.
- soll es mit Unicode funktionieren
- reicht Ansi
- muß es zu alten Dateien kompatibel sein
- usw.



Wenn es um Sicherheit geht, dann wäre es doch z.B. nicht schlecht, wenn man seine Daten in einen Stream läd und dann das DEC drauf los läßt.

PS: TDataFile nutzt nur eine "billige" XOR-Verschlüsselung, welche direkt mit dem sich einfach nur wiederholenden KEY/Passwort verknüpft ist ... also nicht grade sicher.

Auszug:

Delphi-Quellcode:

procedure TDataFile.DecryptBuf(pBuf: Pointer; BufLen: Integer);
var
  I: Integer;
  P: pByte;
begin
  P := pBuf;
  if FCodeKey <> '' then
    for I := 0 to BufLen - 1 do
    begin
      P^ := Byte(FCodeKey[I mod Length(FCodeKey)]) xor P^;
      inc(P);
    end;
end;

procedure TDataFile.EncryptBuf(pBuf: Pointer; BufLen: Integer);
begin
  DecryptBuf(pBuf, BufLen);
end;