ovh/the-bastion
1
1
Fork 0
mirror of https://github.com/ovh/the-bastion.git synced 2024-11-10 09:12:54 +08:00
Code Issues Projects Releases Packages Wiki Activity

Escape dots in regex patterns for ssh algorithms

Browse source 
Co-authored-by: Stéphane Lesimple <speed47_github@speed47.net>
This commit is contained in:
Pierre-Elliott Bécue 2023-09-25 15:36:45 +02:00 committed by Stéphane Lesimple
parent d0ac9eabb9
commit 7dce5734fd
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/perl/OVH/Bastion/ssh.inc
View file

@ -302,7 +302,7 @@ sub get_ssh_pub_key_info {
my ($prefix, $typecode, $base64, $comment);
if ($pubKey =~
m{^\s*((\S+)\s+)?(ssh-dss|ssh-rsa|ecdsa-sha\d+-nistp\d+|ssh-ed\d+|sk-ssh-ed25519\@openssh.com|sk-ecdsa-sha2-nistp256\@openssh.com)\s+([a-zA-Z0-9/=+]+)(\s+(.{1,128})?)?$}
m{^\s*((\S+)\s+)?(ssh-dss|ssh-rsa|ecdsa-sha\d+-nistp\d+|ssh-ed\d+|sk-ssh-ed25519\@openssh\.com|sk-ecdsa-sha2-nistp256\@openssh\.com)\s+([a-zA-Z0-9/=+]+)(\s+(.{1,128})?)?$}
&& length($pubKey) <= 3000)
{
($prefix, $typecode, $base64, $comment) = ($2, $3, $4, $6);