1

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

任何建议或已经可用的代码都可以！

请帮帮我。谢谢！

4

3 回答 3

3

安装tcllib。tcllib 中实现了几种标准加密算法。

可以使用以下加密算法：

于 2012-11-22T09:38:08.153 回答
2

Tcllib 中的des 包应该可以满足您的需求。它很容易使用：

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

于 2012-11-22T09:41:30.230 回答
0

请访问 TCL/TK 主页，例如：http://wiki.tcl.tk/900

这只是一种方法。我敢肯定，还会有更多。

于 2012-11-22T09:25:17.730 回答