Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: timeout

From: ptretter:charter at: 9-Apr-2001 20:56

here is an example script thats a port scanner (my intent is to make it much more than that). Right now it has system/schemes/default/timeout: 1 However if you change it to 0:0.5 it responds much slower - why? REBOL [ Title: "Port Scanner" Author: "Paul Tretter" ] system/schemes/default/timeout: 1 host: Ask "Enter ip address or fully qualified hostname ex.( " port: to-integer Ask "Enter start port " End: to-integer Ask "Enter End port " newhost: rejoin [tcp:// host] while [(end + 1) <> port][ getports: rejoin [newhost ":" port] either error? error: try [open getports][ disarm error print ["nothing at port " port] ][ print ["port " port " available"] ] port: port + 1 ] halt