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

Forum AtoutFox : Procédure Cryptage AES BY G. ADAM   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mar. 30 mai 2017, 17h42

GLS
France France

atoutfox.public.association

Procédure Cryptage AES BY G. ADAM

Bonjour,

Je suis complètement perdu avec le PRG Crypto fourni par Gregory.
Voici le code source de test (malheureusement ce que je récupère dans le messagebox() n'est pas crypté)
* Utilisation des fonctions de cryptage de Grégory ADAM
SET PROCEDURE TO Crypto
SET ASSERTS ON

#define BLOCKCIPHER_MODE_CBC    1
#define BLOCKPADDING_MODE_PKCS7    1
#define CRLF            CHR(13) + CHR(10)
LOCAL oObj AS OBJECT, cTexte AS STRING

IF Crypto_Aes_Encryptor_Object( ;
    @m.oObj,;
    BLOCKCIPHER_MODE_CBC,;
    BLOCKPADDING_MODE_PKCS7,;
    PADR(' ',32), ;      && length 16, 24 or 32
    PADR(' ',16) ;
    )
  cTexte = PADR(REPLICATE("C'est mon texte à crypter..." + CRLF, 30) , 4096, SPACE(1))
  =oObj.TransformBuffer(m.cTexte, .T.)
  =MESSAGEBOX(m.cTexte)
ENDIF


Une bonne âme serait-elle suffisamment charitable pour me dire ce que je n'utilise pas bien ou ce que je ne comprend pas bien ?

Amicalement
Gilles

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018278
18 279 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

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