mIRC v6.35 MIRC (.mrc) SCRIPT KEYGEN

;; mIRC v6.35 MIRC SCRIPT KEYGEN
; # mIRC Reg Key Code /load -rs mircreg.mrc , and then /mgen <name> to create your own!
;; note: you can probably make it output to -s / status , or in other ways etc... but this is the main code and im just happy with this -xd
;; thanks to ircerr for showing this and more. -xd

alias mgen {
  var %name = $1-, %len = $len(%name)
  echo mgen: $+ %name
  if (%len < 4) { return $null }
  else {
    var %x = 0, %y = 0, %i = 0, %l = 4
    while (%l <= %len) {
      INC %x $calc($asc($mid(%name,%l,1)) * $mircserial(%i))
      INC %i
      if (%i > 38) { %i = 0 }
      inc %l
    }
    %i = 0
    %l = 4
    while (%l <= %len) {
      INC %y $calc(($asc($mid(%name,%l,1)) * $asc($mid(%name,$calc(%l - 1),1))) * $mircserial(%i))
      INC %i
      if (%i > 38) { %i = 0 }
      inc %l
    }
    echo %x $+ - $+ %y
    return %x $+ - $+ %y
  }
}

alias -l mircserial {
  if ($1 == 6) { return 5 }
  elseif ($1 == 21) { return 9 }
  elseif ($1 == 2) { return 17 }
  elseif ($istok(14 19 30 37,$1,32)) { return 4 }
  elseif ($istok(1 11 16 31,$1,32)) { return 6 }
  elseif ($istok(25 29 35,$1,32)) { return 8 }
  elseif ($istok(9 24 26 27 32 36,$1,32)) { return 10 }
  elseif ($istok(0 10 15 20 23,$1,32)) { return 11 }
  elseif ($istok(3 4 7 22 33,$1,32)) { return 12 }
  elseif ($istok(5 12 13 17 18,$1,32)) { return 14 }
  elseif ($istok(8 28 34 38,$1,32)) { return 16 }
}
; # End mIRC Reg Key Code
;;;;Keys
;;;;#Public 3501-361179
;;;;#mIRC 737-60434
;;;;#Unknown 5219-584363
;;;;#EFNet 1807-156954