TCL Encryter-Decrypter

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|"