opening remote UDP port

dazdaz · 03-10-2011, 03:19 PM

Hi, is it possible using a perl script to test for a socket listening on a UDP port on a remote host ?

I work in an environment where netcat is not allowed and from time to time I need to see if a UDP port is open on a remote host.

jrtayloriv · 03-10-2011, 03:32 PM

Take a look at this.

After you've read through the above, I'd also recommend taking a quick look at this.

dazdaz · 05-14-2011, 03:43 PM

I found a good TCP and UDP port scanner wrote in perl here :

http://www.decorous.co.uk/perl.html

atavus1 · 05-24-2011, 02:42 PM

Hi

You could use netcat, but, you need to use option "-u" to specify udp protocol. Ex: "nc -u localhost 3333"

AtAvUs

dazdaz · 05-24-2011, 02:54 PM

Yes thanks, I know that, but I was looking for a perl script. It's not always possible to deploy a new binary easily onto a system.

atavus1 · 05-24-2011, 04:34 PM

Hi again.

I found this script in Internet, I hope it will be useful.

Quote:

#!perl -w
use strict;
use Socket;

my %opts = (
i => '127.0.0.1',
t => 'udp',
p => 4971,
);
my $protocol = getprotobyname $opts{t} or die $!;
socket( SOCKET, PF_INET, SOCK_DGRAM, $protocol )
or die "socket creation failed\n$!";
my $internet_addr = inet_aton( $opts{i} )
or die "couldn't convert '$opts{i}' into an Internet address: $!\n";
my $paddr = sockaddr_in( $opts{p}, $internet_addr );

send( SOCKET, "x", 0, $paddr ) or die "FAILURE: $opts{i}:$opts{p} ($opts{t})\n";
print "SUCCESS: $opts{i}:$opts{p} ($opts{t})\n";

AtAvUs

dazdaz · 05-24-2011, 11:38 PM

The script above is not very good. Read the comments before the perl script in the link I sent above.