# raw contains the decrypted data
my ($p1,$p1,$p3,$packed_d)=split(/\000/,$raw,4);
$packed_d = substr($packed_d,0,2); #cut padding

# temporary construction of packed_d
my( $packed_d ) = pack( 'H4', d262 );

my $y = (($packed_d & 0xFE00) >> 9) + 4;
my $m = (($packed_d & 0x01E0) >> 5) - 1;
my $d = ($packed_d & 0x001F);