Hallo liebe Community,
ich bräuchte mal kurz Hilfe beim Entschlüsseln einer Textdatei, welche ich vorher verschlüsseln lassen habe.
Ich habe den Inhalt eines Editfeldes verschlüsselt und in ein MemoFeld geschrieben und anschließend in ein Textfile gespeichert.
--> siehe hier:
Delphi-Quellcode:
procedure TFormstart.ButtonPWspeichernClick(Sender: TObject);
var
i, s: integer;
begin
Memo2.Clear;
s:=strtoint(edits1.text);
for i:=1 to length(editPWeingabe.text) do
begin
fpw[i] :=ord(editPWeingabe.text[i]);
FormStart.Memo2.Lines.Add('');
FormStart.Memo2.Lines.Add(inttostr(fpw[i]+s));
FormStart.Memo2.Lines.SaveToFile('pw1.txt');
end;
showmessage('Passwort erfolgreich geändert!');
end;
Nun zu dem, was nicht funktioneren will:
Delphi-Quellcode:
procedure TFormStart.ButtonPWladenClick(Sender: TObject);
anz: integer;
fpw:array [1..40] of integer;
a, s:integer;
z:char;
passw, neu, zeile :string;
begin
assignfile (tf, 'pw1.txt');
reset(tf);
readln(tf,zeile);
if zeile = Editpw.text}
neu:='';
s:=strtoint(edits1.Text);
while not eof(tf) do
begin
readln(tf,zeile);
a:=strtoint(zeile); //<-- Hier wird der Fehler angezeigt
z:=chr(a-s);
neu:=neu +z;
end;
Memo2.Lines.Add(neu);
Edits1.Text := '';
EditPWeingabe.Text := '';
end
else begin
if anz < 2 then
begin
anz := anz+1;
showmessage('Falscher Schlüssel!');
edits1.Clear;
edits1.SetFocus;
end;
end;
closefile(tf);
end;
end;
Danke schon einmal fürs Helfen
MfG