##############################
###  Patch para Registrar  ###
###    até a versão 6.3    ###
##############################
###   Autor desconhecido   ###
##############################

################
## Como usar? ##
##########################################################################
# Abra o mIRC, carregue esse arquivo e digite /registrar NOME DE USUÁRIO #
# Você irá receber um serial, que deverá ser informado no /registration. #
##########################################################################


alias registrar {
  set %registrar_array 11,6,17,12,12,14,5,12,16,10,11,6,14,14,4,11,6,14,14,4,11,9,12,11,10,8,10,10,16,8,4,6,10,12,16,8,10,4,16
  set %ppt 0
  set %spt 0
  var %i = 3
  var %ii = 0
  if ($len($1-) < 5) { echo -gt Erro: Nome precisa ter mais que 4 caracteres }
  while (%i < $len($1-)) {
    inc %i
    inc %ii
    if (%ii > 38) { %ii = 0 }
    var %tmp = $calc($asc($mid($1-,%i,1)) * $gettok(%registrar_array,%ii,44))
    set %ppt $calc(%ppt + %tmp)
  }
  var %i = 3
  var %ii = 0
  var %tmp = 0
  while (%i < $len($1-)) {
    inc %i
    inc %ii
    if (%ii > 38) { %ii = 0 }
    var %tmp = $calc(($asc($mid($1-,$calc(%i - 1),1)) * $asc($mid($1-,%i,1))) * $gettok(%registrar_array,%ii,44))
    set %spt $calc(%spt + %tmp)
  }
  echo -gt Nome: $1- / Número de Registro: %ppt $+ - $+ %spt
}