Quelltext für Text entsperren und Text verschlüsseln?

[Klaus01]

Vielleicht so?

Delphi-Quellcode:

Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string); 
var i:integer; 
    l:integer; 
Begin 
  l:= length(wort); 
  i:=1; 
  entsperrtext:='';
  repeat 
    entsperrtext:=entsperrtext+wort[i]; 
    i:= i + 2 
  until i > l; 
end;

Dein Code hat das Problem, dass
a) delete mit den falschen Parametern aufgerufen wurde
b) Wenn Du ein Zeichen aus dem Wort löscht, Du mit der Nummerierung durcheinanderkommst
Beispiel:

Code:

H A L L O   i=2
HA L L O     
HA L O      i=4
..

Delphi-Quellcode:

Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string); 
var i:integer; 
    l:integer; 
Begin 
  l:= length(wort); 
  i:=2; 

   repeat 
    delete(wort,1,i);  //<---- 
    i:= i + 2 
  until i > l; 
end;

Grüße
Klaus