Encryter-Decrypter
#encrypter/decrypter tcl by |i-XeS-i|
bind dcc n encrypt dcc:encrypt
bind dcc n decrypt dcc:decrypt
proc dcc:encrypt {handle idx arg} {
if {$arg == ""} {
putidx $idx "* Usage: .encrypt <key> <string>"
return 0
}
set dakey [lindex $arg 0]
set datext [lindex $arg 1]
putidx $idx "* Encrypted output: [encrypt $dakey $datext]"
return 0
}
proc dcc:decrypt {handle idx arg} {
if {$arg == ""} {
putidx $idx "* Usage: .decrypt <key> <string>"
return 0
}
set dakey [lindex $arg 0]
set datext [lindex $arg 1]
putidx $idx "Decrypted output: [decrypt $dakey $datext]"
return 0
}
putlog "* encryter/decrypter by |i-XeS-i|"