mdb密码破解示范

mdb密码破解示范
None
Private Sub Command1_Click()
Dim source(13), dest(13), result(13) As Byte
Dim tt As Byte
source(0) = &H86
source(1) = &HFB
source(2) = &HEC
source(3) = &H37
source(4) = &H5D
source(5) = &H44
source(6) = &H9C
source(7) = &HFA
source(8) = &HC6
source(9) = &H5E
source(10) = &H28
source(11) = &HE6
source(12) = &H13
Cls
If Trim(cd1.FileName) = "" Then Exit Sub
Open cd1.FileName For Binary Access Read As #1
For i = 1 To 81
Get #1, i, tt
If i > 66 And i < 80 Then dest(i - 67) = tt
Next
Text1 = ""
For i = 0 To 12
result(i) = source(i) Xor dest(i)
Text1 = Text1 + Chr(result(i))
Next

Close #1
End Sub

Private Sub Command2_Click()
cd1.Filter = "*.Mdb|*.mdb"
cd1.ShowOpen
If Trim(cd1.FileName) <> "" Then Text2 = cd1.FileName
End Sub
 

转载于:https://www.cnblogs.com/bingoyan/archive/2012/10/23/2736058.html