Forum: Object-Pascal / Delphi-Language
Delphi
by Dbof,
13. Okt 2008
Danke an alle...
meine Anwendung lässt sich nun kompilieren
Das ist der Code, den ich nun benutze(falls ihn jemand anderes braucht:
procedure Crypt(XFile, KFile: String); //Durch die freundliche Unterstützung von rollstuhlfahrer und Uwe Raabe entstanden
var
fkey, fxfile: TFilestream;
keys: array of Char; // deine Menge weniger 1
Forum: Object-Pascal / Delphi-Language
Delphi
by Dbof,
13. Okt 2008
hat keiner eine Antwort für mich?
Forum: Object-Pascal / Delphi-Language
Delphi
by Dbof,
13. Okt 2008
gut, danke, aber
fxFile.Write(Chr(Ord(buffer) XOR Ord(keys)),{HIER} 1); // XOR
es erscheint ein Fehler bei der markierten Stelle.
test.pas(93): Variable erforderlich
Was für eine Variable wird da verlangt?
Forum: Object-Pascal / Delphi-Language
Delphi
by Dbof,
6. Sep 2008
Hallo an alle !
Ich arbeite seit gestern erst an einem kleinem (Verschlüsselungs-)Programm, welches mir folgendes ermöglicht:
Ich habe 1 Datei, die verschlüsselt werden soll(Datei X) und eine 'Schlüsseldatei'(Datei K), um Datei X zu entschlüsseln. Meine Pläne sind, dass ich die ersten 512 KB aus Datei K auslese, dann Datei X xor 512 KB und dann soll Datei X durch das Ergebnis ersetzt...