Select Code to Download

my $padding_len = $int_size - ( length( $buf ) % $int_size );

my $padding = ( "\x00" x ( $padding_len - 1 ) ) . chr( $padding_len );

$buf .= $padding;

$buf = substr( $buf, 0, -ord( substr( $buf, -1 ) ) );