免费公布access2000解密源码，欢迎各位提出完善意见

[sealy]

（找了好久才找到的）算法如下，但语法可能有错，在此希望大家修改并像我一样公布出来！！
先替大伙感谢各位了！！


Private Sub Form_Load()
Dim mm0(13), mm1(13), mm2(13) As Byte

mm0(0) = &H86
mm0(1) = &HFB
mm0(2) = &HEC
mm0(3) = &H37
mm0(4) = &H5D
mm0(5) = &H44
mm0(6) = &H9C
mm0(7) = &HFA
mm0(8) = &HC6
mm0(9) = &H5E
mm0(10) = &H28
mm0(11) = &HE6
mm0(12) = &H13
Open "d:\db1.mdb" For Binary Access Read As #1
Get #1, &H42, mm1　　　　’此句尚存在错误，不知如何修改？？
Dim i As Integer
For i = 0 To i < 13
mm2(i) = mm0(i) Xor mm1(i)
Next
Dim mm As String
For i = 0 To i < 13
mm = mm & mm2(i)
Next
MsgBox mm
End Sub