JSON Proxy Checker for Debian v4.0

menu status,channel,query {
  GLINE PROXY ON JOIN (is $+ $chr(58) $group(#glineproxy) $+ )
  .On:.enable #glineproxy | .echo -a 4* GLINE PROXY ON *
  .Off:.disable #glineproxy | .echo -a 4* GLINE PROXY OFF *
}

ON ^*:SNOTICE:*: {
  if (*Client connecting* iswm $1-) {
    haltdef
    .timer[PROXY_ $+ $4 $+ _CONNECT] -h 1 1000 hadd CONNECTS $4 $remove($6,[,])
    if (!$hget(CONNECTS)) { hmake CONNECTS 10000 }
  }
  if (*Client exiting* iswm $1-) {
    .timer[PROXY_ $+ $4 $+ _CONNECT] off
    if (*has been scanned and marked as* iswm $strip($1-)) { haltdef }
    if ($hget(CONNECTS,$4)) { haltdef | hdel CONNECTS $4 }
  }
  if (*has changed their nickname* iswm $1-) {
    .timer[PROXY_ $+ $2 $+ _CONNECT] off
    if ($hget(CONNECTS,$2)) {
      haltdef
      var %ip = $v1
      hdel CONNECTS $2
      hadd CONNECTS $9 %ip
    }
  }
  if (*Z:Line added for* iswm $1-) && ($me isin $14) { haltdef }
}

#glineproxy on

ON !*:JOIN:#shqiperia: {
  if ($hget(CONNECTS,$nick)) { proxy_check $nick $chan $v1 }
}

alias proxy_check {
  if (!$1) || (!$2) || (!$3) { return }
  hdel CONNECTS $1

  var %r = $rand(1,2)
  if (%r == 1) { var %k = Mjk1NDpadFdlVk02QUp2eWgybFFFNk4xREl5WTlHOTc2dFJ5Vg== }
  if (%r == 2) { var %k = Mjk1NTpYRnpLdFhlQ2dGYmdSanBvRzBWaHp5dG1ZR3JLYlZ0eQ== }

  var %v = proxy_ $+ $ticks $+ $rand(1,100000000000)

  JSONOpen -udw %v http://v2.api.iphub.info/ip/ $+ $3
  JSONHttpHeader %v X-Key %k
  JSONHttpFetch %v
  if ($JSONError) { goto proxy_2 }

  var %proxy = $json(%v,block).value
  if (%proxy == 1) { .quote zline *@ $+ $3 1h 5Defense Security Service Of Intelligence 4: 6Your IP $3 has been scanned and marked as VPN/Proxy. | return }

  :proxy_2

  var %r = $rand(1,3)
  if (%r == 1) { var %k = x46397-z46706-b39969-135l05 }
  if (%r == 2) { var %k = 589h35-9u8361-736n38-10hj05 }
  if (%r == 3) { var %k = 326620-r6co92-4j2g0r-93784p }

  var %v = proxy2_ $+ $ticks $+ $rand(1,100000000000)

  JSONOpen -ud %v http://proxycheck.io/v2/ $+ $3 $+ ?key= $+ %k $+ &vpn=1&time=1&inf=1&days=7
  if ($JSONError) { return }

  var %proxy = $json(%v,$3,proxy).value
  if (%proxy == yes) { .quote zline *@ $+ $3 1h 7Defense Security Service Of Intelligence 4: 6Your IP $3 has been scanned and marked as $json(%v,$3,type).value $+  }
}

#glineproxy end