Menu Channel,Query {
  -
  Encrypt Message:{
    set -u0 %~msg $$?="Enter Message to Encrypt"
    say $encrypt(%~msg)
    echo $chan $timestamp *Encrypted* %~msg
  }
}
Alias Encrypt {
  if ($1 != $null) {
    set -u0 %~encrypt-c 0
    set -u0 %~encrypt-m 9ND
    :start
    inc %~encrypt-c 1
    if (%~encrypt-c > $len($1-)) { goto end }
    set -u0 %~encrypt-m %~encrypt-m $+ $chr(15) $+ $replace($xor($hash($me,8),$asc($mid($1-,%~encrypt-c,1))),0,,1,,2,,3,3,4,4,5,5,6,6,7,7,8,8,9,9)
    goto start
    :end
    return %~encrypt-m
  }
}
Alias Decrypt {
  if ($1 != $null) {
    set -u0 %~decrypt-c 1
    set -u0 %~decrypt-m
    :start
    inc %~decrypt-c 1
    if (%~decrypt-c > $gettok($1,0,15)) { goto end }
    set -u0 %~decrypt-m %~decrypt-m $+ $chr($replace($xor($hash($nick,8),$replace($gettok($1,%~decrypt-c,15),,0,,1,,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9)),32,160))
    goto start
    :end
    return %~decrypt-m
  }
}
on 1:text:9ND*:#:decrypt $1- | echo $chan $timestamp Encrypted Message From $nick $+ : $result
on 1:text:9ND*:?:decrypt $1- | echo $nick $timestamp Encrypted Message: $result