Para alguien que este aburrido y con ganas de pensar!

[dec]

Hola,

Empezado por Iván

Recuerdo que que mi profesor de matemáticas nos contaba continuamente esta leyenda.

Me he perdido. ¿De qué leyenda hablamos?

[[Bicho]]

Empezado por dec

Me he perdido. ¿De qué leyenda hablamos?

Pero David, todavía no has sacada el texto? Estamos por tí hombre

Saludos

[[marceloalegre]]

Esperemos al que pueda quedar, la verdad estuvo bueno,aunque a mi me complico... considero que el que merece explicar esto seria Domingo que llego con todos los honores del caso, como les dije hasta estan los algoritmos en delphi!

Y cuando terminamos con este, les puedo pasar otro aviso mas que salió de la misma empresa, por lo menos para divertirse (se me hizo facil esta vez..)

Saludos! y felicitaciones a todos, desde el que llego hasta el que puso de su tiempo para planterarlo!

[Ñuño Martínez]

Y yo sin ordenador... ¡No es justo!

[p.s.]El de la empresa no cuenta, porque no puedo usarlo para estos menesteres.

[[marceloalegre]]

Haaa! me olvidaba! mis disculpas a todos (Bicho por ejemplo) por las 2 GG que me he comido! ya que les genero problemas para resolver la cuestion!!!

[[seoane]]

Como veo que la cosa ya no interesa mucho, pongo el algoritmo de cifrado.

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

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

Por ejemplo para descifrar el mensaje:

Código Delphi [-]
ShowMessage(Descifrar('XLD Z QH FCSALFFK GG LYDPTZ GG YYLIT LQ NF BOVNTD EFZLNQH GGQ ADDQLUQ','5732'));

[Neftali [Germán.Estévez]]

¿Porqué [email protected] y no [email protected]?

link


EDITO: Aparte de la razón empírica (esta dirección [email protected]- no existe).

[[Ivanzinho]]

Empezado por dec

Me he perdido. ¿De qué leyenda hablamos?

Leyenda??? Quien dijo leyenda

Creo que no me corresponde a mi decir a que leyenda me refiero