ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment encrypter un message avec CAPICOM et Foxpro   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Crypto - Hash - Compression

Comment encrypter un message avec CAPICOM et Foxpro
# 0000000778
ajouté le 12/12/2010 16:53:06 et modifié le 12/12/2010
consulté 3941 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0

Description

CAPICOM est un DLL de Microsoft qui permet d'encrypter des messages, inclure des signatures digitales dans un courriel etc. Vous pouvez le télécharger ici :http://www.microsoft.com/downloads/en/details.aspx?FamilyID=860ee43a-a843-462f-abb5-ff88ea5896f6&displaylang=en.

Voici comment encrypter et décrypter un message (avec clef privée). Mais CAPICOM a plusieurs autre utilitées.

Vous pouvez les trouver ici:http://msdn.microsoft.com/en-us/library/aa375732(v=vs.85).aspx

Code source :
CLEAR
#DEFINE CAPICOM_ENCRYPTION_ALGORITHM_RC2 0
#DEFINE CAPICOM_ENCRYPTION_ALGORITHM_RC4 1
#DEFINE CAPICOM_ENCRYPTION_ALGORITHM_DES 2
#DEFINE CAPICOM_ENCRYPTION_ALGORITHM_3DES 3
#DEFINE CAPICOM_ENCRYPTION_ALGORITHM_AES 4
#DEFINE CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM 0
#DEFINE CAPICOM_ENCRYPTION_KEY_LENGTH_40_BITS 1
#DEFINE CAPICOM_ENCRYPTION_KEY_LENGTH_56_BITS 2
#DEFINE CAPICOM_ENCRYPTION_KEY_LENGTH_128_BITS 3
#DEFINE CAPICOM_ENCRYPTION_KEY_LENGTH_192_BITS 4
#DEFINE CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS 5
LOCAL loEncrypt,lcEncryptedMessage
loEncrypt = CREATEOBJECT("capicom.encrypteddata")
loEncrypt.Algorithm  = CAPICOM_ENCRYPTION_ALGORITHM_AES
loencrypt.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_256_BITS
loEncrypt.SetSecret('password')
loEncrypt.Content = "Foxpro Rocks!"
lcEncryptedMessage=loEncrypt.Encrypt()
?lcEncryptedMessage
loEncrypt=null


loEncrypt = CREATEOBJECT("capicom.encrypteddata")
loEncrypt.SetSecret('password')
loEncrypt.Decrypt(lcEncryptedMessage)
?loEncrypt.content

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3