Something

on 1:start:{ window -ean @sockbox | titlebar @sockbox Sock Info: I have a total of $calc($lines(IRcSock5.txt) + $lines(IRCSock4.txt)) Socks. $lines(IRCSock4.txt) Socks4 and $lines(IRCSock5.txt) Socks5. | echo @sockbox Paste your socks in here to check connectivity. | echo @sockbox Original sockbox edited by Saibot }
on *:input:@sockbox:{ 
  set %ip $gettok($1,1,58) 
  set %port $gettok($1,2,58) 
  if ($validip(%ip) == $true) && ($validport(%port) == $true) { 
    if ($sock(s4chk)) || ($sock(s5chk)) { msg $chan Socks Irc scan beta pastes on  box  socks auto  scan remodup . | halt } 
    else { 
      echo @sockbox $1 seems to be a 3valid IP:PORT.10,13 Checking For connections.
      sockopen s4chk $+ $r(999,999999999999) %ip %port 
      sockopen s5chk $+ $r(999,999999999999) %ip %port 
      socki %ip 
      halt 
    } 
  } 
}  

alias validip { 
  if ($count($1,.) != 3) || ($gettok($1,1,46) !isnum 0-255) || ($gettok($1,2,46) !isnum 0-255) || ($gettok($1,3,46) !isnum 0-255) || ($gettok($1,4,46) !isnum 0-255) { return $false | halt } 
  else { return $true | halt } 
} 
alias validport { 
  if ($1 isnum 1-65535) { return $true | halt } 
  else { return $false | halt } 
} 

alias socki { 
  sockopen socki- $+ $1 irc.swiftirc.net 6667
} 



on *:sockopen:s5chk*:{
  if ($sockerr > 0) { echo @sockbox $sock($sockname).ip $+ : $+ $sock($sockname).port - SOCKS5 -  13,54,3Fail. | write socktimeout.txt $sock($sockname).ip $+ : $+ $sock($sockname).port @sock5 time out | sockclose $sockname | halt }
  set %s5time $ticks
  .bset &bvar5 1 5 1 0
  .sockwrite $sockname &bvar5
  .bunset &bvar5
  halt
}
on *:sockread:s5chk*:{
  if ($read(IRCSock5.txt,w, $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ )) { echo @sockbox SOCKS5 - $sock($sockname).ip $+ : $+ $sock($sockname).port 15,2Is already in my Socks5 db. }
  else {
    if ($sockerr > 0) { sockclose $sockname | halt }
    .sockread &bsocks5
    set %sock &bsocks5
    if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
      .bset &socks5 1 5 1 0 1 $replace(66.249.93.104,.,$chr(32)) $gettok($longip(80),3,46) $gettok($longip(80),4,46)
      .sockwrite $sockname &socks5
      .bunset &socks5
    }
    if ($bvar(&bsocks5,1,3) == 5 0 0) {
      set -u5 % $+ $sockname check
      echo @sockbox SOCKS5 -3 $sock($sockname).ip $+ : $+ $sock($sockname).port - $calc($ticks - %s5time) $+ ms 12,7Connected
      write IRCsock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
      write IRCALL.txt $sock($sockname).ip $+ : $+ $sock($sockname).port $+ @SOCKS5 IRC - Response time - $calc($ticks - %s5time) $+ ms 
      write IRCcodes5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port $+ @SOCKS5 IRC - Response time - $calc($ticks - %s5time) $+ ms 
      unset %s5time
      sockclose $sockname
    }
  }
}
on *:sockopen:s4chk*:{
  if ($sockerr > 0) { echo @sockbox $sock($sockname).ip $+ : $+ $sock($sockname).port - SOCKS4 - 13,54,3Fail. | write socktimeout.txt $sock($sockname).ip $+ : $+ $sock($sockname).port @sock4 time out | sockclose $sockname | halt }
  set %s4time $ticks
  .bset &bvar4 1 4 1 $gettok($longip(80),3,46) $gettok($longip(80),4,46) $replace(66.249.93.104,.,$chr(32)) 0
  .sockwrite $sockname &bvar4
  .bunset &bvar4
}
ON *:SOCKREAD:s4chk*:{
  if ($read(IRCSock4.txt,w, $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ )) { echo @sockbox SOCKS4 - $sock($sockname).ip $+ : $+ $sock($sockname).port 15,2Is already in my Socks4 db. }
  else {
    if ( $sockerr > 0 ) { sockclose $sockname | return }
    .sockread &bsocks4
    if ($bvar(&bsocks4,2) == 90) {
      set -u5 % $+ $sockname check
      echo @sockbox SOCKS4 -3 $sock($sockname).ip $+ : $+ $sock($sockname).port - $calc($ticks - %s4time) $+ ms 12,7Connected
      write IRCsock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
      write IRcALL.txt $sock($sockname).ip $+ : $+ $sock($sockname).port $+ @SOCKS4 IRC - Response time - $calc($ticks - %s4time) $+ ms 
      write IRCcodes4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port $+ @SOCKS4 IRC - Response time - $calc($ticks - %s4time) $+ ms 
      unset %s4.time
      sockclose $sockname
    }
    halt
  }
}