une fonction que j'utilise depuis des lustres...et peut être même avant.
Code source :
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"))
Commentaires
le 25/03/2005, FredA a écrit : biensur, la chaine "WHATEVRYUXZY" est arbitraire et peut se limter à 10 caractères ;)
le 06/09/2007, laurent.dellacherie2 a écrit : Merci Frédéric, cette fonction est superbe. Simplicité et performance. Car si je met un texte comme "AAAA" tu obtiendra des lettres identiques pour ton message. Ce qui rend la cryptanalyse plus compliqué.
Retour à la liste
France
Fiche personnelle
Note des membres
Niveau
débutant
biensur, la chaine "WHATEVRYUXZY" est arbitraire et peut se limter à 10 caractères ;)