From 4e46f352f85f2a424bd4990c4a8355d9cceeb4d9 Mon Sep 17 00:00:00 2001 From: fishsoupisgood Date: Thu, 10 May 2018 11:12:43 +0100 Subject: only decode if the minuite is right --- decode.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/decode.pl b/decode.pl index 9d25ffc..2f7dc43 100755 --- a/decode.pl +++ b/decode.pl @@ -714,8 +714,6 @@ for ( my $i = 0 ; $i < ( $n - 2 ) ; ++$i ) { my ( $data_bits, $key_bits ) = extract( $d->[$i], $d->[ $i + 1 ], $d->[ $i + 2 ] ); - my $plain = decrypt( $data_bits, $key_bits ); - next unless defined($plain); my $min = le_bcd_to_int( substr( $key_bits, 0, 8 ) ); my $hour = le_bcd_to_int( substr( $key_bits, 8, 8 ) ); @@ -726,6 +724,12 @@ for ( my $i = 0 ; $i < ( $n - 2 ) ; ++$i ) { my $mins_since_midnight = $min + ( $hour * 60 ); + next unless ( $mins_since_midnight %3) == 2; + + my $plain = decrypt( $data_bits, $key_bits ); + + next unless defined $plain ; + my $dt = DateTime->new( year => $year, month => $month, -- cgit v1.2.3