Crypte/decrypte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 250 fois - Téléchargée 28 fois

Contenu du snippet

une fonction que j'utilise depuis des lustres...et peut être même avant.

Source / Exemple :


function crypte
parameters chaine
local l_crypt_lg,l_crypt_ch,l_crypt_tm,l_crypt_i
chaine = padr(chaine,20)
l_crypt_lg=len(chaine)
l_crypt_ch=""
for l_crypt_i=1 to l_crypt_lg
  l_crypt_tm=asc(substr("WHATEVRYUXZY",mod(l_crypt_i,11),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

? crypte(crypte("ceci est un test"))

Conclusion :


biensur, la chaine "WHATEVRYUXZY" est arbitraire et peut se limiter à 10 caractères ;)

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 27 février 2013
Statut
Membre
Dernière intervention
28 février 2013

Je veux que le résultat de cette fonction:
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
Messages postés
153
Date d'inscription
vendredi 2 mai 2003
Statut
Modérateur
Dernière intervention
2 avril 2010

La même fonction crypte et décrypte, il suffit de lui passer la chaine cryptée pour récupérer la chaine originale
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Euh ... là, tu te contentes de crypter. L'algorithme de décryptage n'est pas inclus, et serait sûrement intéressant à trouver.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.