Verschlüsselung...

[katika90]

Hay Community,
ich möchte mit delphi ein kleines Verschlüsselungsprogramm erstellen...
es gibt ein Edit Feld(Text), ein TextLabel(TLCode) und ein Button(BtCode):

in dem Edit feld kann man ein wort zb. hallo eingeben, wenn man auf den Button klickt soll nun das Wort in dem Label ausgegeben werden, aber jeder einzelne buchstabe soll um einen verschoben sein (-> ibmmp).

Mein Ansatz war:

Delphi-Quellcode:

procedure TFmKrypto.BtCodeClick(Sender: TObject);
   var c,c2 : char; i,i2: integer; 
   begin
   c:='a'
   i2:=1+ord(c);
   c2:=chr(i2);
   TlCode.caption:=c2;
   end;

Problem ist nun das der Text im Edit Feld string ist, aber ich char genutzt habe, weil "i2=ord(c)" sonst nicht kompetibel ist...
kann mir jemand eine möglichst einfache lösung geben?

Danke im Vorraus
Katika

[DelphiSecurity]

String in Char umwandeln?

DS

[s.h.a.r.k]

Nutze eine for-Schleife und gehe jedes einzele Zeichen des eingebenen Strings durch. Strings kann du wie ein Array behandeln, also mit einem Index auf jedes Zeichen zugreifen. Du musst hier aber aufpassen, denn das erste Zeichen hat den Index 1 und nicht 0. Beispiel:

Delphi-Quellcode:

var
  S : String;
  C : Char;
begin
  S := 'Delphi';
  C := S[3];
  // In C steht nun das "l"
end;

[Wolfgang Mix]

Vlt. interessiert dich auch dies:
http://delphi.zsg-rottenburg.de/delp...rzeichniskrypt

[DeddyH]

Ich würde das etwa so angehen:

Delphi-Quellcode:

function SimpleCrypt(const PlainText: string): string;
var
  i: integer;
  c: char;
begin
  (* Länge des Ergebnisses auf die des Eingangsstrings setzen *)
  SetLength(Result, Length(PlainText));
  (* nun zeichenweise durchgehen *)
  for i := 1 to Length(PlainText) do
    begin
      (* Zeichen an aktueller Position ermitteln *)
      c := PlainText[i];
      (* die Berechnung des neuen Wertes überlasse ich Dir *)
      (* berechnetes Zeichen an aktuelle Ergebnisposition schreiben *)
      Result[i] := c;
    end;
end;

[himitsu]

Wobei ich soeine Funktion auf ein bestimmtes Format festlegen würde.
> Ansi oder Unicode, bzw. zwei Überladene Versionen

Was bei einer Umstellung des Strings/Chars und damit mit den Rechenergebnissen passieren würde, kann sich ja jeder ausrechnen.