nabend,
wär jemand so nett mir bei folgendem problem zu helfen: An markierter stelle nimmt mein string nen nicht verfügbaren wert an, ich wüsste gern wiso und wie ich das ändern kann.
procedure tpascal.entschluesseln (Geheimtext: Tstrings; Klartext: Tstrings);
var
i,s,summe,laenge,v:integer;
klar,schluessel,g:string;
m,k:char;
begin
schluessel:= gibschluessel;
g:= geheimtext.text;
klar:=g;
s:=length(g);
laenge:=length(schluessel);
for i:=1 to length(g)div 2 do
schluessel:= schluessel+ schluessel[i];
while s>1 do begin
for i:=0 to laenge do begin
if s>1 then begin
v:= pascalzahl(s,1);
m:= klar[v mod length(g)];
k:= klar[s];
--> klar[v mod length(g)]:= k;
klar[s]:= m;
klar[s]:= chr((ord(klar[s])- ord(schluessel[s])+255)mod 255) ;
dec(s);
end;
end;
end;
showmessage(klar);
klartext.text:= klar;
end;
 |
