hola
muy buenas a todos los sabios del foro
esty implimentando el codigo de cesar para encriptar cadenas que como ya lo sabeis consiste en sumar cada letra del array por 3 posiciones a la dech de su codigo ascii,el problema me esta dando con la z aunque lo hice con el teorema del resto pesando en que si se introduzca la z tiene que haber como resultado la c pero me sigue fallando en la z?¿nose porke ?¿
esta es la codificacion que hice
Código Delphi
[-]
var
cadena1,cadena2:string[100];
nele,desp,tamano,i:integer;
begin
desp:=3;
nele:=23;
cadena1:=edtf.Text;
tamano:=length(cadena1);
for i:=1 to tamano do
cadena1[i]:=chr(ord(cadena1[i])+desp+nele mod 23);
edtfe.Text:=cadena1;
end;
end.
gracias de antemano
saludos