I wanted to upgrade a code from version 5.73 to version 6.11.
I encountered an "error". Actually, more of a fix.
Run this code on version 5.73:
Code: Select all
UseMD5Fingerprint()
RandomSeed(100)
Dim vingt.b(21)
For i=1 To 21
vingt(i)=Random(255)
Next
mdp$="1"
StringFP$= StringFingerprint(mdp$+Chr(vingt(21)), #PB_Cipher_MD5)
For i=1 To 20
StringFP$+ StringFingerprint(StringFP$+Chr(vingt(i)+mdp_sph), #PB_Cipher_MD5); erreur car "vingt.b". Hors, il faut un .w ou +
Next
Debug StringFP$
;;;
If CreateFile(6, "F:\TestSPH.txt") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
FileSeek(6, Lof(6)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof()
WriteString(6, StringFP$)
CloseFile(6)
EndIf
End:End
So far, so good."9bf31c7ff062936a96d3c8bd1f8f2ff3...5970e5cb7da573db02e7321f"
Now, run this code on PB 6.11 (6.x+). It creates an error! Because PB_Cipher_MD5 doesn't want a .b value
BUT: compile the code and run it. It will create a file that is correct!
So, we can INDIRECTLY use .b with PB_Cipher_MD5!
==
I'm waiting to see what you have to say.... What do you think?


