Encryption 可以对字符串进行加密和解密的TCL代码

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

任何建议或已有的代码都可以

---

请帮帮我。谢谢

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

---

这只是一种方法。我相信还会有更多。请访问TCL/TK主页，例如 在这里：http://wiki.tcl.tk/900

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

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

以下加密算法可用：

河豚： aes： des包括三重des： rc4： 安装。tcllib中实现了几种标准加密算法

以下加密算法可用：

河豚： aes： des包括三重des： rc4： 你想干什么就干什么。它非常容易使用：

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

应该执行您想要的操作。它非常容易使用：

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

对于简单混淆，有yencode用于简单混淆，有yencode