# This is crypt.bx 
# 
# Slightly modded for BitchX by KeNsOn
# Modified for better coloring sceme by |mpAreD
#
# When a real script0r fixes the mistakes, plz email us:
# <kenson@dat95kjn.campus.mdh.se> <vile@usmo.com>
#
# When u load this script make sure that the current window is the place
# you want all your encryted communications to go to. And join all channels
# you wanna speak encrypted to from this window

# This is where garbage goes
window new
window number 31337
# Start up the proggie, this window (the one u loaded crypt.bx from) is
# where all output goes
/^exec -window -name crypt exec new
window hide
window name crypt

# automatically pick out protocol messages
#    crypt processor gets:   !send nick!CLIPPER:...etc
#    or   !our nick!SKPJACK:...etc 
# under 2.2.4 public has:  nick channel message
#   the version I use has  nick message
#   this is the difference between the two script versions
^on ^public "* * CLIPPER:*" ^msg %crypt !$0!$2-
^on ^public "* * SKPJACK:*" /msg %crypt OURNICK:$N;/msg %crypt !$0!$2-
^on ^public_other "* * CLIPPER:*" ^msg %crypt !$0:$1!$2-
^on ^public_other "* * SKPJACK:*" /msg %crypt OURNICK:$N;/msg %crypt !$0:$1!$2-
^on ^window "31337 *" if ([${T}]!=[0] && [$[1]T]==[%]) { ^xecho -window crypt $cparse(%c[%C(E)%c]%n) $1- }
^on ^msg "* CLIPPER:*" /msg %crypt !*$0*!$1-
^on ^msg "* SKPJACK:*" /msg %crypt OURNICK:$N;/msg %crypt !*$0*!$1-

# messages comming back from crypt, to server or screen?
^on ^exec "crypt TCHANNL: *" ^quote PRIVMSG $C :$2-
^on ^exec "crypt TSCREEN: *" {
  @cryptvar=strlen($2)
  @cryptvar=cryptvar -3
  ^xecho -window crypt $cparse(%C$mid(0 1 $2)%c$mid(1 1 $2)%B$mid(2 $cryptvar $2)%c$right(1 $2)) $3-}
^on ^exec "crypt TNICKNM: *" ^msg $2 $3-

# our irc commands:
#    /key nick  or /key nick filename
#    /die
#    /e message to be encrypted
#    /p message to be plaintext
#    /crypt   (turn on automatic encryption)
#    /plain   (turn off automatic encryption)
#    /emsg nick text  send an encrypted message
/alias key /echo $cparse(%CK->%B*$0*%n) Sending Key;/^msg %crypt SENDKEY: $0-
/alias die /^msg %crypt QUITDIE:;/query 
/alias e /echo $cparse(%c[%C(E)%c]%n) $0-;/^msg %crypt CRYPTME:$0-
/alias p /msg $C $0-
/alias crypt /query %crypt
/alias plain /query
/alias emsg /echo $cparse(%c[%C(Emsg)%B$0%c]%n) $1-;/^msg %crypt !$0!CRYPTME:$1-

/echo *** Encrypted Irc Protocol loaded.