Imk0tter's Encryption @ mIRC

alias -l ABSN return $CALC(($1 * $1) ^ (2 ^ -1))
alias -l ARCTAN return $CALC($1 / $ABSN($1))
alias -l TRICK return $ARCTAN($CALC($1 + $ARCTAN($CALC($1 ^ $ARCTAN($1)))))

alias ENCRYPT return $CALC((($1 * 2) + $TRICK($2)) * (2 ^ $ABSN($2)))
alias ENCRYPT2 return $CALC((($1 / 2) + $TRICK($2)) / (2 ^ $ABSN($2)))

alias ENCRYPT_BATCH {
  var %base $1
  tokenize 32 $2-
  var %encrypt_count $0
  var %x 1
  while %x <= %encrypt_count {
    var %current [ $ $+ [ %x ] ]
    var %base $ENCRYPT(%base, %current)
    inc %x
  }
  return %base
}
alias DECRYPT {
  var %BASE $1
  var %CURRENT 0
  while $CALC(%BASE % 2) == 0 {
    var %BASE %BASE / 2
    inc %CURRENT
  }
  var %BASE $CALC((%BASE - 1) / 2)
  return %BASE %CURRENT
}
alias DECRYPT_BATCH {
  var %BASE $1
  var %COUNT $2
  var %DECRYPTED
  while %COUNT {
    var %CURRENT_TOKEN $DECRYPT(%BASE)
    var %BASE $TOKEN(%CURRENT_TOKEN,1,32)
    var %DECRYPTED $TOKEN(%CURRENT_TOKEN,2,32) %DECRYPTED
    dec %COUNT
  }
  return %BASE %DECRYPTED
}