home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / portscan.txt < prev    next >
Text File  |  1996-04-23  |  1KB  |  29 lines
  1.  
  2. PORTSCAN v. 1.0 by _GoGo_ hahahaha :P
  3.  
  4.  
  5. Its got my name on it, so I uhhhh, made it... yup!
  6.  
  7.  
  8. RAW SHIT:
  9.  
  10.  
  11. #portscan disabled
  12. 211:* {
  13.   if $left(4,$right(5,$parm2)) isnum {
  14.     if (%porscan == $null) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %porscan active | set %portlist $left(4,$right(5,$parm2)) }
  15.     else { set %portlist1 %portlist | set %portlist %portlist1 $+ ,  $+ $left(4,$right(5,$parm2)) | set %curval $parm5 + $parm7
  16.       if (%curval < %bestportval) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %portlist1 %portlist | unset %portlist1 }
  17.   unset %curval } }
  18.   halt
  19. }
  20. 219:*: {
  21.   if ($parm2 == l) { echo 2 -s *** Portscan report for 6 $+ $server $+  | echo 2 -s *** Availble ports are: %portlist | echo 2 -s *** Best port is: %bestport | echo 2 -s *** Best port traffic: %bestportval Kilobytes | echo 4 -s *** Done scanning ports on $server $+ ! | unset %portlist | unset %porscan | unset %bestportval | /.timer 1 20 /unset %bestport | /.timer 1 1 /.disable #portscan | halt }
  22. }
  23. #portscan end
  24.  
  25.  
  26. ALIAS:
  27.  
  28.  
  29. /portscan { /.enable #portscan | /echo 4 -s *** Scanning for all visible ports on $server $+ ! | /stats l }