iGFW

#! /bin/bash
tempfile="$HOME/Stunnel_Proxy.$$"
proxyfile="$HOME/StunnelProxy-$(date '+%Y%m%d').txt"
trap "rm -f $tempfile $proxyfile _r.txt _s.txt" 2

for (( i=1 ; i<=8 ; i++ ))
    do
        url="http://nntime.com/proxy-list-0${i}.htm"
        curl -s "$url" | \
        grep -Eo '[1-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}'
    done > $tempfile

while read line
    do
        nc -v -w 5 -z $line 443 > _r.txt 2>&1
        if  grep '^.*443[ \t](https)[ \t]open' _r.txt
            then
              echo "$line" >> $proxyfile
            else
              continue
        fi
    done < "$tempfile"
rm -f r.txt
for ip in $(<$proxyfile)
    do
       baned=$(geoip "$ip")
       if echo "$baned" | grep '[Cc]hina' > /dev/null 2>&1
           then
             continue
           else
             echo "$baned" >> _s.txt 2>&1
        fi
    done
mv -f _s.txt $proxyfile    

isEmpty=$(file -b  "$proxyfile")

if [[ $isEmpty =~ empty ]]
    then
      echo "NO useful proxy."
      rm -f "$proxyfile"
    else
      echo "$proxyfile is made."
fi
rm -f "$tempfile"
exit 0

#! /usr/bin/perl

use strict;
use warnings;
use LWP::Simple;
use File::Basename;

my $name = basename($0);
my $usage = "Usage:\t $name ip";
my $ip = $ARGV[0] || die "$usage\n";
my $url = "http://www.geody.com/geoip.php?ip=${ip}";
my $search = get($url) or die "Could not open $url: $!\n";
my @search = split /\n/, $search;
my @location = grep /^IP:/, @search;
my $location = join " ", @location;
$location =~ s/<[^>]+>//g;

print "$location\n";

#! /bin/bash
banned_ip(){
    local ip url location
    ip=$1
    url="http://www.geody.com/geoip.php?ip=${ip}"
    location=$(curl -s "$url" | awk '/^IP/{
            gsub(/<[^>]+>/, "", $0);print
    }')
    echo "$location"
}

url="http://www.textproxylists.com/proxy.php?allproxy"
tempfile="$HOME/temp.$$"
proxylist="$HOME/proxylist-$(date '+%Y%m%d').txt"
trap "rm -f $proxylist $tempfile _p.txt _q.txt" 2

curl -s "$url" | awk -F ":" '/^[0-9\.]+/{print $1}' >> "$tempfile"
while read line ; do
    nc -v -w 5 -z "$line" 443 > _p.txt 2>&1
    if grep '^.*443[ \t](https)[ \t]open' _p.txt > /dev/null 2>&1
        then
          echo "$line" >> _q.txt
        else
          continue
    fi
done < $tempfile
for ip in $(cat _q.txt)
    do
        sleep 2
        useful=$(banned_ip "$ip")
        if echo "$useful" | grep '[Cc]hina' > /dev/null 2>&1
            then
              continue
            else
              echo "$useful" >> $proxylist
        fi
    done

rm -f "$tempfile" _q.txt _p.txt
IsEmpty=$(file -b $proxylist)

if [[ "$IsEmpty" =~ empty ]] ; then
    echo "No useful proxy is found."
    rm -f "$proxylist"
    exit 5
fi

echo "$proxylist is made."
exit 0