WOL Apgar routine in mIRC Script (Frank Razenberg)

apgar.mrc

alias apgar {  
  var %lookup = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
  var %out, %i = 1
  while (%i <= 8) {
    var %left, %right = 0
    if (%i <= $len($1-)) { %left = $asc($mid($1-, %i ,1)) }
    if ($calc($len($1-) - %i + 1) < $len($1-)) { %right = $asc($mid($1-, $calc($len($1-) - %i + 2), 1)) }
    var %x = $iif(%left & 1, $and($calc(%left * (2 ^ $and(%left, 1))), %right), $xor(%left, %right))
    ;# echo -a left: %left - righT: %right - x: %x
    %out = %out $+ $mid(%lookup, $calc($and(%x, 63) + 1), 1)
    inc %i
  }
  return %out
}