Password MD5 para abrir tus programas [VB6]

Bueno pues hoy os traigo un código (y diseño xD) echo por mi para poner una pass a aquellos programas creados por vosotros a los cuales no querais que nadie tenga acceso. (Recomiendo a los que se inicen en visual basic bajar el proyecto montado para analizarlo).

Componentes necesarios para el form2:

- Un timer

- Dos label

- Un boton

Este es el codigo del form2:

Option Explicit
Dim pass As String
Dim crypted As String
Dim encrypted As CMD5
Private Sub Command1_Click()
Set encrypted = New CMD5
pass = Text1.Text 'encriptamos el texto que escribimos
crypted = encrypted.MD5(pass) 'llamamos al modulo
If crypted = "827ccb0eea8a706c4c34a16891f84e7b" Then
' El md5 que veis arriba es el resultante de la encriptacion de la pass 12345
Timer1.Enabled = False
Form1.Show
Unload Me
Else
MsgBox "Clave incorrecta", vbCritical, "Access Denied"
Text1.Text = "******" 'dejamos en blanco el texto de nuevo
End If
End Sub

Private Sub Form_Load()
Text1.Text = "******"
Label1.Caption = 10 'Aqui se coloca el tiempo que deseamos
Timer1.Interval = 1000 'Colocad el tiempo que querais que el timer se repita, yo he puesto 1 seg.
End Sub

Private Sub Text1_Click()
Text1.Text = "" 'al pulsar sobre el text1 lo dejamos en blanco
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1 'El label va en progresion decreciente
If Label1.Caption = 0 Then End
End Sub[/code]

Componentes form1: Dos textbox

En el form1 poned:


Option Explicit
Dim pass As String
Dim crypted As String
Dim encrypted As CMD5
Private Sub Timer1_Timer()
Set encrypted = New CMD5
pass = Text1.Text
crypted = encrypted.MD5(pass)
Text2.Text = crypted 'enviamos la contraseña encriptada al text2
End Sub

El proyecto consta de un modulo de clase modificado por Phil Fresle del algoritmo md5, que tendreis que descargar mas abajo, ya que trae mogollon de publicidad y no quiero hacer spam en el foro ;-)


Descarga del proyecto: http://www.4shared.com/file/94556560/572d993f/Password_vb6.html
Descarga del modulo suelto: http://www.4shared.com/file/94556562/b923f813/CMD5.html

Agradeced que no cuesta nada ;-)

Un saludo