Seykron

alias encrypt {
  comopen csCrypto IrcCrypto.CCrypto

  if ($comerr) {
    comreg %se_path $+ support/irccrypto.dll

    comopen csCrypto IrcCrypto.CCrypto

    if ($comerr) { return 0 }
  }

  $com(csCrypto, EncryptData, 3, bstr, $2- , bstr, $1)
  var %encmsg = $com(csCrypto).result
  $com(csCrypto, Base64Encode, 3, bstr, %encmsg)

  var %ret = $com(csCrypto).result
  comclose csCrypto

  return %ret

}

alias decrypt {
  comopen csCrypto IrcCrypto.CCrypto


  if ($comerr) {
    comreg %se_path $+ support/irccrypto.dll

    comopen csCrypto IrcCrypto.CCrypto

    if ($comerr) { return 0 }
  }

  $com(csCrypto, Base64Decode, 3, bstr, $2-)
  var %ret = $com(csCrypto).result

  $com(csCrypto, DecryptData, 3, bstr, %ret, bstr, $1)

  %ret = $com(csCrypto).result

  comclose csCrypto

  return %ret
}