View difference between Paste ID: p5FSFAKQ and rTKGMUgV

 #!/usr/bin/perl
 
 use strict;
 use warnings;
 use Data::Dumper;
 use DateTime;
 use Date::Calc qw(Delta_Days);
 use bignum;
 
 # READ BYTE
 sub rb {
   my ($FH, $len) = @_;
   read($FH, my $b, $len ? $len : 1);
   unpack("W*", $b);
 }
 
 # READ INT
 sub ri {
   my $FH = shift;
   read($FH, my $i, 4);
   unpack("I", $i);
 }
 
 sub rs {
   my $FH = shift;
   read($FH, my $i, 2);
   unpack("s", $i);
 }
 
 sub rbs {
   my $FH = shift;
   my @arr = (rb($FH), rb($FH));
   my ($value, $i) = (0, 0);
   #print "----\n";
   foreach(@arr) {
     #print $_."<-hva\n";
-#while(1) {
+    $value += ($_ & 0xff) << (8 * $i);
-  my $tunerType = rb($CHANDAT) || 0;
+    $i++;
-  my $channelGroup = rb($CHANDAT);
+  }
-  my $satModulationSystem = rb($CHANDAT);
+  return $value;
-  my $flags = rb($CHANDAT);
+
-  my $frequency = ri($CHANDAT);
+
-  my $Symbolrate = ri($CHANDAT);
+
-  my $lnbLof = rs($CHANDAT);
+
-  my $pmtPID = rs($CHANDAT);
+
-  my $reserved1 = rs($CHANDAT);
+
-  my $satModulation = rb($CHANDAT);
+
-  my $avFormat = rb($CHANDAT);
+
-  my $fec = rb($CHANDAT);
+
-  my $reserved2 = rb($CHANDAT);
+
-  my $reserved3 = rs($CHANDAT);
+my $tunerType = rb($CHANDAT) || 0;
-  my $polarity = rb($CHANDAT);
+my $channelGroup = rb($CHANDAT);
-  my $reserved4 = rb($CHANDAT);
+my $satModulationSystem = rb($CHANDAT);
-  my $orbitalPosition = rs($CHANDAT); # a2i
+my $flags = rb($CHANDAT);
-  my $tone = rb($CHANDAT);
+my $frequency = ri($CHANDAT);
-  my $reserved5 = rb($CHANDAT);
+my $Symbolrate = ri($CHANDAT);
-  my $discCext = rs($CHANDAT);
+my $lnbLof = rs($CHANDAT);
-  my $descq = rb($CHANDAT);
+my $pmtPID = rs($CHANDAT);
-  my $reserved6 = rb($CHANDAT);
+my $reserved1 = rs($CHANDAT);
-  my $reserved7 = rs($CHANDAT);
+my $satModulation = rb($CHANDAT);
-  my $audioPID = rs($CHANDAT); # a2i
+my $avFormat = rb($CHANDAT);
-  my $reserved8 = rs($CHANDAT);
+my $fec = rb($CHANDAT);
-  my $videoPID = rs($CHANDAT); # a2i
+my $reserved2 = rb($CHANDAT);
-  my $transportStreamID = rs($CHANDAT); # a2i
+my $reserved3 = rs($CHANDAT);
-  my $teletextPID = rs($CHANDAT);
+my $polarity = rb($CHANDAT);
-  my $orginalNetworkID = rs($CHANDAT); # a2i
+my $reserved4 = rb($CHANDAT);
-  my $serviceID = rs($CHANDAT); # a2i
+my $orbitalPosition = rbs($CHANDAT);#rs($CHANDAT); # a2i
 my $tone = rb($CHANDAT);
-  my $channelID = (($tunerType + 1) * 536870912) + ($audioPID * 65536) + $serviceID;
+my $reserved5 = rb($CHANDAT);
-  #my $channelID = $serviceID + ($audioPID + (2**16)) + (($tunerType + 1) + (2**29)) + ($transportStreamID * (2**32)) + (($orbitalPosition * 10) * (2**48)) + (1 * (2**61));
+my $discCext = rs($CHANDAT);
-  my $epgID = (($tunerType + 1) * 2**48 + $orginalNetworkID * 2**32 + $transportStreamID * 2**16 + $serviceID);
+my $descq = rb($CHANDAT);
-  my $favID = ($tunerType + 1) * 536870912 + $serviceID;
+my $reserved6 = rb($CHANDAT);
 my $reserved7 = rs($CHANDAT);
-#  last;
+my $audioPID = rbs($CHANDAT);#rs($CHANDAT); # a2i
-#}
+my $reserved8 = rs($CHANDAT);
 my $videoPID = rbs($CHANDAT);#rs($CHANDAT); # a2i
-close($CHANDAT);
+my $transportStreamID = rbs($CHANDAT);#rs($CHANDAT); # a2i
 my $teletextPID = rs($CHANDAT);
-my $dt = DateTime->now(time_zone => 'local');
+my $orginalNetworkID = rbs($CHANDAT);#rs($CHANDAT); # a2i
-my $days = Delta_Days(1899, 12, 30, $dt->year, $dt->month, $dt->day); # Days since Delphi
+my $serviceID = rbs($CHANDAT);#rs($CHANDAT); # a2i
-my $minutesOfDay = (($dt->hour+1) * 60) + $dt->minute;
+
-my $precentage = $minutesOfDay / (24 * 60);
+my $orbitalPosition = 4.8;
-my $start = int($precentage*24*60);
+
-$precentage =~ s/^\d+\.//;
+my $tvFlag = 1;
-print $days.".".$precentage."<--\n";
+
-print "start: ".$start."\n";
+my $sid  = $serviceID;
-print $dt->hour."<-keke\n";
+my $apid = $audioPID * (2**16);
 my $ttyp = (($tunerType + 1) * (2**29));
-print "TSID: ".$transportStreamID."\n";
+my $tsid = $transportStreamID * (2**32);
 my $opo  = ($orbitalPosition * 10) * (2**48);
-printf("CHANNEL-ID: %.0f\n", $channelID);
+my $tfl  = $tvFlag * (2**61);
-#print "CHANID: :".$channelID."\n";
+
-print "EPGID: ".$epgID."\n";
+print "ServiceID: ".$serviceID."\n";
-print "FAVID: ".$favID."\n";
+print "AudioPID: ".$audioPID."\n";
 print "TunerType: ".$tunerType."\n";
 print "TransportStream: ".$transportStreamID."\n";
 print "Orbitpos: ".$orbitalPosition."\n";
 print "TVflag: ".$tvFlag."\n\n";
 print "--POWERED VALS--\n";
 print "ServiceID: ".$sid."\n";
 print "AudioPID: ".$apid."\n";
 print "TunerType: ".$ttyp."\n";
 print "TransportStream: ".$tsid."\n";
 print "Orbitpos: ".$opo."\n";
 print "TVflag: ".$tfl."\n\n";
 
 my $channelID = $sid+$apid+$ttyp+$tsid+$opo+$tfl;
 print "ChannelID: ".$channelID."\n";