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

Question

我需要一段代码来定义可以加密和解密一段字符串的函数。我基本上想要的是字符串不应该对第三方用户可见，因此当字符串源自一个文件时，使用encrypt函数将其转换为整数值，然后将其作为参数传递给另一个文件。然后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

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个字节的倍数。

Answer 3

请访问TCL / TK主页，例如 这里：HTTP：//wiki.tcl.tk/900

这只是一种做法。我肯定会有更多的东西。