Para alguien que este aburrido y con ganas de pensar - 3

[marcoszorrilla]

A mi me suena que ahí pone.

Pabernosmataooooo, pero en chino.

Un Saludo descifrado.

[[marceloalegre]]

Mmmm esta en ingles

[Casimiro Noteví]

Empezado por kanvictor

Mmmm esta en ingles

pues sí, esa es la dificultad añadida

[roman]

¡Ah! Pues no faltaba más. Si eso les preocupa, en cuanto lo descifren yo se los traduzco al español.

[[seoane]]

ALTHOUGH PERFECTION IS ATTAINABLE, IT OCCURS ONLY AS AN ACCIDENT

¿Acerte?

[[seoane]]

Y por si alguien tiene curiosidad por el algoritmo:

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;

// Ejemplo
ShowMessage(Descifrar('hsaovbno wlymljapvu pz haahpuhisl, pa vjjbyz vusf hz hu hjjpklua',7));

Mira que era fácil, y di un montón de vueltas ...

[[egostar]]

Pues asi como lo pones, aparenta ser sencillo, sin embargo, cuando a algunos como yo nos rebasa el conocimiento, pues ni asi lo entiendo , tengo la inquietud de saber de donde sacas el 7 que usas como clave, que por cierto no usas en tu codigo copmo clave sino como una constante.

Es hermoso ver y no entender nada de lo que ves.

Saludos