문자열을 암호화하고 해독 할 수있는 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 홈페이지 예컨대 여기에 방문하시기 바랍니다 : 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 바이트 길이의 배수로 채 웁니다.