Delphi XOR

[DeddyH]

Aber dann mit 2 Parametern

[Saminem]

Hallo
Da das Memo das mit den Sonderzeichen nicht hinkriegt habe ich es in ein array rein geschrieben.
Wenn ich jetzt z.b. hallo codieren will mit sami (mein name).
Dann codiert er nur den ersten Bustaben also h mit s.
der zweite bustabe mit a mit a.
wenn ich hallo mit q codiere klappt es weil.
h mit q.
a mit q.
l mit q.
l mit q.
o mit q.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s , passwort , o: String;
  step , d ,b , n ,  m :integer;
  i , h : Integer;
begin
  b:=0;
  d:=1;
  passwort:=Edit1.text;
  s:=Memo1.text;
  for h:=1 to length(s) do
  Code[h]:=Ord(passwort[h]);
  for n:=1 to length(s) do
  Speicher[n]:=Ord(s[n]);
  for i:=1 to length(s) do
  begin
    step:=code[d];
    if d>length(code) then d:=1;
    inc(d);
    Speicher[i]:=step Xor Speicher[i];
    inc(b);
    end;
    for m:=1 to b do
    begin
    o:=o+chr(Speicher[m]);
    end;
    Memo1.text:=o;
    end;

bitte um hilfe

[p80286]

Alleine dieses Konstrukt schreit doch nach Fehlermeldungen:

Delphi-Quellcode:

for h:=1 to length(s) do
  Code[h]:=Ord(passwort[h]);

1) aus welcher dunklen Ecke kommt Code gekrochen?
2) wenn h von der Länge von s abhängig ist, dann muß passwort mindestens so lang wie s sein, sonst rappelt es im Karton.
Und wenn es nicht rappelt (Fehlermeldungen abgeschaltet?) dann läuft wieder einmal ein Programm Amok und es tauchen vollkommen unerklärliche Fehler auf.

Gruß
K-H

[himitsu]

Zu 2)
Auch hier wieder der Hinweis auf die Überlauf- und Bereichsprüfung, welche endlich mal aktiviert werden sollte.

[ULIK]

Bitte auch mal hier weiter lesen: der Ausgangscode ist in beiden Fällen der gleiche! Sollten die TEs nicht gleich sein, dann könnten sie ja vieleicht zusammenarbeiten
Oder auch hier

Grüße,
Uli