Bonjour, je me bat toujours avec ce maudit erreur ascii j ai essaye pour voir a reproduire l erreur
j ai copie coller deux nouvelles methodes dans la classe qui sont reprise du CrypteUrl et du URLdecrypte que j ia renomme pour l exercice
FONCTION PRIVÉ CalculCryptage(p_cleFournie,p_taille)
v_indice est un entier=1
v_retour est une chaîne
v_retour= p_cleFournie
SI p_taille > 20 ALORS p_taille = 20
BOUCLE
SI Taille(v_retour) >= p_taille ALORS SORTIR
v_retour += p_cleFournie<a href='https://forum.sqlmanagerx.com/modules/mediawiki/?title=v_indice' target='_blank' title=''>v_indice</a>
SI v_indice > Taille(p_cleFournie) ALORS v_indice = 1
v_indice++
FIN
RENVOYER v_retour
PROCEDURE TempCrypteId(pURL is string)
v_URLCrypte est une chaîne
i est un entier
v_indiceCle est un entier = 1
v_Cryptage est une chaîne
v_Cryptage = :CalculCryptage(::K_PUBLIC_KEY,Taille(pURL))
:tailleCleAjuste = Taille(pURL)
POUR i=1 A Taille(pURL)
SI v_indiceCle> Taille(v_Cryptage) ALORS v_indiceCle = 1
v_URLCrypte = v_URLCrypte +Droite(1000+Val(Asc(pURL<a href='https://forum.sqlmanagerx.com/modules/mediawiki/?title=i' target='_blank' title=''>i</a>)+Asc(v_Cryptage<a href='https://forum.sqlmanagerx.com/modules/mediawiki/?title=v_indiceCle' target='_blank' title=''>v_indiceCle</a>) ),1)
v_indiceCle++
FIN
RENVOYER (v_URLCrypte)
PROCEDURE TempDecrypteId(pURL is string)
v_URLDeCrypte est une chaîne
i est un entier
v_indiceCle est un entier = 1
v_Cryptage est une chaîne
v_Cryptage = :CalculCryptage(::K_PUBLIC_KEY,Taille(pURL)/1)
i=1
TANTQUE i <= Taille(pURL)
SI v_indiceCle> Taille(v_Cryptage) ALORS v_indiceCle = 1
v_URLDeCrypte = v_URLDeCrypte +(Caract(Val(pURL<a href='https://forum.sqlmanagerx.com/modules/mediawiki/?title=i+sur+1+' target='_blank' title=''>i sur 1 </a>)- Asc(v_Cryptage<a href='https://forum.sqlmanagerx.com/modules/mediawiki/?title=v_indiceCle' target='_blank' title=''>v_indiceCle</a>)))
v_indiceCle++
i=i+3
FIN
RENVOYER (v_URLDeCrypte)
dans une fenetre un champs de saisie, 1 bouton et un libelle
sur le bouton je met ce code :
V_CrypteTemp est une chaîne
V_CrypteTemp = sql:TempCrypteId(Saisie1)
Libellé1 = V_CrypteTemp
V_CrypteTemp = Libellé1
V_CrypteTemp = sql:TempDecrypteId(V_CrypteTemp)
Libellé1 +=RC+V_CrypteTemp
et la systematiquement j ai l erreur
Merci
Smallfoot
Transférer
