AES Protector v1.3.2

[Ar-S]

Voilà un petit utilitaire que j'ai réalisé pour mes clients pro du fait du RGPD.
Il permet de chiffrer/déchiffrer des fichiers en AES 256bits par glisser/déposer
Mon programme utilise 7zip.
Il est portable, n'inscrit rien dans le registre et n'installe rien sur le système. Les dll sont incluent.

Portable : Oui
Prix : Gratuit
OS : testé sous Windows 10 (32/64bits)

Plus de détails dans l'aide ? du logiciel.

Récupérable : ICI

Merci pour vos éventuels retours.

[SPH]

On pourrait avoir le code PB ? (pour voir si ce n'est pas cassable)

[Ar-S]

Non, surtout que c'est pro.
De plus le code est accessible sur le site de 7zip
Pour ce qui est du cryptage, si tu peux déchiffrer de l'AES 256bits c'est que le mot de passe est daubé (via brut force ou dico) ou que tu as N pc à ta dispo pour brute force comme un porc
Mais ça ça vaut pour tout les chiffrements.

[Ar-S]

Version 1.3 (stable)
- Corrections
* recommencer ou non demande de mot de passe si champ vide
* Gestion du glisser/déposer pour un seul fichier à la fois
- Gestion de la prise en charge des extensions .exe[EncrypteD] fonctionnelle si vous souhaitez "Ouvrir avec" le logiciel.

[Marc56]

* Gestion du glisser/déposer pour un seul fichier à la fois

Pour gérer plusieurs fichiers en glisser/déposer il suffit de boucler avec CountProgramParameters()) et de les mettre dans une liste.
Ici une série de fichiers droppés sur l'icône seront traités un par un.

Code : Tout sélectionner

NewList All_Files$()

; Ajouter en liste tous les fichiers passés en paramètres ou droppés sur l'icone
For i = 1 To CountProgramParameters()
  AddElement(All_Files$())
  All_Files$() = ProgramParameter(i-1)
  All_Files$   + All_Files$() + Chr(10)
Next

; Traiter les fichiers en série ici (test avec simple copie)
If MessageRequester("Crypter les fichiers ?", All_Files$,
                    #PB_MessageRequester_YesNo) = #PB_MessageRequester_No
  MessageRequester("OK", "Annulé")
  End
Else
  ; Pour test: utilisation de la commande copy (et ajout de l'extension)
  ForEach All_Files$()
    If Not CopyFile(All_Files$(), All_Files$() + ".Crypt")
      MessageRequester("Erreur sur fichier ", All_Files$())
    EndIf
  Next
EndIf

[Ar-S]

Merci Marc56, c'est un choix volontaire.
Mes clients ont de toutes façon un fichier à envoyer à un instant T. J'ai conçu ce soft pour ça.
J'avoue que le plus chiant a été de justement limiter le drad n drop à un seul fichier 7zp renvoyant un nom comme "fichier1.trucfichier2.truc" lors d'un multimple drag n drop. J'ai paré à ce soucis via une liste chainée mais comme dit plus haut, je préfère ne pas laisser aux utilisateurs la possibilité de chiffrer plusieurs fichiers à la fois.

[Ar-S]

v1.3.2
- Corrections de bugs mineurs
- Ajout d'une barre d'info en bas du programme.

[venom]

Fonctionne bien chez moi. Simple, efficace. Merci
Ps: des ImageGadget a la place des ButtonGadget non ?






@++

[Ar-S]

Fonctionne bien chez moi. Simple, efficace. Merci

Merci pour ton retour

Ps: des ImageGadget a la place des ButtonGadget non ?

Pour un X et un ? je vais pas m'embêter avec ça ..