Code TCL qui peut crypter et décrypter une chaîne

Question

J'ai besoin d'un morceau de code qui définit les fonctions qui peuvent crypter et décrypter un morceau de chaîne. Ce que je veux essentiellement, c'est que la chaîne ne soit pas visible pour les utilisateurs tiers, de sorte que lorsque la chaîne provient d'un fichier, elle est convertie en une valeur entière en utilisant la fonction encrypt, puis est passée en paramètre à un autre fichier. Là, la fonction decrpyt la décrypte et utilise la chaîne pour effectuer des actions sur celle-ci.

Toutes les suggestions ou codes déjà disponibles seront très bien!

S'il vous plaît aidez-moi. Merci!

Answer 1

Installez tcllib. Plusieurs algorithmes de cryptage standard sont implémentés dans tcllib.

Les algorithmes de chiffrement suivants sont disponibles:

• Blowfish: http://tcllib.sourceforge.net/doc/blowfish.html
• aes: http://tcllib.sourceforge.net/doc/aes.html
• des (y compris trois des): http://tcllib.sourceforge.net/doc/des.html
• RC4: http://tcllib.sourceforge.net/doc/rc4.html

Answer 2

S'il vous plaît visitez la page d'accueil TCL/TK ici par exemple: http: //wiki.tcl.tk/900

C'est juste une façon de le faire. Il y en aura beaucoup plus, j'en suis sûr.

Answer 3

Le des package in Tcllib devrait le faire ce que tu veux. Il est assez facile à utiliser:

package require des 

set key "12345678"; # Must be 8 bytes long 
set msg "abcde" 

##### ENCRYPTION 
set encryptedMsg [DES::des -dir encrypt -key $key $msg] 
# $encryptedMsg is a bunch of bytes; you'll want to send this around... 

##### DECRYPTION 
set decryptedMsg [DES::des -dir decrypt -key $key $encryptedMsg] 
puts "I got '$decryptedMsg'" 

Notez que DES écrase le message sur un multiple de 8 octets.