Zitat von
issejal:
hab nen quellcode gefunden für den festen schlüssel 3:
Delphi-Quellcode:
for i:=0 to richedit1.lines.count-1 do
begin
for j:=1 to length(richedit1.lines[i]) do
if ((ord((richedit1.lines[i])[j])>64) and (ord((richedit1.lines[i])[j])<88))
then s:=s+chr(ord((richedit1.Lines[i])[j])+3)
else if ((ord((richedit1.lines[i])[j])>87) and (ord((richedit1.lines[i])[j])<91)) then s:=s+chr(ord((richedit1.Lines[i])[j])-23)
else s:=s+(richedit1.lines[i])[j];
richedit2.Lines[i]:=s;
s:='';
end;
ich glaub ich hab zu wenig mit delphi programmiert, denn schon bei dem code sehe ich nicht mehr durch.
warum schreibe ich bei ord: "ord((richedit1.lines[i])[j])"?
danke für die all die hilfe, aber ich glaub, dass ich das nie hinkriegen werde
Da hast du dir aber nicht gerade den besten Code rausgesucht
. Der erzeugt eher eine abschreckende Wirkung
.