Autor Tema: Acceso Directo (Leído 2323 veces)

jodijo5 · « **en:** Jueves 10 de Marzo de 2005, 01:09 »

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 = &#34;Clave&#34;      'Esta es tu clave de encriptación
    L = Len(PassWord)
    For x = 1 To Len(Secret)
        Char = Asc(Mid&#036;(PassWord, (x Mod L) - L * ((x Mod L) = 0), 1))
        Buff = Mid&#036;(Secret, x, 1)
        Mid&#036;(Secret, x, 1) = Chr&#036;(Asc(Buff) Xor Char)
    Next
    Encriptar = Secret
End 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!!!

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 · « **Respuesta #3 en:** Lunes 14 de Marzo de 2005, 22:03 »

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!!!

Piyey.

piyey · « **Respuesta #4 en:** Lunes 14 de Marzo de 2005, 22:24 »

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!!!

Piyey.

piyey · « **Respuesta #5 en:** Lunes 14 de Marzo de 2005, 22:33 »

Hola jodijo5...

En esta direccion aparece una función creada por no se quien

, leela

http://www.mvp-access.com/accessvbafaq/item.asp?pagina=64

See you!!!

Piyey.

Brroz

Hola.

Yo creo los accesos directos con esta función:

Código: Text

 
Private Function CrtShortCut(ByVal Link As String, ByVal Cmd As String) As Boolean
 
    On Error GoTo Err_links
    Dim objWS As Object
    Set objWS = CreateObject(&#34;WScript.Shell&#34;)
    Dim objSC As Object
    Set objSCsc = objWS.CreateShortCut(Link)
    objSC.TargetPath = Cmd
    objSC.Save
    CrtShortCut = True
 
Exit_Links:
    Set objSC = Nothing
    Set objWS = Nothing
    Exit Function
    
Err_links:
    MsgBox &#34;Erro ó crea-lo acceso directo '&#34; & Link & &#34;'.&#34; & String(2, vbCrLf) _
    & &#34;(&#34; & Err.Number & &#34;) &#34; & Err.Description , vbCritical, &#34;Instalar TTPP&#34;
    Resume Exit_Links
    
End Function
 
 

La llamo pasándolo como parámetros la ruta y nombre del archivo lnk y el destino:

Código: Text

 
CrtShortCut &#34;C:&#092;Ruta&#092;MiArchivo.lnk&#34; , &#34;C:&#092;Ruta&#092;Programa.exe&#34;

y me funciona.

Chao.

jodijo5

oigan amigos gracias por su ayuda creo que mis dudas han quedado claras

SoloCodigo

Autor Tema: Acceso Directo (Leído 2323 veces)

jodijo5

Acceso Directo

piyey

Re: Acceso Directo

jodijo5

Re: Acceso Directo

piyey

Re: Acceso Directo

piyey

Re: Acceso Directo

piyey

Re: Acceso Directo

Brroz

Re: Acceso Directo

jodijo5

Re: Acceso Directo