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 Packages Projects Releases Wiki Activity

make GeneratePSK a global function

Browse source
This commit is contained in:
Christian Hesse 2018-10-09 13:32:45 +02:00
parent 9c3f3b9f20
commit 7b4bef1a1e
4 changed files with 59 additions and 55 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
GeneratePSK
View file

@ -1,51 +0,0 @@
#!rsc
# RouterOS script: GeneratePSK
# Copyright (c) 2013-2018 Christian Hesse <mail@eworm.de>
#
# return pseudo-random string for PSK
:local date [ / system clock get date ];
# 0-30 for days of month
:local secret1 { "Abusive"; "Aggressive"; "Bored"; "Chemical"; "Cold";
"Cruel"; "Curved"; "Delightful"; "Discreet"; "Elite"; "Evasive"; "Faded";
"Flat"; "Future"; "Grandiose"; "Hanging"; "Humorous"; "Interesting";
"Magenta"; "Magnificent"; "Numerous"; "Optimal"; "Pathetic"; "Possessive";
"Remarkable"; "Rightful"; "Ruthless"; "Stale"; "Unusual"; "Useless";
"Various" };
# 0-11 for month of year
:local secret2 { "Adhesive"; "Amusing"; "Astonishing"; "Frantic";
"Kindhearted"; "Limping"; "Roasted"; "Robust"; "Staking"; "Thundering";
"Ultra"; "Unusual" };
# 0-6 for days of week
:local secret3 { "Belief"; "Button"; "Curtain"; "Edge"; "Jewel"; "String";
"Whistle" };
: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 ];
# get numeric value for month
:for mindex from=0 to=[ :len $months ] do={
:if ([ :pick $months $mindex ] = $monthstr) do={
:set month $mindex;
};
};
# 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 return ([ :pick $secret1 ($day - 1) ] . [ :pick $secret2 $month ] . [ :pick $secret3 $sum ]);
:return $return;

7
daily-psk
View file

@ -6,6 +6,8 @@
:global "daily-psk-match-comment";
:global "GeneratePSK";
# check mail server
:if ([ / tool netwatch get [ find where comment=[ / tool e-mail get address ] ] status ] != "up" ) do={
:error "Mail server is not up.";
@ -16,9 +18,8 @@
:error "Time is not yet synchronized from ntp.";
}
:local GeneratePSK [ :parse [ / system script get GeneratePSK source ] ];
:local newpsk [ $GeneratePSK ];
:local date [ / system clock get date ];
:local newpsk [ $GeneratePSK $date ];
:local sendmail 0;

4
global-config
View file

@ -71,7 +71,9 @@
#:global "script-updates-baseurl" "https://raw.githubusercontent.com/eworm-de/routeros-scripts/master/";
#:global "script-updates-baseurl" "https://gitlab.com/eworm-de/routeros-scripts/raw/master/";
:global "script-updates-urlsuffix" "";
:global "script-updates-ignore" { "global-config"; "GeneratePSK" };
:global "script-updates-ignore" {
"global-config"
}
# Do *NOT* change these!
:global "sent-routeros-update-notification" "-";

52
global-functions
View file

@ -4,3 +4,55 @@
#
# global functions
# return pseudo-random string for PSK
:global GeneratePSK do={
:local date $1;
# 0-30 for days of month
:local secret1 { "Abusive"; "Aggressive"; "Bored"; "Chemical"; "Cold";
"Cruel"; "Curved"; "Delightful"; "Discreet"; "Elite"; "Evasive"; "Faded";
"Flat"; "Future"; "Grandiose"; "Hanging"; "Humorous"; "Interesting";
"Magenta"; "Magnificent"; "Numerous"; "Optimal"; "Pathetic"; "Possessive";
"Remarkable"; "Rightful"; "Ruthless"; "Stale"; "Unusual"; "Useless";
"Various" }
# 0-11 for month of year
:local secret2 { "Adhesive"; "Amusing"; "Astonishing"; "Frantic";
"Kindhearted"; "Limping"; "Roasted"; "Robust"; "Staking"; "Thundering";
"Ultra"; "Unusual" }
# 0-6 for days of week
:local secret3 { "Belief"; "Button"; "Curtain"; "Edge"; "Jewel"; "String";
"Whistle" }
: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 ];
# get numeric value for month
:for mindex from=0 to=[ :len $months ] do={
:if ([ :pick $months $mindex ] = $monthstr) do={
:set month $mindex;
}
}
# 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 return ([ :pick $secret1 ($day - 1) ] . [ :pick $secret2 $month ] . [ :pick $secret3 $sum ]);
:return $return;
}