USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Senha no Access(Visualizar)
Postada em 16/4/2004 por RARS            
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String
Dim mask As String

   mask = Chr(78) & Chr(134) & Chr(251) & Chr(236) & _
          Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
          Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)

   Open "c:\protected db.mdb" For Binary As #1
   Seek #1, &H42
   For n = 1 To 14
      s1 = Mid(mask, n, 1)
      s2 = Input(1, 1)
      If (Asc(s1) Xor Asc(s2)) <> 0 Then
         lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
      End If
   Next
   Close 1
   MsgBox "The Password Is: " & lsClave
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página