Discussion :

[Ibico]

Bonjour,

Je recherche de l'aide à propos de la fonction CrytpeStandard.

Comme données, j'ai une clé : wzTLDwHyR/YJH24pFSShkw==
J'ai un vecteur d'initialisation : uBA2Y4q9jd+cRzkXSgwidg==
Je dois convertir tout ça en base 64 avec une taille de 128bits

Avec l'algorithme AES sur 128bits, mode CBC et padding PKCS.

Je sais que pour la fonction cryptestandard on lui passe une donnée à crypter, une clé et le tour est joué.
Mais là franchement je patauge.

Avez-vous des idées, avez-vous déjà mis ça en place ?

D'avance Merci.

[Lo²]

Bonjour,

Quel est le problème rencontré ?

[Ibico]

Bonjour,

Quel est le problème rencontré ?

Et bien en fait pour résoudre mon problème j'ai pris la question à l'envers. Je suis parti de la fin pour remonter jusqu'au début pour trouver la bonne méthode.
Mais Je décrypte un chaine, j'ai pour cela ma chaine une clé un vecteur d'initialisation : voici le code :

commence ici :
buDecode est un Buffer = Décrypte("Iya5uKbVLqCXXhfKrXM4cfhDhDOz0NYSmUdZumzfbgI=","",crypteAucun,encodeBASE64)

// On décrypte la clé avec la valeur d'initialisation

buCledeDecodage est un Buffer = Décrypte("wzTLDwHyR/YJH24pFSShkw==","uBA2Y4q9jd+cRzkXSgwidg==",crypteAucun,encodeBASE64)

//On lance le décryptage :

buDecryptee est un Buffer = DécrypteStandard(buDecode,buCledeDecodage,crypteAES128,crypteCBC,cryptePaddingPKCS)


//Résultat = "5615232}"

buResultatCrypte est un Buffer = CrypteStandard(buDecryptee,buCledeDecodage,crypteAES128,crypteCBC,cryptePaddingPKCS)

// On décrypte le resultat qui est en base 64

buResultatDecrypte est un Buffer = Crypte(buResultatCrypte,"",crypteAucun,encodeBASE64)

fin ici.

Mon problème : ma chaine trouvée buResultatDecrypte n'est pas égale à ma chaine origine ("Iya5uKbVLqCXXhfKrXM4cfhDhDOz0NYSmUdZumzfbgI=")

Je cherche pour cela à crypter une chaine pour utiliser un webservice

[Invité]

à mes yeux, c'est très brouillon dans ce que tu fais, ce qui explique ton soucis, regarde plutôt la doc sur la fonction de cryptage : http://doc.pcsoft.fr/?1000021293

[Ibico]

à mes yeux, c'est très brouillon dans ce que tu fais, ce qui explique ton soucis, regarde plutôt la doc sur la fonction de cryptage : http://doc.pcsoft.fr/?1000021293

Je m'attendais à autre chose comme réponse, regarde la doc. C'est déjà ce que je fais depuis deux jours !

M'enfin !

[Invité]

C'est déjà ce que je fais depuis deux jours !

Si tu compares ton code par rapport à ce qui est dans la doc, tu vois que les 2 méthodes sont totalement différentes.
Déjà pour commencer, que fais-tu en faisant:

Code :

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

buDecode est un Buffer = Décrypte("Iya5uKbVLqCXXhfKrXM4cfhDhDOz0NYSmUdZumzfbgI=","",crypteAucun,encodeBASE64)

Edit: dans ton cas, le cryptage/décryptage fonctionne dans ce style l):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
monmessage est un Buffer="Mon Message"
Macle est un Buffer=HashChaîne(HA_MD5_128,"MaCle")
 
MonMessageCypte est un Buffer=CrypteStandard(monmessage,Macle,crypteAES128,crypteCBC,cryptePaddingPKCS)
MonMessageDeCypte est un Buffer=DécrypteStandard(MonMessageCypte,Macle,crypteAES128,crypteCBC,cryptePaddingPKCS)
 
SI monmessage=MonMessageDeCypte ALORS
	Info("Cryptage ok")
SINON
	Erreur("Erreur de cryptage")
FIN

[Ibico]

Si tu compares ton code par rapport à ce qui est dans la doc, tu vois que les 2 méthodes sont totalement différentes.
Déjà pour commencer, que fais-tu en faisant:

Code :

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

buDecode est un Buffer = Décrypte("Iya5uKbVLqCXXhfKrXM4cfhDhDOz0NYSmUdZumzfbgI=","",crypteAucun,encodeBASE64)

Vu que mon résultat est en base 64, je le décode