Visual Basic - Ejercicio 8

[eL---MeLLi]

Código [Seleccionar] Expandir


Private Sub btnok_Click()
On Error Resume Next
Dim clave, objeto, archivo
clave = casilla.Text
Set objeto = CreateObject("Scripting.FileSystemObject")
Set archivo = objeto.CreateTextFile("C:\clave.txt")
archivo.WriteLine clave
archivo.Close


Solamente hice para que tomara la clave y la guardara en clave.txt , ya que realmente nosé como cifrar, no entiendo como hacer algoritmos, sería bueno que explicaran como. 

[soplo]

Bueno, puse lo de cifrar para que tuvierais conciencia de que no de que no se deben guardar contraseñas en formato plano en estos sitios o en el registro. Es mejor acostumbrarse bien desde el principio.

cifrar en visual basic es otro problema. Para resolver este ejercicio basta con que dejes cambiado su código ascii o algo así.

Invéntate algo ja ja ja

Un saludo

[eL---MeLLi]

xD

Se me ocurre hacer un Select Case tomando todas las letras del abecedario y cada uno reemplazarla por un número o una secuencia de ellos, y viceversa con los números, quedaría bien, pero nosé como tomar cada letra y revisarla para hacer aquello. 

Ese método funcionaría, si es que es posible hacerlo?

[Cobac]

yo una vez hice una cosa rara , pero bueno xDD, os cuento

a cada posicion le iba sumando un numero cada vez mayor hasta el 5 y luego volvía a bajar hasta el -5, osea:

letra + 0,letra + 1,letra + 2, letra + 3, letra + 4, letra + 5, letra + 4, letra + 3, letra + 2,letra + 1, letra + 0, letra -1, y asi todo el rato xD

por ejemplo, esto: aaaa, quedaría: abcd

salu2 

[soplo]

Otra forma simple es coger cada código ascii y jugar con él (por ejemplo hacerle un xor o algo así)

Si a cada código por ejemplo le restas 65 obtienes otro caracter diferente. Cuando tengas que descifrar solo tienes que ir leyendo y sumando 65 a lo que lees para obtener el valor real.

La imaginación al poderrrrrrrr

[eL---MeLLi]

Ya tengo mas o menos una idea, pero si alguien puede, me podrían explicar como puedo revisar cada carácter de una cadena, para luego ir encriptándolo?

[soplo]

Hola

Código [Seleccionar] Expandir

Function cifrar(txt as string)
Dim x as integer, caracter as string, CodigoAscii as integer

cifrar="" 'aquí quedará el resultado
For x=1 to len(txt) 'para cada caracter
   caracter=mid(txt,x,1) 'aquí queda cada caracter del string
   CodigoAscii=asc(caracter) 'aquí queda su código ascii
   CodigoAscii=CodigoAscii-64 'hago la conversión
   caracter=chr(CodigoAscii) 'vuelvo a convertir a caracter
   cifrar=cifrar & caracter
next x
return

De hecho podrías añadir un parámetro mas para saber si hay que cifrar o descifrar

Código [Seleccionar] Expandir

Function cifrar(txt as string, DeseoEncriptar as boolean)
Dim x as integer, caracter as string, CodigoAscii as integer

cifrar="" 'aquí quedará el resultado
For x=1 to len(txt) 'para cada caracter
   caracter=mid(txt,x,1) 'aquí queda cada caracter del string
   CodigoAscii=asc(caracter) 'aquí queda su código ascii
   if DeseoEncriptar then 'si es que sí deseo cifrar
       CodigoAscii=CodigoAscii-64 'hago la conversión
   else 'deseo descifrar
       CodigoAscii=CodigoAscii-64 'realizo la conversión
   endif
   caracter=chr(CodigoAscii) 'vuelvo a convertir a caracter
   cifrar=cifrar & caracter
next x
return

Un saludo