Function AccessPassword(Byval Filename As string) as string
Dim MaxSize, NextChar, MyChar, secretpos,TempPwd Dim secret(13) secret(0) = (&H86) secret(1) = (&HFB) secret(2) = (&HEC) secret(3) = (&H37) secret(4) = (&H5D) secret(5) = (&H44) secret(6) = (&H9C) secret(7) = (&HFA) secret(8) = (&HC6) secret(9) = (&H5E) secret(10) = (&H28) secret(11) = (&HE6) secret(12) = (&H13) secretpos = 0 Open Filename For Input As #1' Open file for input. For NextChar = 67 To 79 Step 1 'Read In Encrypted Password Seek #1, NextChar' Set position. MyChar = Input(1, #1)' Read character. TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) 'Decrypt using Xor secretpos = secretpos + 1'increment pointer Next NextChar Close #1' Close file. AccessPassword = TempPwd End Function '---====[ pAssed by vbTips32 codeBook ]====--- |