crypter et décrypter

[zebulon_]

Bonjour,

 

Est-ce qu'il y a quelqu'un qui s'est déjà intéressé aux méthodes de cryptage, comme Rijndael. Cela a l'air d'être disponible dans les librairies windows.

 

voir Rijndael

 

L'objectif est d'avoir une fonction

 

(encrypt "texte" cle)

 

et une autre

 

(decrypt "1eç#°" cle)

 

 

J'utilise quelque chose pour crypter et décrypter, mais ça ne résiste pas longtemps... puisque c'est basé sur une simple xor

 

(defun MI_Encrypt1( Str Key / fptr tmp _Str )

(vl-list->string (mapcar '(lambda (x) (+ (boole 6 x Key) 0)) (vl-string->list (strcase Str))))
) 

 

Commande: (mi_encrypt1 "TOTO" 7)

"SHSH"

Commande: (mi_encrypt1 "SHSH" 7)

"TOTO"

Comme vous pouvez le constater, c'est un peu trop simple.

 

Merci

 

Amicalement

Vincent

 

 

[Patrick_35]

Salut

 

Ton texte est dans un fichier ?

Je dis cela car la date et heure du fichier peuvent servir dans l'algorithme de cryptage.

Comme cela, pour une même chaine de caractères, le résultat est différent et sans y inclure dans la chaine criptée la clé de décodage

De plus, tu peux aussi ajouter à droite et à gauche des caractères qui ne servent à rien, histoire de brouiller les pistes.

Tu peux par exemple dire que les caracères 1 3 8 9 sont bon,puis 11 13 18 19, puis 21 23 28 29, etc... (je fais simple)

Conserve le boole.

Et si ta protection concerne un mot de passe, afin d'éviter qu'une boucle parvienne à décrypter, mets un blocage en cas de saisie erronée (au bout de trois fois par exemple)

Et ton blocage peux s'écrire dans les registres (bien caché, cela va de soi) afin que toi seul intervienne histoire de voir ce qui se passe.

 

Juste une dernière chose. Toute protection à toujours montré ses limites.

 

@+

[zebulon_]

Juste une dernière chose. Toute protection a toujours montré ses limites.

 

c'est l'éternel problème de la concurrence entre l'arme et le bouclier

 

 

Amicalement

Vincent

 

[ElpanovEvgeniy]

Salut! :)

 

J'utilise d'habitude

vl-string-translate