sub get16 {
    my $data = shift;
#    return "\0" x ( 16 - length($data) % 16 ) . $data;
     return $data . "\0" x ( 16 - length($data) % 16 );

}