encriptar ¿?

[marcoszorrilla]

El algoritmo que presentas está mal planteado ya que lo único que hace es sumarle 3 al código resultante:

A=65 + 3 = 68 =D
Z=90 + 3 = 93 =]

Un Saludo.

[baby]

gracias mars y basti por vuestras respuestas
la solucion que me plantaste basti me parece esta bien lo k ocure acabo de aprobarlo con la 'z' y no funciona yak da como resultado 'f' mientras tiene que haber como reultado la 'c'
y con respecto a tu observacion marcus esa la solucion que me parece las mas facil no tengo otra
gracias

[[seoane]]

Pues aquí tienes un par de algoritmos:

http://www.clubdelphi.com/foros/show...14&postcount=9
http://www.clubdelphi.com/foros/show...6&postcount=30

[baby]

gracias seone
por tu propuesta pero segun me primera lectura eso no responderia al codigo cesar

[[seoane]]

Empezado por baby

... segun me primera lectura eso no responderia al codigo cesar

En el primer enlace, tienes este código:

Código Delphi [-]
function Descifrar(Str: String; Clave: Integer): string;
var
  i,k: integer;
begin
  Str:= Uppercase(Str);
  Result:= '';
  for i:= 1 to Length(Str) do
  begin
    if Str[i] in ['A'..'Z'] then
    begin
      k:= Ord(Str[i]) - Clave;
      if k < Ord('A') then
        k:= Ord('Z') - Ord('A') + k + 1;
      Result:= Result + Chr(k);
    end else
      Result:= Result + Str[i];
  end;
end;

Este código se corresponde al descifrado, con una clave de valor 3 es justo lo que tu querías.

Ahora bien si lo que quieres es el cifrado:

Código Delphi [-]
function Cifrar(Str: String; Clave: Integer): string;
var
  i,k: integer;
begin
  Str:= Uppercase(Str);
  Result:= '';
  for i:= 1 to Length(Str) do
  begin
    if Str[i] in ['A'..'Z'] then
    begin
      k:= Ord(Str[i]) + Clave;
      if k > Ord('Z') then
        k:= Ord('A') - Ord('Z') + k - 1;
      Result:= Result + Chr(k);
    end else
      Result:= Result + Str[i];
  end;
end;

Aunque creo que era fácil de deducir a partir de los enlaces que te pase

Ejemplo:

Código Delphi [-]
ShowMessage(Descifrar(Cifrar('The quick brown fox jumps over the lazy dog',3),3));

[[basti]]

Empezado por baby

acabo de aprobarlo con la 'z' y no funciona yak da como resultado 'f' mientras tiene que haber como reultado la 'c'

Me he fijado y tienes el valor nele = 23 cuando tendría que ser 26.

[baby]

gracias seone
acabo de probarlo y funciona gracias io
?
saludos
mucha gracias campeon