Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 26.01.2007 10:50:34 412

XOR-Verschlüsselung, Version 1

Vereinfachung: Wir gehen davon aus, dass der eingegebene Schlüssel die gleiche Länge hat wie der Text.

Delphi-Projekt

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    edKlartext: TEdit;
    edSchluessel: TEdit;
    edGeheim: TEdit;
    btXor: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure btXorClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btXorClick(Sender: TObject);
var i, laenge: Integer;
    t, s, g: String;
begin
  t:=edKlartext.Text;
  s:=edSchluessel.Text;
  g:='';
  laenge := Length(t);
  for i:=1 to laenge do
    g := g + chr(ord(t[i]) xor ord(s[i]));
  edGeheim.Text := g;
end;
end.

lokal