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 ' Apre il file in Input. For NextChar = 67 To 79 Step 1 ' Carica la stringa crittata Seek #1, NextChar ' posizionamento MyChar = Input(1, #1) ' Legge i carateri TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) ' Decritta usando Xor ' secretpos = secretpos + incremento Next NextChar Close #1 ' Chiude il file. AccessPassword = TempPwd ' Password in chiaro End Function |