Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > La Taberna
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡Ah! Pues no faltaba más. Si eso les preocupa, en cuanto lo descifren yo se los traduzco al español.
Responder Con Cita
  #2  
Antiguo 15-11-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Cita:
ALTHOUGH PERFECTION IS ATTAINABLE, IT OCCURS ONLY AS AN ACCIDENT
¿Acerte?
Responder Con Cita
  #3  
Antiguo 15-11-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
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 ...

Última edición por seoane fecha: 10-06-2007 a las 16:55:55.
Responder Con Cita
  #4  
Antiguo 15-11-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #5  
Antiguo 16-11-2006
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Enhorabuena, seoane !!!


Pues me has ganado, yo tardé casi toda una mañana en descifrarlo, se ve que estás "entrenado"
Responder Con Cita
  #6  
Antiguo 16-11-2006
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Cita:
Empezado por 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
Lo de la "constante" 7 es porque se usa un alfabeto que empieza en la posición 7, en la letra 'h'. la 'a' es 0, la 'b' es 1, la 'c' es 2 ...

Así que el alfabeto usado es:
hijklmnopqrstuvwxyzabcdefg


Responder Con Cita
  #7  
Antiguo 16-11-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
Ya, ahora caigo con este asunto de los mensajes cifrados , entonces quiero imaginar que la primera letra es la que nos da la clave para armar el alfabeto alterno.

Gracias, todos los dias se aprende algo nuevo .

Saludos.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #8  
Antiguo 16-11-2006
Avatar de xander
xander xander is offline
Miembro
 
Registrado: jul 2006
Posts: 499
Poder: 20
xander Va por buen camino
Solo acotar que el Caesar o Cesar es de los más sencillitos métodos de cifrado... hubiera sido mas que dificil si el mensaje hubiera sido cifrado por algún otro método como el Two-Fish o el Rijndael
__________________
"Hey, nena, debe ser genial ser tú y verme a mí mismo..."
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Para el que este aburrido y tenga ganas de pensar 2 marceloalegre La Taberna 25 17-11-2006 20:08:03
Para alguien que este aburrido y con ganas de pensar! marceloalegre La Taberna 52 16-11-2006 21:52:18
Necesito alguien con paciencia y ganas e ayudare. Gabel Varios 2 13-09-2006 20:09:24
Para pensar seoane Humor 4 04-06-2006 23:48:34


La franja horaria es GMT +2. Ahora son las 20:48:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi