gistfile1.ph

sub isPrivate {

        my $ip = shift;
        my @a_ip = split /\./, $ip;
        my $i_secret = 0;

        if ($a_ip[0] == 10)
        {
                $i_secret = 1;
        }

        if ( ($a_ip[0] == 172) && ($a_ip[1] >= 16) && ($a_ip[1] <= 31) )
        {
                $i_secret = 1; 
        }

        if ( ($a_ip[0] == 192) && ($a_ip[1] == 168) )
        {
                $i_secret = 1; 
        }

        return $i_secret;

}