Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

[D3ltaX]

procedure TForm1.Button1Click(Sender: TObject);
var
a, c, b:Integer;
d:string;

begin
d := Edit2.text;
for c := 1 to Length(Edit1.Text) do
begin
a := Ord(Edit1.Text[c]);
a := a ;
Label1.caption := label1.caption + Chr(a);
end;
Edit1.Text := '';
button1.Hide;
button2.Show;

Hallo Erstmal ,

Ich hab folgendes Problem unzwar will Ich durch Eingabe in das Edit2 feld Mit einem Buchstaben den Schlüssel Definieren...

So wollte ich das machen:
1. Var d nimmt den Buchstaben aus Edit 2
2. Wandelt den Buchstaben in eine Nummer (Ord funktion)
3. Dann wird a + diese Nummer
4. Und in Label 1 wird dann Die verschlüsselte version angezeigt.

Ich krieg das aber irgendwie nicht hin... Ich hoffe ihr könnt mir helfen

Danke im vorraus

[himitsu]

Delphi-Quellcode:

// a bekommt den ordinalen Wert des Zeichens
a := Ord(Edit1.Text[c]);

// hier passiert nix
a := a ;

// der ordinalen Wert wird wieder ZURÜCK in ein Zeichen umgewandelt = Anfangswert
Label1.caption := label1.caption + Chr(a);

Und bezüglich Chiffre ist da nichts vorhanden.

[DeddyH]

Hallo und Willkommen in der DP ,

schließe bitte künftig Quellcode in Delphi-Tags ein, dann ist er besser zu lesen. Zu Deinem Problem: ich sehe nicht, wo die "Verschiebungsweite" angegeben wird. Beim Caesar-Ciphre werden ja alle Zeichen um die gleiche Anzahl verschoben. Wenn ich das richtig gesehen habe, verschiebst Du hingegen jedes Zeichen um seinen Ordinalwert, das ist etwas völlig anderes.

[D3ltaX]

Das sollte ja
[delphi]a:= a + d;
sein
Ich will wissen wie kann ich das so machen dass Delphi den Buchstaben was in edit2 zu var d gugeschrieben wird in eine Zahl Umwandelt und dann a + d macht...
Caesar mit dem Schlüssel C
hier sieht man ja dass dor schlüssel c angewandt is... Ich will dass man Jeden schlüssel auswählen kann


Achja xD wie kann man den Text als Delphi Code angeben?

[DeddyH]

Du suchst anscheinend StrToInt bzw. StrToIntDef oder TryStrToInt. Und zum Delphi-Code: einfach markieren und oberhalb des Editors auf "Delphi-Code" klicken.

[D3ltaX]

Wenns geht bitte auch angewandt

[DeddyH]

Da sollten doch Beispiele in der Referenz stehen, Du musst also nur noch die Variablen gegen Deine austauschen.

[julia]

hey, hab auch einen problem mit der verschlüsselung bzw. der entschlüsselung des verschlüsselten Texts. Ich finde keinen Ansatz

Hier meine caesar-Verschlüsselung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR  
 I, K, V: INTEGER;  
BEGIN  
 V          := StrToIntDef(edit2.Text,0);    //Zeichenverschiebung  
 edit3.Text := '';                           //Auagabe löschen  
 FOR I := 1 TO Length(edit1.Text) DO
 BEGIN     
  K          := Ord(edit1.Text[I]);          //Zeichen Auslesen    
  K          := K + V;                       //Verschieben  
  edit3.Text := edit3.Text + CHR(K and 255); //Verschlüsseltes Zeichen an Aufgabe anhängen  
 END;

danke im vorraus

[Luckie]

Schön wäre jetzt noch, wenn du uns sagst, was für ein Problem du hast.

[p80286]

Wenn ich antworte
Zeichen lesen
v abziehen
Zeichen schreiben

bist Du wahrscheinlich nicht zufrieden, also wo klemmt es genau?
(übrigens hast du den Thread bis hier gelesen? Delphi-Tags?)

Gruß
K-H