可以加密和解密字符串的TCL代码

Question

我需要一段代码来定义可以加密和解密一段字符串的函数。我基本想要的是该字符串不应该对第三方用户可见，以便当字符串在一个文件中产生时，使用加密函数将其转换为整数值，然后将其作为参数传递给另一个文件。然后decrpyt函数将其解密并使用该字符串对其执行操作。

任何建议或已经可用的代码将会很好！

请帮我一把。谢谢！

Answer 1

安装tcllib。在tcllib中有几个标准的加密算法。

以下的加密算法是可用的：

• 河豚：http://tcllib.sourceforge.net/doc/blowfish.html
• AES：http://tcllib.sourceforge.net/doc/aes.html
• DES（包括三重DES）：http://tcllib.sourceforge.net/doc/des.html
• RC4：http://tcllib.sourceforge.net/doc/rc4.html

Answer 2

请访问TCL/TK主页e.g 这里：HTTP：//wiki.tcl.tk/900

这只是一个做这件事的方式。我敢肯定，还会有更多。

Answer 3

的des package in Tcllib应该这样做 你想要什么。它非常容易使用：

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'" 

请注意，DES将填充消息的长度为8个字节的倍数。