Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
13. Jul 2018
procedure TForm1.Button3Click(Sender: TObject);
var
t: Textfile;
NoahsFilename: String;
begin
// in dieser Zeile holen wir den verschluesselten String zurück
dateistring := CryptFileToString(filename, StrToInt(Edit1.text));
showmessage(dateistring);
// Noah's Speichern
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
13. Jul 2018
Gib da vielleicht einen Namen an der gut ist und nicht den Namen einer .exe Datei.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
13. Jul 2018
var
t: Textfile; // das hier für ReadLn() / WriteLn() funktioniert besser
begin
AssignFile(t,Application.ExeName+'.txt');
Rewrite(t); // <-- wenn Datei neu ist, so wird sie erzeugt.
Writeln(t, dateistring);
CloseFile(t);
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
13. Jul 2018
Kopiere Deine Methode hier als Delphi-Code rein, ich muss mehr sehen, vor allem im oberen deklarations Bereich der hier fehlt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
13. Jul 2018
writeln(f,.....
hatte zu spät gelesen, bin müde :stupid:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
13. Jul 2018
procedure CryptStringToFile(const InputString: string; const Modifier: Byte; const Filename: String);
var
s: string; // <<-- diese Zeile löschen, überbleibsel von all-in-one version
Als Lernprojekt würde ich Dir empfehlen meine Methode in einen Filestream umzuwandeln, das ist nicht all zu schwer und hat eine Steile Lernkurve.
Mein example ist nur QuickAndDirty, bei längeren Texten auch arg...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
12. Jul 2018
Hier meine Variante entheddert so das Du theoretisch damit gleich loslegen kannst, wenn niemand einwände hat.
Nur für Text, wohlgemerkt(!)
procedure CryptStringToFile(const InputString: string; const Modifier: Byte; const Filename: String);
var
s: string;
i: Integer;
b: Byte;
f: file of Byte;
begin
AssignFile(F, Filename);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
12. Jul 2018
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.
(Post #15 meine ich)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
12. Jul 2018
procedure DateiDingens(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, Application.ExeName+'.txt');
Rewrite(f);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
12. Jul 2018
So wie ich das sehe wird nur ein einziger Char in ein Integer umgewandelt weswegen ich ein Array Vorschlug.
(da der Code keine Formatierung besitzt kann ich auch was überlesen haben, sorry falls das so ist)
So in etwa könnte man das wieder lesbar machen mit der Array Methode von oben.
var
s: String;
begin
s := '';
for i := 0 to Size(MyRec)-1 do
s := s + Char(MyRec);
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by KodeZwerg,
12. Jul 2018
Leg Dir ein Array of Byte an und füttere es mit dem String dann Schreibe das Array in ein File.
So in etwa:
var
MyRec: Array of Byte;
begin
for i := 1 to length(InputString) do
MyRec := Ord(InputString);
end;