procédé ROT13 (AStrLst : TStringList) ;
variété
i, j : nombre entier ;
c : char ;
AStr : corde ;
s : corde ;
commencer
pour I : = 0 à AStrLst.Count - 1 commencent
AStr : = AStrLst [I] ;
s : = '' ;
pour j : = 1 à la longueur (AStr) commencent
c : = AStr [j] ;
si (((>= « A de c ") ET (c <>= « a ") ET (c <>= « N ") ET (c <>= « n ") ET (c <>
|