Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2006
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.042
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Para alguien que este aburrido y con ganas de pensar - 3

Cuando estuve haciendo trabajos de cifrado y compresión de datos, aprendí de un libro donde al final ponían este ejercicio para que lo descifrara:

hsaovbno wlymljapvu pz haahpuhisl, pa vjjbyz vusf hz hu hjjpklua


Ya sé que es sencillito, y más para seoane, pero tampoco creo que tengáis mucho tiempo para dedicarle.

Debo decir que en este caso tiene un pequeño añadido de dificultad.
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: 24
seoane Va por buen camino
Cita:
Empezado por Casimiro Notevi
Ya sé que es sencillito, y más para seoane, pero tampoco creo que tengáis mucho tiempo para dedicarle.
Pues a mi me suena klingon.
Responder Con Cita
  #3  
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
Pues tú imagínate entonces como nos suena a los demás Si el "básico" estaba en klingon, ¿cómo será el ejercicio final?

Mejor que Casimiro nos diga en qué libro estudió y ya en seis meses intentamos de nuevo

// Saludos
Responder Con Cita
  #4  
Antiguo 15-11-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
A mi me suena que ahí pone.

Pabernosmataooooo, pero en chino.

Un Saludo descifrado.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #5  
Antiguo 15-11-2006
Avatar de marceloalegre
[marceloalegre] marceloalegre is offline
Miembro Premium
 
Registrado: abr 2005
Ubicación: Mar del Plata - Argentina
Posts: 448
Poder: 20
marceloalegre Va por buen camino
Mmmm esta en ingles
Responder Con Cita
  #6  
Antiguo 15-11-2006
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.042
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por kanvictor
Mmmm esta en ingles
pues sí, esa es la dificultad añadida
Responder Con Cita
  #7  
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
  #8  
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: 24
seoane Va por buen camino
Cita:
ALTHOUGH PERFECTION IS ATTAINABLE, IT OCCURS ONLY AS AN ACCIDENT
¿Acerte?
Responder Con Cita
  #9  
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: 24
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
  #10  
Antiguo 15-11-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
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
  #11  
Antiguo 16-11-2006
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.042
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi 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
  #12  
Antiguo 16-11-2006
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.042
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi 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
  #13  
Antiguo 16-11-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
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
  #14  
Antiguo 16-11-2006
Avatar de xander
xander xander is offline
Miembro
 
Registrado: jul 2006
Posts: 499
Poder: 18
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
  #15  
Antiguo 16-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: 24
seoane Va por buen camino
Cita:
Empezado por xander
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
Y por que no el One-time pad. Hombre, se trata de que se pueda solucionar sin ayuda de la CIA.
Responder Con Cita
  #16  
Antiguo 16-11-2006
Avatar de marceloalegre
[marceloalegre] marceloalegre is offline
Miembro Premium
 
Registrado: abr 2005
Ubicación: Mar del Plata - Argentina
Posts: 448
Poder: 20
marceloalegre Va por buen camino
Post

jajaja bien bien, no me quiten el merito que yo la habia sacado cuando comente que estaba en ingles!!(por eso mi risa cuando dije del idioma)..jeje dedicando 2 horas que eran de trabajo . Igual Domingo con sus ejemplos magistrales nos deja, o por lo menos a mi, mas que impresionado.-
Responder Con Cita
Respuesta



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 14:52:03.


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