Discussion :

[nexusmusic00]

Bonjour,

J'ai fais 2 procedure pour crypte et decrypte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
PROCÉDURE Encrypt(DataToEncrypt)
 
sMessage	est un Buffer	= ChaîneVersUTF8(DataToEncrypt)
bufCrypte	est un Buffer	= SansEspace(CrypteStandard(sMessage, xKey, crypteAES128))
 
RENVOYER bufCrypte

DataToEncrypt vas prendre une valeur depuis une saisie et bufCrypte vas etre sauvgarder dans un fichier.
xKey est une cle qui en definie en global du project.


Je vais utiliser ce procedure pour decrypte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
PROCÉDURE Decrypt(DataToDecrypt)
 
SI DataToDecrypt <> "" ALORS
sRésultat est un Buffer	= UTF8VersChaîne(DécrypteStandard(DataToDecrypt,xKey,crypteAES128))
FIN
RENVOYER sRésultat

sRésultat qui doit renvoyer la valeur du saisie qui est crypte.

j'ai un message d'erreur indiquant que la chaîne à décrypter est trop courte pour contenir un vecteur dans la PROCÉDURE Decrypt.

Comment je fais pou resoudre cela?

Merci.

[lepatantpato]

Bonjour

xKey doit faire 16 octets
et dans Decrypt, "sRésultat est un Buffer" doit être déclaré avant Si…

Sinon c’est bon. (vérifié en W24)

[philouZ]

je te conseille de faire un hash de la clé dès le départ avec un algo sur 128 type MD5. et tu ne devrais plus avoir de problèmes. Bien faire attention à l'utf8...

[nexusmusic00]

je te conseille de faire un hash de la clé dès le départ avec un algo sur 128 type MD5. et tu ne devrais plus avoir de problèmes. Bien faire attention à l'utf8...

Comment je fais si j'ai un nom pou decrypte?
Par exemple, Peter Parker, quand il y a un espace au millieu du prenom et nom?

J'ai un erreur sur ca: This message decryption failed.

[philouZ]

Comment je fais si j'ai un nom pou decrypte?
Par exemple, Peter Parker, quand il y a un espace au millieu du prenom et nom?

J'ai un erreur sur ca: This message decryption failed.

Je ne saisis pas où se situe le problème avec l'espace dont tu parles ??? Elle vient d'où cette valeur et elle correspond à quoi ?

[nexusmusic00]

je te conseille de faire un hash de la clé dès le départ avec un algo sur 128 type MD5. et tu ne devrais plus avoir de problèmes. Bien faire attention à l'utf8...

Bonjour,

J'ai encore le message d'erreur indiquant que la chaîne à décrypter est trop courte pour contenir un vecteur dans la PROCÉDURE Decrypt.

Ma procuedure de Decrypt est maintenant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
PROCÉDURE DecryptData(DataToDecrypt)
 
 
	zKey		est un Buffer	= HashChaîne(HA_MD5_128, "1234x")
	SI DataToDecrypt <> "" ALORS
		sRésultat est un Buffer	= UTF8VersChaîne(DécrypteStandard(DataToDecrypt,zKey,crypteAES128))
	FIN
 
	RENVOYER sRésultat
FIN