1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

procedure TForm1.Button1Click(Sender: TObject); //Verschlüsseln

var schlussel: integer; //Der Schlüssel
    zeichen, i, l: integer; //Merkvariablen
    zeichenu:char; //Unverschlüselte Zeichen
    zeichenv,a: string; //Verschlüsselte Zeichen

begin

schlussel:= strtoint(edit1.Text); 
a:= m1.Text; //m1 = memo1 unverschlüsselt                       
l:=length(m1.Text); //l = länge des Memos1

for i:=1 to l do

      begin
       zeichenu:=a[i] ;
       zeichen:= ORD(zeichenu); //ASCI wird ausgelesen     
       zeichenv := chr(Zeichen+schlussel); //Umwandlung in codiertes Zeichen 
       m2.Text:=m2.Text+zeichenv; //m2 = ausgabe in memo2
      end ;

end;

procedure TForm1.Button2Click(Sender: TObject); Entschlüsseln
var schlussel: integer;
    zeichen, i, l: integer;
    zeichenu:char;
    zeichenv,a: string;
begin

schlussel:= strtoint(edit1.Text);
a:= m2.Text;
l:=length(m2.Text);

for i:=1 to l do

   begin
    zeichenu:=a[i] ;
    zeichen:= ORD(zeichenu);
    zeichenv := chr(Zeichen-schlussel);
    m1.Text:=m1.Text+zeichenv;
   end;

end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMainForm = class(TForm)
    Source: TMemo;
    Code: TMemo;
    BtnCodeIt: TButton;
    BtnDecodeIt: TButton;
    KeyEdit: TEdit;
    procedure CheckKey;
    function Vignere(const S: String): String;
    procedure Translate(MemoSource, MemoDestination: TMemo);
    procedure BtnCodeItClick(Sender: TObject);
    procedure BtnDecodeItClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    Key: Integer; // der Schlüssel
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

// Schlüssel lesen und prüfen; bei einfachem Vignere sind Schlüssel modulo 255 gleichwertig
procedure TMainForm.CheckKey;
begin
  Key := StrToIntDef(KeyEdit.Text,0) and $FF;
  KeyEdit.Text := IntToStr(Key);
end;

// Vignere-Verschlüsselung ausführen
function TMainForm.Vignere(const S: String): String;
  var
    i: Integer;
begin
  Result := S;
  for i := 1 to Length(Result) do
    Result[i] := Char((Ord(Result[i]) +Key) and $FF);
end;

// Text von einem Memo in ein anderes (Um-)schlüsseln
procedure TMainForm.Translate(MemoSource, MemoDestination: TMemo);
  var
    i: Integer;
begin
  MemoDestination.Clear;
  for i := 0 to MemoSource.Lines.Count-1 do
    MemoDestination.Lines.Add(Vignere(MemoSource.Lines.Strings[i]));
end;

// von links nach rechts (verschlüsseln)
procedure TMainForm.BtnCodeItClick(Sender: TObject);
begin
  CheckKey;
  Translate(Source,Code);
end;

// von rechts nach links (entschlüsseln)
procedure TMainForm.BtnDecodeItClick(Sender: TObject);
begin
  CheckKey;
  Key := -Key;
  Translate(Code,Source);
  Key := -Key;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

object MainForm: TMainForm
  Left = 1148
  Top = 124
  Width = 424
  Height = 183
  Caption = 'Vignere-Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Source: TMemo
    Left = 16
    Top = 16
    Width = 185
    Height = 89
    Lines.Strings = (
      'Source')
    TabOrder = 0
  end
  object Code: TMemo
    Left = 224
    Top = 16
    Width = 185
    Height = 89
    Lines.Strings = (
      'Code')
    TabOrder = 1
  end
  object BtnCodeIt: TButton
    Left = 16
    Top = 120
    Width = 75
    Height = 25
    Caption = 'BtnCodeIt'
    TabOrder = 2
    OnClick = BtnCodeItClick
  end
  object BtnDecodeIt: TButton
    Left = 328
    Top = 120
    Width = 75
    Height = 25
    Caption = 'BtnDecodeIt'
    TabOrder = 3
    OnClick = BtnDecodeItClick
  end
  object KeyEdit: TEdit
    Left = 120
    Top = 120
    Width = 121
    Height = 21
    TabOrder = 4
    Text = '5'
  end
end