Code:

package require httpnamespace eval pchecker {# proxycheck.io api keyvariable pckey "xxxxxx-xxxxxx-xxxxxx-xxxxxxxx"# gzline messagevariable gmsg "Sorry, VPN are not allowed"# List of IP not checkedvariable whitelist {}# List of blacklisted IPvariable blacklist {}variable pcheckerwl "scripts/pcheckerwl.txt"# To enable on a chan, think to do# .chanset #chan +scanipsetudef flag scanipbind join - * ::pchecker::whoisbind raw - 378 ::pchecker::ipcheckbind pub - !add ::pchecker::ipaddbind pub - !rem ::pchecker::ipremproc whois {nick uhost handle chan} {if {![channel get $chan scanip]} { return }if {[isbotnick $nick]} { return }putquick "WHOIS $nick"}proc ipadd {nick uhost handle chan text} {if {[lsearch $::pchecker::whitelist $text] == -1} {lappend ::pchecker::whitelist $text}::pchecker::l2file $::pchecker::whitelist $::pchecker::pcheckerwl}proc iprem {nick uhost handle chan text} {set n [lsearch $::pchecker::whitelist $text]if {$n != -1} {set ::pchecker::whitelist [lreplace $::pchecker::whitelist $n $n]::pchecker::l2file $::pchecker::whitelist $::pchecker::pcheckerwl}}proc ipcheck {frm key text} {set ip [lindex [split $text " "] end]foreach w $::pchecker::whitelist {if {[string match $w $text]} { return }}foreach b $::pchecker::blacklist {if {[string match $w $text]} {putquick "GLINE *@$ip +7d :$::pchecker::gmsg"return}}::pchecker::isvpn $ip}proc json2dict {JSONtext} {string range [string trim [string trimleft [string map {\t {} \n {} \r {} , { } : { } \[ \{ \] \}} $JSONtext] {\uFEFF}]] 1 end-1}proc isvpn {ip} {::http::config -useragent "lynx"set pcheck [::http::geturl http://api.isproxyip.com/v1/check.php?key=$::pchecker::pckey&ip=${ip}&format=json]set data [json2dict [::http::data $pcheck]]if {[dict get $data status] eq "success"} {set proxy [dict get $data proxy]if {$proxy == 1 } {lappend $::pchecker::blacklist $ipputquick "GLINE *@$ip +7d :$::pchecker::gmsg"}}::http::cleanup $pcheck}proc l2file {olist dfile} {set fo [open $dfile w]puts $fo [join $olist "\n"]close $fo}proc f2list {dfile} {set fi [open $dfile r]set olist [split [read -nonewline $fi] "\n"]close $fireturn $olist}set ::pchecker::whitelist [::pchecker::f2list $::pchecker::pcheckerwl]}