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