// Résumé : <indiquez ici ce que fait la procédure>
// Syntaxe :
//[ <Résultat> = ] ChaineDecrypte ( [<sChaine> est chaîne [, <sCLE> est chaîne [, <bPourCrypter> est booléen]]])
//
// Paramètres :
// sChaine (chaîne ANSI - valeur par défaut="") : <indiquez ici le rôle de sChaine>
// sCLE (chaîne ANSI - valeur par défaut="") : <indiquez ici le rôle de sCLE>
// bPOurCrypter (booléen - valeur par défaut=1) : <indiquez ici le rôle de bPOurCrypter>
// Valeur de retour :
// chaîne ANSI : // Aucune
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
Procedure ChaineDecrypte(sChaine est une chaîne ANSI = "",sCLE est une chaîne ANSI = "",bPOurCrypter est un booléen = Vrai)

Machaine est une chaîne ANSI = sChaine
sRenvoyer est une chaîne ANSI
sCaract est une chaîne ANSI
tabDecallage est un tableau d'entier
nCaract est un entier
nPos est un entier

SI bPOurCrypter = Faux ALORS
Machaine = Décrypte(Machaine,"",crypteAucun,encodeBASE64)
FIN


SI sChaine = "" ALORS
RENVOYER sRenvoyer
SINON
SI sCLE = "" ALORS
sCLE = "Cl3_ParD3f@ut"
FIN

// Indice de décallage dans la table ascii
POUR i = 1 _A_ Taille(sCLE)
TableauAjoute(tabDecallage,0)

tabDecallage[i] = Asc(Milieu(sCLE,i,1))
SI EnModeTest() = Vrai ALORS
Trace(" Decallage : "+Milieu(sCLE,i,1)+" --> "+tabDecallage[i])
FIN
FIN


POUR j = 1 _A_ Taille(Machaine)


nPos ++


SI nPos > Taille(sCLE) ALORS
nPos = 1
FIN
sCaract = Milieu(Machaine,j,1)
nCaract = Asc(Milieu(sCaract,1,1))

SI nCaract > 32 _ET_ nCaract < 126 ALORS

SI EnModeTest() = Vrai ALORS
Trace("Crypte : "+nCaract)
FIN
SI (EstPair(j) _ET_ bPOurCrypter = Vrai) _OU_ (EstImpair(j) _ET_ bPOurCrypter = Faux) ALORS
nCaract = nCaract + Val (tabDecallage[nPos])
SINON
nCaract = nCaract - Val (tabDecallage[nPos])
FIN


TANTQUE nCaract > 125 OU nCaract < 33

SI nCaract > 125 ALORS
nCaract = 32 + (nCaract - 125)
SINON
SI nCaract < 33 ALORS
nCaract = 126 - (33-nCaract)
FIN
FIN
FIN

sCaract = Caract(nCaract)
SINON

FIN
sRenvoyer += sCaract
FIN
FIN


SI bPOurCrypter = Vrai ALORS
sRenvoyer = Crypte(sRenvoyer,"",crypteAucun,encodeBASE64)
FIN




RENVOYER sRenvoyer

Procedure secured_encrypt(vp_text) : chaîne

PRIVÉ
_result est une chaîne=""

_buff_cle_aes128 est un Buffer sur 16=Decode(CLE_128BITS,encodeBASE64)
_buff_cle_aes256 est un Buffer sur 32=Decode(CLE_256BITS,encodeBASE64)
_buff_cle_hash512 est un Buffer sur 64=Decode(CLE_512BITS,encodeBASE64)
_buff_text est un Buffer=ChaîneVersUTF8(vp_text)
_buff_crypt est un Buffer=CrypteStandard(_buff_text,_buff_cle_aes256,crypteAES256,crypteCBC)
_buff_result est un Buffer
_buff_hash est un Buffer sur 64=HashChaîne(HA_HMAC_SHA_512,_buff_crypt[[17 À]],_buff_cle_hash512) // ou bien HA_SHA_512 , reprendre le même que celui utilisé en PHP

SI EnModeTest() ALORS
Trace("Vecteur : "+Remplace(Encode(_buff_crypt[[À 16]],encodeBASE64),RC,""))
Trace("Hash : "+Remplace(Encode(_buff_hash,encodeBASE64),RC,""))
Trace("Data : "+Remplace(Encode(_buff_crypt[[17 À]],encodeBASE64),RC,""))
FIN

_buff_result=_buff_crypt[[À 16]]
_buff_result+=_buff_hash
_buff_result+=_buff_crypt[[17 À]]
_result=Remplace(Encode(_buff_result,encodeBASE64),RC,"")

RENVOYER _result

Procedure secured_decrypt(vp_text_base64) : chaîne

PRIVÉ
_buff_cle_aes128 est un Buffer sur 16=Decode(CLE_128BITS,encodeBASE64)
_buff_cle_aes256 est un Buffer sur 32=Decode(CLE_256BITS,encodeBASE64)
_buff_cle_hash512 est un Buffer sur 64=Decode(CLE_512BITS,encodeBASE64)

_buff_global est un Buffer=Decode(vp_text_base64,encodeBASE64)
_buff_vecteur est un Buffer sur 16=_buff_global[[ À 16]]
_buff_data est un Buffer=_buff_global[[81 À]]
_buff_hash est un Buffer sur 64=_buff_global[[17 SUR 64]]
_buff_decrypt est un Buffer=DécrypteStandard(_buff_vecteur+_buff_data,_buff_cle_aes256,crypteAES256,crypteCBC)

_buff_hash_calcule est un Buffer sur 64=HashChaîne(HA_HMAC_SHA_512,_buff_data,_buff_cle_hash512) // ou bien HA_SHA_512 , reprendre le même que celui utilisé en PHP

SI EnModeTest() ALORS
Trace("Vecteur : "+Remplace(Encode(_buff_global[[À 16]],encodeBASE64),RC,""))
Trace("Hash calculé : "+Remplace(Encode(_buff_hash,encodeBASE64),RC,""))
Trace("Hash originel : "+Remplace(Encode(_buff_global[[17 SUR 64]],encodeBASE64),RC,""))
Trace("Data : "+Remplace(Encode(_buff_global[[81 À]],encodeBASE64),RC,""))
FIN

SI _buff_hash=_buff_hash_calcule ALORS
RENVOYER UTF8VersChaîne(_buff_decrypt)
SINON
RENVOYER Null
FIN