如何限制ssh用户同时登陆的数量

Posted 2023-03-10

限制ssh用户同时登陆的数量代码如下：
#!/usr/bin/perl -w
use strict;
sub main

my @lines = `ps -eo user,pid,etime,cmd | grep sshd`;
my $users;
for my $line (@lines)
if(my ($user, $pid, $etime, $cmd) = $line =~ /^([^s]+)s+(d+)s+([^s]+)s+(sshd:.+)$/)
next if($user eq ‘root’);
my $proc = ‘pid’, $pid, ‘etime’, $etime, ‘cmd’, $cmd;
push @$users->$user, $proc;


for my $key(keys(%$users))
my @sshs = sort
my ($lb, $la) = (length($b->‘etime’), length($a->‘etime’));
if($lb == $la)
$b->‘etime’ cmp $a->‘etime’;
else
$lb <=> $la;

@$users->$key;
for (1 .. 1) shift @sshs; ;
for my $ssh (@sshs)
kill 9, $ssh->‘pid’;



while(1)
main;
sleep 3;
参考技术A 配置sshd_config把使用密码登陆和使用root登陆都改为no