Cryptage et décryptage de chaînes et de fichiers [module de classe]


Télécharger le projet
Commenter

Description

Cette classe (VB6, importable pour VBA) vous donne un accès facile pour crypter et décrypter des données.

j'avais besoin assez rapidement d'un code fiable, aussi après recherches (pas la peine de ré-inventer la roue...) je suis tombé sur le code d'Alexandre PUKALL, à cette adresse : http://membres.lycos.fr/pc1/
Merci à lui pour ce partage

après tests, le résultat me convenait, mais pas les performances

j'ai donc remanié son code "libre" :
=> le codage d'un fichier est 2 fois plus rapide
=> le codage d'une chaîne est 21 fois plus rapide :p

la classe offre :
=> les évènements d'état de traitement
=> les méthodes pour :
-> (dé)cryptage de string
-> (dé)cryptage de tableau de byte
-> (dé)cryptage de fichier (en mémoire)
-> (dé)cryptage de fichiers volumineux (écriture en direct)
=> état de travail en cours et de succès de l'opération

Source / Exemple : 


Sub Test()
    Dim AfCipher As New AfCls_Cipher

    With AfCipher
        .Key = "blabla"
        .DecryptString "pdfjijdolknhnmpeapnneeipoboockco"
        If .Success Then MsgBox .Value
        
        .CryptSmallFile App.Path & "\PrivateFile.zip", App.Path & "\CryptedFile.dat"
        If .Success Then MsgBox .Value, , "Fichier crypté avec succès"
    End With
    
    Set AfCipher = Nothing
End Sub

Conclusion :

    • j'ai commenté également "au mieux" le fonctionnement du cryptage, les crédits reviennent à l'auteur de l'algo : Alexandre PUKALL
    • si certains d'entre vous ont des repères de comparaison, tant en rapidité qu'en qualité, n'hésitez pas à en faire part ;)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)