CRYPTE/DECRYPTE
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
23 nov. 2006 à 21:17
cs_karim55 Messages postés 1 Date d'inscription mercredi 27 février 2013 Statut Membre Dernière intervention 28 février 2013 - 28 févr. 2013 à 13:42
cs_karim55 Messages postés 1 Date d'inscription mercredi 27 février 2013 Statut Membre Dernière intervention 28 février 2013 - 28 févr. 2013 à 13:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30325-crypte-decrypte
https://codes-sources.commentcamarche.net/source/30325-crypte-decrypte
28 févr. 2013 à 13:42
FUNCTION CRYPTE
PARAMETER CHAINE
LOCAL L_CRYPT_LG, L_CRYPT_CH, L_CRYPT_TM, L_CRYPT_I
CHAINE = ALLTRIM(PADR(CHAINE, 50))
L_CRYPT_LG = LEN(CHAINE)
L_CRYPT_CH = ""
FOR L_CRYPT_I = 1 TO L_CRYPT_LG
L_CRYPT_TM = ASC(SUBSTR("0123456789ABCDEF", MOD(L_CRYPT_I, 8), 1))
L_CRYPT_TM = MOD(ASC(SUBSTR(CHAINE, L_CRYPT_I, 1))+L_CRYPT_TM, 255)
L_CRYPT_CH = L_CRYPT_CH+CHR(255-L_CRYPT_TM)
ENDFOR
RETURN L_CRYPT_CH
ENDFUNC
16 déc. 2006 à 17:42
23 nov. 2006 à 21:17