Imprimir Página - Contraseña para entrar

Ola, es una pregunta muy tonta, pero llevo ya mucho tiempo sin utilizar el Visual Basic y apenas me acuerdo de nada.
Estoy trabajando con un pekeño programa al cual me gustaria ponerle una contraseña, tengo un boton de comando y un texto para escribir "la contraseña"
me podriais facilitar el codigo ese. Por mas que lo busco, no lo encuentro :'( :'(

reydelmundo11 eso se puede ver con el bloc de notas cuando se compile el programa.

Lo mejor es crear una función que genere un hash a partir de la contraseña, y luego cuando se ingresa la contraseña es generar el hash correspondiente al pass ingresado y compararlo con el guardado.

Te dejo un código de ejemplo:

Código:

Function GetChecksum(Data As String) As Currency
  On Error Resume Next
  
        Dim iChar%, iPrevChar%
        Dim lLen&, i&
        Dim cChecksum@

  lLen = Len(Data)
  If lLen > 46000 Then Exit Function
  
  For i = 1 To lLen
    iChar = Asc(Mid$(Data, i, 1))
    
    cChecksum = (cChecksum + ((iChar Xor (i * lLen)) * ((iPrevChar * i) Xor ((lLen Mod i) ^ 2))))
    
    iPrevChar = iChar + (i Xor lLen)
  Next
  
  GetChecksum = cChecksum
End Function

Entonces primero haces que establezca la contraseña, le pasas la cadena a la función GetChecksum y guardas el número que te generó en un archivo, luego cuando la quieras verificar llamas a la función GetChecksum pasandole la contrasña que ingresó el usuario, y si el número que generó es igual al que está guardado en el archivo significa que es la misma contraseña.

Saludos.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Creative en 20 Agosto 2005, 17:29 pm