$Byte = substr($_[0],$i,1);
[download]

$Byte will contain a single character, but you want the ASCII code of that character. So, try:

      $Byte = ord substr($_[0],$i,1);
[download]

I think:)