Alors ca, c'est une mauvaise nouvelle. Je ne me l'explique pas.Kwai chang caine a écrit :Ma photo n'est pas revenu complete, le bas a été tronqué en gris
Oui, mutantekey se connecte pour savoir si ta version est enregistré.Denis a écrit :Mon firewall m'a indiqué que MutanteKey tentait de se connecter, j'ai bloqué mais c'est peut-être pas MutanteKey...
Code : Tout sélectionner
UpdateWindow_(GadgetID(Gadget))
Code : Tout sélectionner
SendMessage_(GadgetID(Gadget), #WM_SETREDRAW, #True, 0)
InvalidateRect_(GadgetID(Gadget), 0, #True)
UpdateWindow_(GadgetID(Gadget))Code : Tout sélectionner
Delay(Temps)
Pas de probleme avec la photo de ta copine...Kwai chang caine a écrit :http://erdsjb.free.fr/PureStorage/Provisoire/Effet.jpg
Code : Tout sélectionner
Directory$ = "D:\PIM_2_0\"
Dossier_A_crypter$ = Directory$ + "Images à crypter"
Dossier_decrypter$ = Directory$ + "Images décryptées"
#Dossier_A_crypter = 0
#Dossier_decrypter = 1
SourceFileName$ = ""
Destination_FileNames$ = ""
compteur = 0
compteur_identique = 0
;// comparaison
If ExamineDirectory(#Dossier_A_crypter, Dossier_A_crypter$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
SourceFileName$ = DirectoryEntryName(#Dossier_A_crypter)
Debug "Fichier en cours : " + SourceFileName$
compteur + 1
If ExamineDirectory(#Dossier_decrypter, Dossier_A_crypter$, "*.*")
While NextDirectoryEntry(#Dossier_decrypter)
If DirectoryEntryType(#Dossier_decrypter) = #PB_DirectoryEntry_File
Destination_FileNames$ = DirectoryEntryName(#Dossier_A_crypter)
;// on compare le nom
If LCase(SourceFileName$) = LCase (Destination_FileNames$)
;// on compare la taille
size1.q = FileSize(Dossier_A_crypter$ + "\" + SourceFileName$)
size2.q = FileSize(Dossier_decrypter$ + "\" + Destination_FileNames$)
Select size1
Case size2
;// les fichiers ont la même taille, on compare toutes les données
*mem1 = AllocateMemory(size1)
If *mem1 = 0
Debug "impossible d'allouer de la mémoire"
Else
*mem2 = AllocateMemory(size2)
If *mem2 = 0
Debug "impossible d'allouer de la mémoire"
FreeMemory(*mem1)
EndIf
;// ici c'est Ok on charge et on compare
If ReadFile(100, Dossier_A_crypter$ + "\" + SourceFileName$)
If ReadFile(101, Dossier_decrypter$ + "\" + Destination_FileNames$)
ReadData(100, *mem1, size1)
ReadData(101, *mem2, size2)
CloseFile(101)
CloseFile(100)
Else
CloseFile(100)
EndIf
EndIf
If CompareMemory(*mem1, *mem2, size1) = 1
;// les fichiers sont identiques
Debug "Le fichier source est identique au fichier créé"
Debug ""
compteur_identique + 1
Else
;// les fichiers sont différents
Debug "Le fichier source est différent du fichier créé"
Debug ""
EndIf
EndIf
If *mem1
FreeMemory(*mem1)
*mem1 = 0
EndIf
If *mem2
FreeMemory(*mem2)
*mem2 = 0
EndIf
Default
;// pas la même taille, ça craint ...
Debug "Le fichier décryptée " + Destination_FileNames$ +" n'a pas la même taille que le fichier d'origine"
Debug ""
EndSelect
;//on quitte la boucle
Break
Else
;// on continue la comparaison
EndIf
EndIf
Wend
FinishDirectory(#Dossier_decrypter)
EndIf
EndIf
Wend
FinishDirectory(#Dossier_A_crypter)
EndIf
Debug ""
Debug "Fichiers d'origine trouvés : " + Str(compteur)
If compteur <> compteur_identique
Debug ""
Debug "Tous les fichiers ne sont pas identiques : " + Str(compteur - compteur_identique) + "fichiers différents"
Else
Debug ""
Debug "***************************************************"
Debug "Tous les fichiers sont identiques !"
Debug "***************************************************"
EndIfHa ok, me voila rassuré.Denis a écrit :J'ai appliqué sur 130 images et j'ai regardé si les 130 images décryptées étaient conformes aux images d'origine, c'est tout.
juste un contrôle.