procedure CryptText(path:String;Cryptpath:String;Key:Longint;Crypt:Boolean);
var
I, J, K : Longint;
S : String;
begin
with Form1 do begin
Memo1.Lines.LoadFromFile(path);
For i := 0 to Memo1.Lines.Count - 1 do begin
S := Memo1.Lines[i];
For j := 1 to length(Memo1.Lines[i]) do begin
K := ord(S[J]);
If Crypt = True then
K := K + Key
else
K := K - Key;
S[J] := chr(K);
end;
Memo1.Lines[i] := S;
end;
Memo1.Lines.SaveToFile(cryptpath);
end;
end;
Beispiel :
// Crypt
procedure TForm1.Button1Click(Sender: TObject);
begin
CryptText(Edit1.Text,Edit2.Text,StrToInt(Edit3.Text),True);
end;
// Decrypt
procedure TForm1.Button2Click(Sender: TObject);
begin
CryptText(Edit1.Text,Edit2.Text,StrToInt(Edit3.Text),False);
end;
Keine Kommentare:
Kommentar veröffentlichen