Programación General > Visual Basic 6.0 e inferiores
Acceso Directo
jodijo5:
hola de nuevo, como le hago para crear un acceso directo, ah y otra pregunta, tengo un programa que hice que necesita una clave para entrar y esta almacenada en el registro de windows, el problema es que culquiera puede entrar en el registro y averiguarla, como la encripto y desencripto o me dan otra solucion. gracias de antemano
piyey:
Hola jodijo5...
Existen muchos algoritmos de encriptación de datos, yo tengo uno que es el que utilizo, no se si es el mas seguro o el mas bulnerable, pero aquí te lo pongo para que lo revises:
--- Código: Text ---Function Encriptar(Secret As String) As String Dim L As Integer Dim x As Integer Dim PassWord As String Dim Char As String Dim Buff As String PassWord = "Clave" 'Esta es tu clave de encriptación L = Len(PassWord) For x = 1 To Len(Secret) Char = Asc(Mid$(PassWord, (x Mod L) - L * ((x Mod L) = 0), 1)) Buff = Mid$(Secret, x, 1) Mid$(Secret, x, 1) = Chr$(Asc(Buff) Xor Char) Next Encriptar = SecretEnd Function
... la clave de encriptación la puedes cambiar, pero para desencriptar debes usar la misma clave que utilzaste para encriptar el dato.
Para encriptar un texto solo tienes que hacer esto:
--- Código: Text ---Encriptar(TextoAEncriptar)
Para desencriptar el texto solo debes hacer esto:
--- Código: Text ---Encriptar(RS!PassWord)
... así es, el mismo paso hace la desencriptación.
Espero que te sirva...
See you!!! :hola:
Piyey.
jodijo5:
gracias piyey me va a servir pues no creo que los usuarios finales sepan metodos de encriptacion, gracias por la ayuda pero falta la pregunta del acceso directo
piyey:
Hola jodijo5...
Siempre a la orden en lo que pueda ayudar, por el momento no se como crear el acceso directo, pero te prometo que lo voy a buscar, ya que a mi tambien me puede servir...
Otra cosa, respecto a lo del algoritmo de encriptación, es cierto que el usuario final no conoce el algoritmo, pero puede haber alguien que quiera hacer algo malo con tu programa y que conozca el algoritmo, entonces, si no es muy dificil de desencriptar no es muy seguro... pienzalo... voy a ver si consigo otro algoritmo mas dificil de romper...
See you!!! :hola:
Piyey.
piyey:
Hola jodijo5...
Lo que pude conseguir ahorita es un codigo para lanzar el asistente para crear el acceso directo. Voy a buscar a ver si encuentro como hacerlo con Solocodigo sin lanzar el asistente...
See you!!! :hola:
Piyey.
Navegación
[#] Página Siguiente
Ir a la versión completa