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