salesmorenno.com

Linux vps.jarleysistemas.com.br 3.10.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64
Apache
31.220.53.84
36 Domain

KillSSH.pm

###############################################################################
# Copyright 2006-2018, Way to the Web Limited
# URL: http://www.configserver.com
# Email: sales@waytotheweb.com
###############################################################################
## no critic (RequireUseWarnings, ProhibitExplicitReturnUndef, ProhibitMixedBooleanOperators, RequireBriefOpen)
# start main
package ConfigServer::KillSSH;

use strict;
use lib '/usr/local/csf/lib';
use Fcntl qw(:DEFAULT :flock);
use ConfigServer::Logger;

use Exporter qw(import);
our $VERSION     = 1.00;
our @ISA         = qw(Exporter);
our @EXPORT_OK   = qw();

# end main
###############################################################################
# start iplookup
sub find {
	my $ip = shift;
	my $ports = shift;

my %inodes;

if ($ports eq "" or $ip eq "") {return}

foreach my $proto ("tcp","tcp6") {
		open (my $IN, "<", "/proc/net/$proto");
		flock ($IN, LOCK_SH);
		while (<$IN>) {
			my @rec = split();
			if ($rec[9] =~ /uid/) {next}

my ($dip,$dport) = split(/:/,$rec[2]);
			$dport = hex($dport);

my ($sip,$sport) = split(/:/,$rec[1]);
			$sport = hex($sport);

$dip = &hex2ip($dip);
			$sip = &hex2ip($sip);

if ($sip eq '0.0.0.1') {next}
			if ($dip eq $ip) {
				foreach my $port (split(/\,/, $ports)) {
					if ($port eq $sport) {
						$inodes{$rec[9]} = 1;
					}
				}
			}
		}
		close ($IN);
	}

opendir (my $PROCDIR, "/proc");
	while (my $pid = readdir($PROCDIR)) {
		if ($pid !~ /^\d+$/) {next}
		opendir (DIR, "/proc/$pid/fd") or next;
		while (my $file = readdir (DIR)) {
			if ($file =~ /^\./) {next}
			my $fd = readlink("/proc/$pid/fd/$file");
			if ($fd =~ /^socket:\[?([0-9]+)\]?$/) {
				if ($inodes{$1} and readlink("/proc/$pid/exe") =~ /sshd/) {
					kill (9,$pid);
					ConfigServer::Logger::logfile("*PT_SSHDKILL*: Process PID:[$pid] killed for blocked IP:[$ip]");
				}
			}
		}
		closedir (DIR);
	}
	closedir ($PROCDIR);
	return;
}
# end find
###############################################################################
## start hex2ip
sub hex2ip {
    my $bin = pack "C*" => map hex, $_[0] =~ /../g;
    my @l = unpack "L*", $bin;
    if (@l == 4) {
        return join ':', map { sprintf "%x:%x", $_ >> 16, $_ & 0xffff } @l;
    }
    elsif (@l == 1) {
        return join '.', map { $_ >> 24, ($_ >> 16 ) & 0xff, ($_ >> 8) & 0xff, $_ & 0xff } @l;
    }
}
## end hex2ip
###############################################################################

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2021-03-05 10:51:29
..	dir	-	root/root	drwxr-xr-x	2021-09-01 04:12:21
AbuseIP.pm	text/plain	2.85 KB	root/root	-rw-r--r--	2018-02-17 11:54:58
CheckIP.pm	text/plain	1.81 KB	root/root	-rw-r--r--	2020-09-02 03:17:48
CloudFlare.pm	text/plain	15.15 KB	root/root	-rw-r--r--	2019-06-02 02:30:05
Config.pm	text/plain	16.86 KB	root/root	-rw-r--r--	2021-04-04 08:46:42
DisplayResellerUI.pm	text/plain	10.16 KB	root/root	-rw-r--r--	2021-03-05 10:58:03
DisplayUI.pm	text/plain	137.75 KB	root/root	-rw-r--r--	2021-03-05 10:58:03
GetEthDev.pm	text/plain	3.62 KB	root/root	-rw-r--r--	2019-08-12 10:58:18
GetIPs.pm	text/plain	2.19 KB	root/root	-rw-r--r--	2018-02-17 11:54:58
KillSSH.pm	text/plain	2.43 KB	root/root	-rw-r--r--	2018-04-14 04:29:45
Logger.pm	text/plain	1.83 KB	root/root	-rw-r--r--	2018-02-17 11:54:58
LookUpIP.pm	text/plain	11.32 KB	root/root	-rw-r--r--	2021-03-05 10:58:03
Messenger.pm	text/plain	41.37 KB	root/root	-rw-r--r--	2021-04-15 10:29:46
Ports.pm	text/plain	5.69 KB	root/root	-rw-r--r--	2018-04-14 04:29:25
RBLCheck.pm	text/plain	6.77 KB	root/root	-rw-r--r--	2018-05-01 09:39:05
RBLLookup.pm	text/plain	2.92 KB	root/root	-rw-r--r--	2018-02-17 11:54:58
RegexMain.pm	text/plain	43.77 KB	root/root	-rw-r--r--	2021-04-20 02:39:41
Sanity.pm	text/plain	1.88 KB	root/root	-rw-r--r--	2018-02-17 11:54:58
Sendmail.pm	text/plain	3.1 KB	root/root	-rw-r--r--	2019-08-12 11:05:07
ServerCheck.pm	text/plain	77.28 KB	root/root	-rw-r--r--	2021-03-05 10:58:03
ServerStats.pm	text/plain	134.43 KB	root/root	-rw-r--r--	2018-03-01 10:12:20
Service.pm	text/plain	2.88 KB	root/root	-rw-r--r--	2018-10-18 08:40:09
Slurp.pm	text/plain	1.56 KB	root/root	-rw-r--r--	2018-02-17 11:54:58
URLGet.pm	text/plain	7.37 KB	root/root	-rw-r--r--	2020-06-17 02:41:17
cseUI.pm	text/plain	36.03 KB	root/root	-rw-r--r--	2018-03-01 10:15:13