The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SENGER / NET-IPFilter_V1.1.1 / examples / ipfilter_nooop.pl~ 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

              
#!/usr/bin/perl
use strict;
use Socket qw ( inet_ntoa );
use Time::HiRes;
use Benchmark;
my $start = new Benchmark;
my $IPtoCheck   = ip2long("222.231.45.255"); #"238.99.160.101"
my @ARRAY = ();
open(RH,"<../ipfilter.dat");
        while( my $entry = <RH> ){
         
                chomp($entry);
                $entry =~ s/^\s+//;
                $entry =~ s/\s+$//;
                next if ( $entry =~ /^#/g || $entry =~ /#/g );
                next if ( length($entry) <= 0 );
                my ($IPRange, undef, $DESC) = split(",", $entry);
                next if ( $DESC =~ /\[BG\]FreeSP/ig );  
                my ($IP_Start, $IP_End) = split("-", $IPRange );
                my $IPStart                     = ip2long( $IP_Start );
                my $IPEnd                               = ip2long( $IP_End );
                push(@ARRAY, "$IPStart-$IPEnd");
        }; # while( my $entry = <RH> ){
close RH;
my $ArrayCount = @ARRAY;
# end timer
my $end = new Benchmark;
# calculate difference
my $diff = timediff($end, $start);
print "Time taken was ", timestr($diff, 'all'), " seconds\n";
sleep 3;
my $start1 = new Benchmark;
my $c = 0;
foreach my $arr ( @ARRAY) {
        $c++;
        my ($RangFrom, $RangTo) = split("-", $arr);
         
        if ( $IPtoCheck > $RangFrom && $IPtoCheck < $RangTo ) {
                 
                # end timer
                my $end1 = new Benchmark;
                # calculate difference
                my $diff = timediff($end1, $start1);
                print "Time taken was ", timestr($diff, 'all'), " seconds\n";
                my $s = long2ip($RangFrom);
                my $e = long2ip($RangTo);
                die "[$c/1.2 MIO] $IPtoCheck must be blocked ($s, $e)\n";
         
        #       return 0;       # to be blocked
                 
        } elsif ( $IPtoCheck > $RangFrom || $IPtoCheck < $RangTo ) {
                 
                # end timer
                my $end1 = new Benchmark;
                # calculate difference
                my $diff = timediff($end1, $start1);
                my $s = long2ip($RangFrom);
                my $e = long2ip($RangTo);
                print "Time taken was ", timestr($diff, 'all'), " seconds\n";
                die "[$c/1.2 MIO] $IPtoCheck must be blocked ($s, $e)\n";
        #       return 0;       # to be blocked
                         
        }; # if ( $IPtoCheck > $RangTo || $IPtoCheck < $RangFrom ) {
}; # foreach my $arr ( @ARRAY) {
exit;
sub  ip2long(){
        my $ip          = shift; # 4 sec ipfilter.dat 4-quore
        my @numbers     = split(/\./,$ip);
        return ($numbers[0] * 16777216) + ($numbers[1] * 65536) + ($numbers[2] * 256) + ($numbers[3]);
}; # sub  ip2long() {
sub long2ip(){
        my $long = shift;
        return inet_ntoa(pack("N*", $long));
}; # sub long2ip(){