Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Crypte/decrypte

4/5 (3 avis)

Snippet vu 13 079 fois - Téléchargée 16 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

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.