Code below, see also

[link:lorgonblog.spaces.live.com]

1
2
3
4
5
6
7
8
9
10
11
12
13
 
let isOpen host port=
    //#do some scanning
    true

let host subnet ip =
    sprintf "%s.%d" subnet ip

let scan subnet port =
    seq {1 .. 254}
    |> Seq.filter (fun ip -> isOpen (host subnet ip) port)

By on 4/1/2009 4:33 PM ()

I see! Thanks for your quick answer and also for the useful link.

By on 4/2/2009 3:29 PM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy
Built with WebSharper