TCL代码，可以加密和解密字符串(TCL code that can encrypt and dec

2019-11-01 05:31发布

我需要一段代码，定义了可以加密和解密绳子功能。我基本上想要的是字符串不应该是第三方用户可见的，所以，当串在一个文件中起源，它被转换，比方说，使用加密功能的整数值，然后将其作为参数传递另一个文件。在那里，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包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个字节长的倍数。