Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 01:59:02 pm

Título: Autentificar Usuario y password (con referencia a bd)
Publicado por: ANTRAX en Julio 26, 2010, 01:59:02 pm
Creamos un formulario con un text1, text2 y un cmd y pegamos este código (obviamente con la referencia a ADO y la base de datos ya armada):

Código: Visual Basic
  1. Private cn1 As ADODB.Connection
  2. Private rsusuario As ADODB.Recordset
  3. Private strconn1 As String
  4.  
  5. Private Sub Form_Initialize()
  6.  
  7. strconn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb"
  8. Set cn1 = New ADODB.Connection
  9.  
  10. cn1.ConnectionString = strconn1
  11. cn1.CursorLocation = adUseClient
  12. cn1.Open
  13.  
  14. Set rsusuario = New ADODB.Recordset
  15. rsusuario.Open "usuarios", cn1, adOpenDynamic, adLockOptimistic
  16. End Sub
  17.  
  18. Private Sub Command1_Click()
  19. On Error GoTo usermal
  20. rsusuario.Find "usuario =" & "'" & Text1.Text & "'"
  21. If rsusuario!password = Text2.Text Then
  22. Form1.Show
  23. vendedor = Text1.Text
  24. Unload Me
  25. Exit Sub
  26. End If
  27.  
  28. usermal:
  29. MsgBox "El usuario o el password es incorrecto"
  30. End
  31.  
  32. End Sub