summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfishsoupisgood <github@madingley.org>2018-05-10 11:12:43 +0100
committerfishsoupisgood <github@madingley.org>2018-05-10 11:12:43 +0100
commit4e46f352f85f2a424bd4990c4a8355d9cceeb4d9 (patch)
tree42ad0c3ed5edc85d067b53e92deea92a85461cc0
parent862036f60497d22a75a5520f286cddece267a72f (diff)
downloadmeteotime-4e46f352f85f2a424bd4990c4a8355d9cceeb4d9.tar.gz
meteotime-4e46f352f85f2a424bd4990c4a8355d9cceeb4d9.tar.bz2
meteotime-4e46f352f85f2a424bd4990c4a8355d9cceeb4d9.zip
only decode if the minuite is right
-rwxr-xr-xdecode.pl8
1 files 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,