Encriptador/desencriptador - VB-MUNDO

tazman · #1 (**permalink**) 06-09-2006, 14:03:56

Buenas...
Me acerco a ustedes para solicitarles ayuda.
tengo que entregar un programa en visual basic que pueda ingresar un texto y mostrarlo encriptado en otro.

he intentado hacerlo pero al momento de hacer la encriptacion me la hace con los mismos caracteres ejemplo:

CASA = $#&# LA LETRA A SE NOTA QUE ES LA MISMA)

LO QUE YO NECESITO ES QUE SEAN TODOS LOS CARACTERES DISTINTO DA LO MISMO SI SE REPITEN LOS CARACTERES DENTRO DE UNA FRASE PERO NO CON LA MISMA PALABRA.

espero hayan comprendido mi problema y puedan ayudarme ya que es demasiado urgente, tengo que entregarlo y aun no me resulta lo he intentado pero aun me falta mucho por aprender, por esto acudi a ustedes.
muchas gracias.
atte.,
Tazman

jrios03 · #2 (**permalink**) 06-09-2006, 14:45:49

Hola Tazman...

Buscando por aquí y por acá, encontré el código que buscas... realmente, es mucho, pero mucho más sencillo de lo que imaginé...

Yo también me he estado complicando la cabeza tratando de hacer lo que tu pides, y sin querer encontré la solución...

Te mando el código en ZIP para que lo revises y saques de él lo que más te sirva...

Por ejemplo, la frase JRIOS03 la transforma en: QKURMph
Y la frase ANITA LAVA LA TINA la transforma en: ZOUM_€O`Ha{XZ}OXM_

Para desencriptar utilizas la misma función...

Saludos... :smt004

tazman · #3 (**permalink**) 06-09-2006, 15:20:54

MUCHAS GRACIAS..
ESTA REALMENTE BUENISIMO.
SI TE PUEDO HACER LA ULTIMA PREGUNTA....

SAQUE LOS IF Y ESTE ME EMPEZO A COLOCAR LAS LETRAS IGUALES AL PARECER ESO ES LO QUE HACE QUE LAS VAYA VARIANDO PERO NO ME QUEDA MUY CLARO PQ SI PUDIERAS EXPLICARME UN POCO QUE VAZ HACIENDO CON EL MOD 2 MOD3 MOD4 GRACIAS

jrios03 · #4 (**permalink**) 06-09-2006, 17:15:00

Tazman... lo que hacen los if, es ver si la posición de la letra que voy a tomar es divisible por 2, 3, 4 y 5 respectivamente, esto es lo que hace que las letras no sean repetidas, me explico...

Código:

        If i Mod 2 = 0 Then
          Y = Y + 2        //Si es divisible por dos, al Ascii le sumo 2
        End If
        If i Mod 3 = 0 Then
          Y = Y + 3        //Si es divisible por tres, al Ascii le sumo 3
        End If
        If i Mod 4 = 0 Then
          Y = Y + 4        //Si es divisible por cuatro, al Ascii le sumo 4
        End If
        If i Mod 5 = 0 Then
          Y = Y + 5        //Y si es divisible por cinco, al Ascii le sumo 5
        End If

Si te das cuenta, hay posiciones que se van a sumar 2 o más veces...

Por ejemplo, si la letra está en la posición 12, se le va a sumar al Ascii 2, 3 y 4...

Por eso si en una frase se repiten las Letras, es muy difícil que al encriptarlas tengan el mismo valor...

Me entendiste???

Espero que sí, en caso de cualquier duda o algo que no te haya quedado claro, sólamente avisa...

Saludos... :smt004