"Verschlüsselung"

[VkPenguin]

Hm.
@Himitsu:
Also ich habe "Embarcadero® RAD Studio XE7 Version 21.0.17017.3725".
In der "ver.inc" taucht folgendes auf:

Delphi-Quellcode:

{$IFDEF VER150} {Borland Delphi 7.0 }
  {$DEFINE VER_D7}
  {$DEFINE VER_D7H}
  {$DEFINE VER_D6H}
  {$DEFINE VER_D5H}
  {$DEFINE VER_D4H}
  {$DEFINE VER_D3H}
  {$DEFINE VER_D2H}
  {$DEFINE VER_D1H}
{$ENDIF}

Das müsste doch eigentlich Funktionieren, oder sehe ich das falsch?

@Jens/Sherlock: Ich werde mir auch eure Ideen mal ansehen und ausprobieren, vielen Dank schonmal!

[mjustin]

Zitat von VkPenguin:

Hm.

Also ich habe "Embarcadero® RAD Studio XE7 Version 21.0.17017.3725".
In der "ver.inc" taucht folgendes auf:

Delphi-Quellcode:

{$IFDEF VER150} {Borland Delphi 7.0 }
  {$DEFINE VER_D7}
  {$DEFINE VER_D7H}
  {$DEFINE VER_D6H}
  {$DEFINE VER_D5H}
  {$DEFINE VER_D4H}
  {$DEFINE VER_D3H}
  {$DEFINE VER_D2H}
  {$DEFINE VER_D1H}
{$ENDIF}

Das müsste doch eigentlich Funktionieren, oder sehe ich das falsch?

Mit Borland Delphi 7.0 würde es funktionieren. Aber Delphi 7.0 ist ein Programm aus dem vorigen Jahrzehnt, im Gegensatz zu XE7

[himitsu]

Delphi XE7 = VER280 = CompilerVersion 28.0 / IDE-Version 21.0
Delphi 7 = VER150 = CompilerVersion 15.0 / IDE-Version 7.0
(Drum gibt es auch kein Windows 9, sondern man springt gleich zu Windows 10 ... Win9x)

Wenn nur mit diesen doofen VERxxx-Defines gearbeitet wird, dann muß man in diesen INCs explizit jede Delphi-Version implementieren, vorallem wenn man das falschrum auswertet (was zu oft gemacht wird)
Falschrum: Funktionen nur aktivieren
Richtigrum: Funktionen bei bekannten Delphi deaktivieren und wenn Delphi unbekannt, dann von neuem Delphi ausgehn

Oder man benutzt endlich mal die CompilerVersion-Konstante, welche seit Delphi 6 existiert

Oder noch besser, man prüft auf Features und nicht auf Versionen.
z.B. UNICODE-Define oder SizeOf(Char) statt Delphi2009+
Es gibt nicht umsonst für's $IF die Funktionen Declared und Defined.

[VkPenguin]

Aber was soll ich denn nun tun? Ich kann doch nicht einfach die Version in die .inc aufnehmen, oder?

[himitsu]

Warum nicht?

[VkPenguin]

Guten Abend,
es tut mir wirklich leid, dass ich mich scheinbar so blöd anstelle, aber ich habe vorhin alle drei von euch vorgeschlagenen Möglichkeiten ausprobiert und komme bei keiner ein Stück weiter. Es muss doch irgendwo eine Art Tutorial für ein einfaches Verschlüsseln von Dateien geben.

Mir ist klar, dass es sehr aufwendig werden kann, wenn man eine wirklich sichere Technik braucht, aber ich will ja nur, dass nicht jeder "Hans" gleich drauf zugreifen kann. Es muss ja keinem großen Hackerangriff standhalten...

Naja. Ich werde mich nochmal auf die Suche machen und schauen, ob ich irgendwo etwas finde, womit ich klarkomme, sonst versuche ich eben, mir selbst etwas zu schreiben. Falls doch noch jemand von euch eine Idee hat wäre ich trotzdem sehr dankbar.

*Edit* Könnte ich nicht auch mit BlockWrite/BlockRead die Datei Stückweise einlesen, diese anhand eines Verfahrens vertauschen und dann speichern? Bevor die Datei mithilfe des Programms zurücksortiert wird wäre sie dann unbrauchbar. Ist selbstverständlich nicht die sicherste Variante, aber das muss es ja wie gesagt auch nicht sein. Meint ihr, das funktioniert?

[OlafSt]

Freund der Sonne,

du wirst doch wohl in der Lage sein,

- eine Datei mit Blockread zu lesen
- die einzelnen Blöcke mit einem simplen XOR zu Verschlüsseln
- den Block in die Zieldatei zu schreiben.

[Mavarik]

Zitat von VkPenguin:

*Edit* Könnte ich nicht auch mit BlockWrite/BlockRead die Datei Stückweise einlesen, diese anhand eines Verfahrens vertauschen und dann speichern? Bevor die Datei mithilfe des Programms zurücksortiert wird wäre sie dann unbrauchbar. Ist selbstverständlich nicht die sicherste Variante, aber das muss es ja wie gesagt auch nicht sein. Meint ihr, das funktioniert?

OMG... Was hat den der Papa schon in #3 vorgeschlagen?

Echt jetzt ein Beispiel? Na gut, aber nicht vollständig!

Delphi-Quellcode:

var
  A : TBytes;
  W : word;    // Nur für kleine Dateien :-) 
...
begin
  ....
  W := Filesize...
  Setlength(A,W+2);
  ....

  Blockread(F,A[2],W); // oder Stream?

  Move(W,a[0],2);  // Wofür wohl Stichwort mitten im "Stream"?

  for i:=2 to high(A) do
    begin
      A[i] := A[i] XOR $FF;             // Version 1.0 
      A[i] := A[i] XOR byte(I AND $FF); // Version 1.5 
    end;
  ...
  Blockwrite(F,A[0],W+2); // oder Stream?
  ...

Mavarik