MutanteKey

[SPH]

Voila mon premier vrai logiciel :
http://xmas.free.fr/pb/MutanteKey.zip

Je pense qu'il est pret a etre publié. Quelles sont vos remarques ?

[Kwai chang caine]

Bonjour SPH

Je viens juste de l'essayer

Tout d'abord, il est pas comme les autres giciels que j'ai rencontré de cryptage

J'adore le graphisme du titre et l'icone, c'est la grande classe
Original le fait de crypter a partir d'autres fichiers, je ne sais pas si c'est plus sur qu'une clef, mais c'est pas commun
Bien sur il y a l'inconvenient, qu'il faille se trainer les 3 clefs, mais c'est une idée que j'avais encore pas vue

Ma photo n'est pas revenu complete, le bas a été tronqué en gris

Quand le cryptage/Decryptage est terminé ça serait bien que tu le signale, par un msgbox ou autre, et que la progressbar se vide ou s'efface, car on attend sans savoir si c'est terminé.

Pour le decryptage je n'ai pas pu choisir le fichier mais un repertoire, ça allait que j'avais qu'une photo a decrypter, peut etre est ce fait expres ????

Bon boulot SPH

[SPH]

Ma photo n'est pas revenu complete, le bas a été tronqué en gris

Alors ca, c'est une mauvaise nouvelle. Je ne me l'explique pas.
Si la photo n'est pas personnelle, pourrais tu me la passer ainsi que les 3 clés pour que j'essaye ?

[Anonyme2]

J'ai testé avec environ 130 images :

Mon firewall m'a indiqué que MutanteKey tentait de se connecter, j'ai bloqué mais c'est peut-être pas MutanteKey...

La fenêtre de MutanteKey reste en-dessous des mes fenêtres à l'ouverture, il faudrait la placer au premier plan.
Je ne sais pas si c'est parce que j'ai bloqué la connexion que l'ouverture de MutanteKey n'est pas très rapide.

C'est beaucoup plus lent que la version avec ton code PB.
La progressbar ne se met pas du tout à jour sous seven, il faudrait après chaque image dans ta boucle, rafraichir la progressbar.
Idem pour la progressbar en decrytage.

Les quelques images que j'ai comparées sont identiques.

[SPH]

Mon firewall m'a indiqué que MutanteKey tentait de se connecter, j'ai bloqué mais c'est peut-être pas MutanteKey...

Oui, mutantekey se connecte pour savoir si ta version est enregistré.
Pour le reste, je vais reflechir

[Anonyme2]

Pour la progressbar tu peux essayer ça

Code : Tout sélectionner

     UpdateWindow_(GadgetID(Gadget))

ou ça, à voir

Code : Tout sélectionner

     SendMessage_(GadgetID(Gadget), #WM_SETREDRAW, #True, 0)
     InvalidateRect_(GadgetID(Gadget), 0, #True)
     UpdateWindow_(GadgetID(Gadget))

ou encore dans ta boucle (à tester)

Code : Tout sélectionner

Delay(Temps)

avec temps à quelques millisecondes

[SPH]

Tiens, voila le code mais sans les datas. Ou veux tu tester ta ligne de code ?
A propos, quand tu visionne une image, elle se met au premier plan car apres on peux "surfer" avec PAGE UP et PAGE DOWN. On peux aussi zoomer avec + et - et echapper avec ESC.

[Kwai chang caine]

Bon...un truc de dingue

Comme je te le dit, la photo est tronquée en bas
Je la rappelle 2/3/4 fois et pareil

Si je regarde l'originale, qui n'a pas de problème évidemment, et que je regarde a nouveau la tienne, et ben la plus de troncage
Et même si je rappelle la tienne plusieurs fois.....c'est peut être un effet de mon PC...en fin de compte
Et encore plus bizarre, une fois dans le zip je la regarde, et elle est bonne

A croire qu'elle est corrigée en route par Acdsee

Alors je t'envoie la photo tout de suite après le décodage sans la regarder, et tu pourras me dire si elle identique a l'original
Avant que tu me le demande...ce n'est ni ma soeur, ni ma copine...ni celle de mon copain...et c'est bien dommage

Les clefs dans l'ordre et l'original
http://erdsjb.free.fr/PureStorage/Provi ... iginal.zip

Ton fichier décodé
http://erdsjb.free.fr/PureStorage/Provisoire/Effet.jpg

[SPH]

http://erdsjb.free.fr/PureStorage/Provisoire/Effet.jpg

Pas de probleme avec la photo de ta copine...

[Anonyme2]

En fait j'ai pas testé le visionnage, j'ai juste créé les fichiers.

J'ai fait vite fait ce petit code (pas très propre, pas optimisé mais fonctionnel).

Il compare les 2 dossiers que j'ai fait ou il n'y a que les images à cryter et dans le second celles déryptées.
J'ai exécuté et les 130 images décryptées sont identiques à celles d'origine.

voilà le code pour essai et debuggage

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 "***************************************************"
EndIf

[SPH]

Bin, je suis encore en train de me demander pourquoi tu as codé ca. J'ai bien peur de ne pas avoir compris ou est le probleme...

[Anonyme2]

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.

[SPH]

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.

Ha ok, me voila rassuré.

[SPH]

D'autres qui auraient rencontré des soucis ? Des suggestions ??

[venom]

tester chez moi, L'image a bien étais crypter, une foi décrypter je voie la miniature mais l'image pèse 0 Ko et impossible de l'ouvrir.






@++