21 lines
951 B
Diff
21 lines
951 B
Diff
--- a/scripts/services/sshd 2022/01/20 15:28:35 1.1
|
|
+++ b/scripts/services/sshd 2022/01/20 15:32:01
|
|
@@ -1,3 +1,5 @@
|
|
+#!/usr/bin/env perl
|
|
+
|
|
##########################################################################
|
|
# $Id$
|
|
##########################################################################
|
|
@@ -376,6 +378,11 @@
|
|
print STDERR "DEBUG: Found -Failed login- line\n";
|
|
}
|
|
$BadLogins{$Host}{"$User/$Method"}++;
|
|
+ } elsif ( my ($User,$Host) = ( $ThisLine =~ m/^Disconnected from authenticating user (\S+) (\S+) / ) ) {
|
|
+ if ( $Debug >= 5 ) {
|
|
+ print STDERR "DEBUG: Found -Disconnected Failed login- line\n";
|
|
+ }
|
|
+ $BadLogins{$Host}{$User}++;
|
|
} elsif ($ThisLine =~ s/^(log: )?Could not reverse map address ([^ ]*).*$/$2/) {
|
|
$NoRevMap{$ThisLine}++;
|
|
} elsif ( my ($Address) = ($ThisLine =~ /^reverse mapping checking getaddrinfo for (\S+( \[\S+\])?) failed - POSSIBLE BREAK-IN ATTEMPT!/)) {
|