当前位置：首页 > 虚拟主机 > 正文

perl脚本如何限制ssh最大登录次数？

admin
虚拟主机
2025-12-21
5

Perl脚本实现限制SSH最大登录次数是一种常见的安全管理手段，主要目的是防止暴力免费攻破或恶意用户频繁尝试登录，通过结合系统日志分析、进程监控或PAM模块，可以有效地对SSH登录行为进行限制,以下是详细的实现方法和步骤。

需要明确实现限制SSH登录次数的核心思路，可以通过分析SSH的日志文件（如/var/log/auth.log或/var/log/secure）来统计特定IP地址或用户名的登录失败次数，当次数超过预设阈值时，自动采取措施，如临时封禁IP地址或锁定用户账户，Perl脚本因其强大的文本处理能力和正则表达式支持,非常适合处理日志文件并实现自动化控制。

具体实现步骤如下：

获取SSH日志文件路径
不同Linux发行版的SSH日志存储位置可能不同，Debian/Ubuntu系统通常存储在/var/log/auth.log，而CentOS/RHEL系统则存储在/var/log/secure，脚本需要首先确定日志文件的正确路径，可以通过读取/etc/ssh/sshd_config配置文件或直接使用常见的路径进行判断。
解析日志文件统计登录失败次数
使用Perl的File::Tail模块或直接读取日志文件，逐行分析与SSH登录失败相关的记录，通过匹配”Failed password”或”Invalid user”等关键字，提取IP地址和用户名信息，以下是示例代码片段：
open my $log, '<', '/var/log/auth.log' or die "Cannot open log file: $!"; while (my $line = <$log>) { if ($line =~ /Failed password for .* from (d+.d+.d+.d+)/) { my $ip = $1; $failed_attempts{$ip}++; } } close $log;
设置阈值并触发限制措施
定义允许的最大登录失败次数（如5次），当某个IP的失败次数超过阈值时，调用系统命令封禁该IP，使用iptables或firewalld添加规则：

my $max_attempts = 5; foreach my $ip (keys %failed_attempts) { if ($failed_attempts{$ip} >= $max_attempts) { system("iptables A INPUT s $ip j DROP"); print "Blocked IP: $ipn"; } }
定期执行脚本
通过cron任务定期运行该脚本（如每分钟执行一次），确保实时监控登录行为，添加以下cron条目：
* * * * * /usr/bin/perl /path/to/ssh_login_limiter.pl
日志轮转处理
考虑到日志文件会随时间增长，脚本需要处理日志轮转的情况，可以通过检查日志文件的修改时间或使用logrotate工具确保脚本分析的日志始终是最新的。

以下是完整的Perl脚本示例框架：

perl脚本如何限制ssh最大登录次数？第3张

#!/usr/bin/perl use strict; use warnings; my $log_file = '/var/log/auth.log'; my $max_attempts = 5; my %failed_attempts; # 读取日志文件并统计失败次数 open my $log, '<', $log_file or die "Cannot open log file: $!"; while (my $line = <$log>) { if ($line =~ /Failed password for .* from (d+.d+.d+.d+)/) { my $ip = $1; $failed_attempts{$ip}++; } } close $log; # 封禁超过阈值的IP foreach my $ip (keys %failed_attempts) { if ($failed_attempts{$ip} >= $max_attempts) { system("iptables A INPUT s $ip j DROP"); system("echo $(date): Blocked IP $ip >> /var/log/ssh_limiter.log"); } }

注意事项：