Crash_Override/routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts synced 2024-05-14 08:04:19 +00:00
Code Issues Projects Releases Packages Wiki Activity

daily-psk: simplify algorithm

Browse source
This commit is contained in:
Christian Hesse 2019-01-09 12:50:19 +01:00
parent 1ee2491e66
commit bd92237003
1 changed files with 13 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
daily-psk
View file

@ -19,34 +19,26 @@
:local Months { "jan"; "feb"; "mar"; "apr"; "may"; "jun";
"jul"; "aug"; "sep"; "oct"; "nov"; "dec" };
:local MonthTbl { 0; 3; 3; 6; 1; 4; 6; 2; 5; 0; 3; 5 };
:local MonthStr [ :pick $Date 0 3 ];
:local Month;
:local Day [ :pick $Date 4 6 ];
:local Century [ :pick $Date 7 9 ];
:local Year [ :pick $Date 9 11 ];
:local Month [ :pick $Date 0 3 ];
:local Day [ :tonum [ :pick $Date 4 6 ] ];
:local Year [ :pick $Date 7 11 ];
# get numeric value for month
:for MIndex from=0 to=[ :len $Months ] do={
:if ([ :pick $Months $MIndex ] = $MonthStr) do={
:set Month $MIndex;
:if ($Months->$MIndex = $Month) do={
:set Month ($MIndex + 1);
}
}
# calculate day of week
:local Sum 0;
:set Sum ($Sum + (2 * (3 - ($Century - (($Century / 4) * 4)))));
:set Sum ($Sum + ($Year / 4));
:set Sum ($Sum + $Year + $Day);
:set Sum ($Sum + $Month);
:set Sum ($Sum - (($Sum / 7) * 7));
:local A ((14 - $Month) / 12);
:local B ($Year - $A);
:local C ($Month + 12 * $A - 2);
:local WeekDay (7000 + $Day + $B + ($B / 4) - ($B / 100) + ($B / 400) + ((31 * $C) / 12));
:set WeekDay ($WeekDay - (($WeekDay / 7) * 7));
:local Return ([ :pick [ :pick $DailyPskSecrets 0 ] ($Day - 1) ] . \
[ :pick [ :pick $DailyPskSecrets 1 ] $Month ] . \
[ :pick [ :pick $DailyPskSecrets 2 ] $Sum ]);
:return $Return;
:return (($DailyPskSecrets->0->($Day - 1)) . \
($DailyPskSecrets->1->($Month - 1)) . \
($DailyPskSecrets->2->$WeekDay));
}
:local Date [ / system clock get date ];