Jetzt funktioniert es!!
Aber wie baue ich Leerzeichen ein???Wenn ich einen Text decode , soll zwischen den Worten Leerzeichen sein!!
Delphi-Quellcode:
const
Key = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ';
implementation
{$R *.dfm}
function Verschluessle(Text: String) : String;
begin
for i := 1 to length(Text) do begin
for j := 1 to 64 do begin
if Text[i] = Key[j] then
Result := Result+Key[j+x];
end;
end;
end;
function Entschluessle(Text: String) : String;
begin
for i := 1 to length(Text) do begin
for j := 1 to 64 do begin
if Text[i] = Key[j] then
Result := Result+Key[j-x];
end;
end;
end;
procedure TForm1.BverschluesselnClick(Sender: TObject);
begin
Memo1.Lines.Text := Verschluessle(Memo1.Lines.Text);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=5;
end;
procedure TForm1.BentschluesselnClick(Sender: TObject);
begin
Memo1.Lines.Text := Entschluessle(Memo1.Lines.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('Text.txt');
end;
end.