Caesar Schifffre Quellcode interpretieren und weiterhelfen:D

[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

[Mavarik]

hmm

Delphi-Quellcode:

Var
  i : integer;
  S : ShortString;
  A : array[0..255] of byte absolute S;
  V : byte;
begin
  V := strtoint(Edit1.Text); // <-- Edit!
  S := Edit2.Text;

  for i:=1 to A[0] do
    inc(A[i],V);
end;

Mavarik

[himitsu]

Ord(A[0]) = Length(A)
bei einem ShortString (deswegen fangen Strings auch mit 1 an)
PS: Man spart damit keinen einzigen Prozessortakt, also der Zugriff auf [0] würde ich möglichst vermeiden.


PS: Bedenke, daß beim einfachen "Verschieben" der Chars auch sogenannte Steuerzeichen (bestimmte "Buchstaben") entstehen können, welche z.b. ein Memo nicht so gern hat, bzw. nicht (richtig) darstellen kann.

[Mavarik]

Zitat von himitsu:

Ord(A[0]) = Length(A)

Siehe oben...

a : Array of Byte absolute S;

[p80286]

Wenn ich es richtig verstanden habe ging es um das dec(A[i],v) ;
Abgesehen von den Sonderzeichen und Überläufen, wo klemmt's??

Gruß
K-H

[himitsu]

Arg, vorhin hab ich noch 'nen SchortString gesehn *ich schwör*

[DeddyH]

Der ist ja auch da (in S, auf den A mit absolute zeigt).