Cuestión : Función ROT13 y procedimiento


Necesito un procedimiento del abd de la función de delphi 2010 para solucionar ROT13 usar secuencia y stringlist


algo tiene gusto


Tciphermode = (cmEncrypt, cmDecrypt)

función ROT13 (AStr: Secuencia; cMode: TcipherMode): Secuencia;
comenzar
 //
 resultado: =
extremo;


procedimiento ROT13 (líneas: TStringList; cMode: TcipherMode)
comenzar
 //
extremo;

gracias

Respuesta : Función ROT13 y procedimiento

¿Por qué usted necesita param del cMode? La misma función cifra y descifra. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedimiento ROT13 (AStrLst: TStringList);
var
  i, j: número entero;
  c: carbón de leña;
  AStr: secuencia;
  s: secuencia;
comenzar

  para i: = 0 a AStrLst.Count - 1 comienza
    AStr: = AStrLst [i];
    s: = '';
    para j: = 1 a la longitud (AStr) comienza
      c: = AStr [j];

      si (((>= “A de c ") Y (c <>= “a ") Y (c <>= “N ") Y (c <>= “n ") Y (c  <>
Otras soluciones  
 
programming4us programming4us