jueves, 12 de junio de 2014

Autenticación





' Gambas class file

Private Llave As String
Private PrimeraLlave As Boolean

Public Sub Form_Open()
Dim RutaKey As String
Me.Center
Me.Caption = "Autenticar a Juez Árbitro"
 RutaKey = Settings["Contraseña/Llave", Null]
  If IsNull(RutaKey) Then
    LabKey.Visible = False
    txtLlave.Visible = False
    btnAutenticar.Visible = False
    btnVerKey.Visible = False
    CheckBcambiarKey.Visible = False
    PrimeraLlave = True
  Else
      Me.Height = 90
  End If
End

Public Sub btnGuardarCambios_Click()
 If PrimeraLlave = True Then
  Llave = Crypt.MD5(txtNuevaKey.Text)
  Settings["Contraseña/Llave"] = Llave
  Settings.Save
  LabKey.Visible = True
  txtLlave.Visible = True
  btnNuevaKey.Visible = True
  btnVerKey.Visible = True
  CheckBcambiarKey.Visible = True
  btnAutenticar.Visible = True
  Me.Height = 90
  PrimeraLlave = False
 Else
  Print "se cambio clave correctamente"
  Llave = Crypt.MD5(txtNuevaKey.Text)
  Settings["Contraseña/Llave"] = Llave
  Settings.Save
  Me.Height = 90
  CheckBcambiarKey.Value = False
  txtNuevaKey.Clear
  txtRepetirKey.Clear
 Endif

End

Public Sub btnVerKey_MouseDown()
  txtLlave.Password = False
End

Public Sub btnVerKey_MouseUp()
  txtLlave.Password = True
End

Public Sub btnAutenticar_Click()
 Llave = Settings["Contraseña/Llave"]
 If Crypt.Check(txtLlave.Text, Llave) = False Then
    If CheckBcambiarKey.Value = True Then
      Message.Info("Contraseña correcta!" & gb.NewLine & "ahora podra cambiar la contraseña")
      txtLlave.Clear
    Else
      Message.Info("Bienvenido Juez Árbitro")
      txtLlave.Clear
    Endif
    If CheckBcambiarKey.Value = True
      VerCambiarKey
    Endif
  Else
    Message.Error("Contraseña incorrecta intente nuevamente")
    txtLlave.Clear
    txtLlave.SetFocus
  Endif

End


Public Sub btnNuevaKey_MouseDown()
  txtNuevaKey.Password = False
End

Public Sub btnNuevaKey_MouseUp()
   txtNuevaKey.Password = True
End

Public Sub btnRepetirKey_MouseDown()
  txtRepetirKey.Password = False
End

Public Sub btnRepetirKey_MouseUp()
  txtRepetirKey.Password = True
End

Public Sub txtRepetirKey_Change()
  If txtNuevaKey.Text = txtRepetirKey.Text Then
      PBxKeyIguales.Visible = True
      btnGuardarCambios.Enabled = True
  Else
       PBxKeyIguales.Visible = False
       btnGuardarCambios.Enabled = False
  Endif
End

Public Sub VerCambiarKey()
  Me.Height = 250
  LabNuevaKey.Visible = True
  txtNuevaKey.Visible = True
  btnNuevaKey.Visible = True
  LabRepetirKey.Visible = True
  txtRepetirKey.Visible = True
  btnRepetirKey.Visible = True
 End

Código fuente: Autentificacion-0.0.1.tar.gz