可以加密和解密字符串的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個字節的倍數。