##############################
##   Patch para Destravar   ##
## e Registrar o mIRC 6.31+ ##
##############################
#######   por  regex   #######
##############################

################
## Como usar? ##
################################################################################################################## 
# Abra o mIRC, e digite /patch. O novo aplicativo estará na pasta patch\ em relação ao caminho original do mesmo #
################################################################################################################## 

alias patch {
  if ($version < 6.31) { echo 2 -sgt » Patch: Utilizar somente nas versões 6.31 ou superior. | return }
  echo 2 -sgt » Patcheando: mIRC $version $+ .
  .mkdir patch
  tokenize 44 $qt($mircexe) $+ , $+ "patch\mirc.exe"
  bread $1 0 405964 &m1 | bset &m2 1 51 | bread $1 405965 532933 &m3
  bset &m4 1 144 144 144 144 106 3 141 76 36 8 81 141 148 36 116 16 0 0 82 232 70 253 255 255 131 196 12 133 192 144 144
  bread $1 938929 $file($1).size &m5 | bwrite $2 -1 -1 &m1 | bwrite $2 -1 -1 &m2 | bwrite $2 -1 -1 &m3 | bwrite $2 -1 -1 &m4 | bwrite $2 -1 -1 &m5
  .comopen REG WScript.Shell
  if (!$comerr) {
    var %u = $com(REG,RegWrite,3,bstr, $&
      HKEY_CURRENT_USER\Software\mIRC\UserName\, $&
      bstr,regex,bstr,REG_SZ)
    var %l = $com(REG,RegWrite,3,bstr, $&
      HKEY_CURRENT_USER\Software\mIRC\License\, $&
      bstr,1831-187153,bstr,REG_SZ)
    var %v = $com(REG,RegWrite,3,bstr, $&
      HKEY_CURRENT_USER\Software\mIRC\Validated\, $&
      bstr,bUlSQzpSRUc6MS4w0/cmVnZXg6MTgzMS0xODcxNTM1,bstr,REG_SZ)
    .comclose REG
  }
  echo 2 -sgt » Patcheado: Arquivo pode ser encontrado em "patch\".
}