Help for this page

Select Code to Download


  1. or download this
    sub ipto32bit {
#
...
    ($c,$d,$e,$f) = split(/\./,$ip);
    return ($c << 24) + ($d << 16) + ($e << 8) + $f;
}
  2. or download this
    #!/usr/bin/perl -wl
use strict;
...
203.134.35.27
12.345.111.5
12.345.111.4
  3. or download this
    12.345.111.3
12.345.111.4
...
12.345.111.26
61.8.47.111
203.134.35.27