base64_encode(pack("H*", sha1(utf8_encode($a))))

Private Sub Command1_Click()
 
 
'(hace consulta en db)
Dim strsql As String
Dim rs As ADODB.Recordset
strsql = "SELECT * FROM accounts where access_level=1"
Set rs = cn.Execute(strsql)
If Not rs.EOF Then rs.MoveFirst
 
While Not rs.EOF
 
 
'(si el usuario coincide se va a 1, si no sale el mensaje)
 
If Text1.Text = rs!login Then GoTo 1
rs.MoveNext
Wend
 
Set rs = Nothing
MsgBox "no coincide el usuario"
GoTo 0
 
 
1:
 
'(si el password coincide se va a 2, si no sale el mensaje)
 
If Text2.Text = rs!pass Then GoTo 2
MsgBox "no coincide la pass"
 
GoTo 0
 
 
2:
 
'(si el usuario ya esta en linea sale un mensaje y se va al 3)
 
    Dim strsqlonline As String
 
    strsqlonline = "SELECT * FROM accounts WHERE login= '" & Text1.Text & "'"
    Set rs = cn.Execute(strsqlonline)
    If Not rs.EOF Then rs.MoveFirst
    While Not rs.EOF
    If 1 = rs!online Then GoTo 3
 
    rs.MoveNext
    Wend
    Set rs = Nothing
 
 
'(password y usuario coinciden se va a form2)
 
Form2.Show
Form1.Hide
 
Form1.Refresh
 
GoTo Ends
3:
MsgBox "usuario ya esta en linea"
GoTo 0
 
 
0:
Form1.Enabled = True
Form1.Cls
Ends:
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Label3_Click()
Form3.Show
Form1.Hide
End Sub