Visual Basic [Tutorial] - Membaca Password MS Access 97 (singkat/sederhana) PDF Print E-mail
Written by Rizki Noor Hidayat Wijayaź   
Sunday, 23 March 1997
VB Tutor - www.riskydigital.com
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String
Dim mask As String
VB Tutor - www.riskydigital.com
   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
Last Updated ( Sunday, 23 March 1997 )