get_syno_password.pl

use strict;
use warnings;
use Time::gmtime;
use Time::localtime;

sub gcd {
  my ($a, $b) = @_;
  return ( $b ? gcd($b ,$a % $b) : $a);
}

my $tm    = localtime();
my $tmUTC = gmtime   ();

printf("password for today       is: %x%02d-%02x%02d\n"
   , $tm   ->mon() + 1, $tm   ->mon() + 1, $tm   ->mday(), gcd($tm   ->mon() + 1, $tm   ->mday()));
printf("password for today (UTC) is: %x%02d-%02x%02d\n"
   , $tmUTC->mon() + 1, $tmUTC->mon() + 1, $tmUTC->mday(), gcd($tmUTC->mon() + 1, $tmUTC->mday()));