hmacsha1 Outdated Original alias.

;hmacsha1 by Ford_Lawnmower irc.GeekShed.net #Script-Help
;Syntax hmacsha1 key message or $hmacsha1(key,message)
alias hmacsha1 {
  var %key $iif($len($1) <= 64,$1,$hex2chr($sha1($1))), %ipad $xorall($str(6,64),%key), %opad = $xorall(%opad $str(\,64),%key), %message $2
  $iif($isid,return,echo -a) $encode($hex2chr($sha1($+(%opad,$hex2chr($sha1($+(%ipad,%message)))))),m)
}
alias -l hex2chr { return $regsubex($1,/(.{2})/g,$chr($base(\t,16,10))) }
alias -l xorall {
  var %end $iif($len($1) > $len($2),$len($1),$len($2)), %p $1, %k $2
    return $regsubex($str(.,%end),/(.)/g,$chr($xor($iif($asc($mid(%p,\n,1)),$v1,0),$iif($asc($mid(%k,\n,1)),$v1,0))))
}