#this sub makes all data blocksize of 16 bytes. 
sub get16 {
    my $data = shift;
    print "data=$data\n";
      return "\0" x ( 16 - length($data)%16 ) . $data;
      }