Dim r(13) As Byte
Dim t As Byte
s(0) = &H86:s(1) = &HFB:s(2) = &HEC:s(3) = &H37:s(4) = &H5D:s(5) = &H44
s(6) = &H9C:s(7) = &HFA:s(8) = &HC6:s(9) = &H5E:s(10) = &H28:s(11) = &HE6
s(12) = &H13Open filename For Binary Access Read As #1
For i = 1 To 81
Get #1, i, t
If i > 66 And i < 80 Then dest(i - 67) = tt
Next
For i = 0 To 12
r(i) = s(i) Xor dest(i)
password = password + Chr(r(i))
Next
Dim t As Byte
s(0) = &H86:s(1) = &HFB:s(2) = &HEC:s(3) = &H37:s(4) = &H5D:s(5) = &H44
s(6) = &H9C:s(7) = &HFA:s(8) = &HC6:s(9) = &H5E:s(10) = &H28:s(11) = &HE6
s(12) = &H13Open filename For Binary Access Read As #1
For i = 1 To 81
Get #1, i, t
If i > 66 And i < 80 Then dest(i - 67) = tt
Next
For i = 0 To 12
r(i) = s(i) Xor dest(i)
password = password + Chr(r(i))
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货