Help for this page

Select Code to Download

Select or download this

sub bigint_to_bytearray {
   my $bigint = shift;
...
   unshift @bytes, 0x00 if $bytes[0] < 0;  # Add sign bit if necessary
   return @bytes;
}

Select or download this

sub bigint_to_bytearray {
   my $bigint = shift;
...
   unshift @bytes, 0x00 if $bytes[0] < 0;  # Add sign bit if necessary
   return @bytes;
}