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
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
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é 8882 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é ...

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