this slowpoke moves

Simple Text Crypter

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

Beliebte Posts

Translate