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

mod/ssh-keys-import: parse key into array

Browse source
This commit is contained in:
Christian Hesse 2023-11-02 09:38:47 +01:00
parent 79f3002a38
commit c3045f3723
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
mod/ssh-keys-import.rsc
View file

@ -14,6 +14,7 @@
:local Key [ :tostr $1 ];
:local User [ :tostr $2 ];
:global CharacterReplace;
:global GetRandom20CharAlNum;
:global LogPrintExit2;
:global MkDir;
@ -28,9 +29,9 @@
$LogPrintExit2 warning $0 ("User '" . $User . "' does not exist.") true;
}
:local Type [ :pick $Key 0 [ :find $Key " " ] ];
:if (!(([ $RequiredRouterOS $0 "7.12beta1" ] = true && $Type = "ssh-ed25519") || $Type = "ssh-rsa")) do={
$LogPrintExit2 warning $0 ("SSH key of type '" . $Type . "' is not supported.") true;
:local KeyVal [ :toarray [ $CharacterReplace $Key " " "," ] ];
:if (!(([ $RequiredRouterOS $0 "7.12beta1" ] = true && $KeyVal->0 = "ssh-ed25519") || $KeyVal->0 = "ssh-rsa")) do={
$LogPrintExit2 warning $0 ("SSH key of type '" . $KeyVal->0 . "' is not supported.") true;
}
:if ([ $MkDir "tmpfs/ssh-keys-import" ] = false) do={
@ -53,6 +54,7 @@
:local FileName [ :tostr $1 ];
:local User [ :tostr $2 ];
:global CharacterReplace;
:global EitherOr;
:global LogPrintExit2;
:global ParseKeyValueStore;
@ -73,17 +75,17 @@
:local Continue false;
:local Line [ :pick $Keys 0 [ :find $Keys "\n" ] ];
:set Keys [ :pick $Keys ([ :find $Keys "\n" ] + 1) [ :len $Keys ] ];
:local Type [ :pick $Line 0 [ :find $Line " " ] ];
:if (([ $RequiredRouterOS $0 "7.12beta1" ] = true && $Type = "ssh-ed25519") || $Type = "ssh-rsa") do={
:local KeyVal [ :toarray [ $CharacterReplace $Key " " "," ] ];
:if (([ $RequiredRouterOS $0 "7.12beta1" ] = true && $KeyVal->0 = "ssh-ed25519") || $KeyVal->0 = "ssh-rsa") do={
$SSHKeysImport $Line $User;
:set Continue true;
}
:if ($Continue = false && $Type = "#") do={
:if ($Continue = false && $KeyVal->0 = "#") do={
:set User [ $EitherOr ([ $ParseKeyValueStore [ :pick $Line 2 [ :len $Line ] ] ]->"user") $User ];
:set Continue true;
}
:if ($Continue = false && [ :len $Type ] > 0) do={
$LogPrintExit2 warning $0 ("SSH key of type '" . $Type . "' is not supported.") false;
:if ($Continue = false && [ :len ($KeyVal->0) ] > 0) do={
$LogPrintExit2 warning $0 ("SSH key of type '" . $KeyVal->0 . "' is not supported.") false;
}
} while=([ :len $Keys ] > 0);
}