Rein Interessehalber, funktioniert mein Beispiel-Code bei Dir nicht oder ist es die falsche Art der "verschluesselung" die ich anwende, weil das Beispiel funktioniert von vorne bis hinten solange es Text ist um den es sich handelt.
Tatsächlich war ich bis eben noch am aufräumen im Code jedoch hab ich jetzt meines Wissens die Funktionen so eingearbeitet, dass es funktionieren sollte, jedoch erscheint nur ein leeres Dokument nach dem Ausführen...ich denke aber das liegt eher an mir
Die beiden verwendeten Prozeduren:
Delphi-Quellcode:
//String aus einer Datei laden Funktion
function LoadStringFromFile(sInFile: String; var sFileString: String): Boolean;
var
FileStream: TFileStream;
begin
Result := False;
if not FileExists(sInFile) then Exit;
FileStream := TFileStream.Create(sInFile, fmOpenRead);
try
if FileStream.Size <> 0 then begin
SetLength(sFileString, FileStream.Size);
FileStream.Read(sFileString[1], FileStream.Size);
Result := True;
end;
finally FileStream.Free end;
end;
//Funktion Ende
//Funktion Verschlüsselung
procedure Verschluesselung(const InputString: string; const Modifier: Byte; var Output: String);
var
s: string;
i: Integer;
b: Byte;
f: file of Byte;
begin
// Datei mit verschluesseltem Inhalt sichern
AssignFile(F, 'C:\Users\Noah\Desktop\hallo.txt');
Rewrite(f);
for i := 1 to Length(InputString) do
begin
b := Ord(InputString[i]) + Modifier;
write(f, b);
end;
CloseFile(F);
// Datei mit verschluesseltem Inhalt laden
AssignFile(F, 'C:\Users\Noah\Desktop\hallo.txt');
Reset(F);
s := '';
while not Eof(F) do
begin
Read(f, b);
s := s + Char(b - Modifier);
end;
CloseFile(F);
Output := S;
end;
//Funktion Ende
Der Button:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
dateistring,output:String;
begin
//String laden (Dateipfad der umzuwandelnden Datei,Ziel String)
LoadStringFromFile(filename,dateistring);
//Verschlüsselung laden
verschluesselung(dateistring,StrToInt(Edit1.text),output);
showmessage(output);
end;
LG Noah