Invalid ICMP type 69

I'm writing a small UDP port scanner that just relys on an ICMP response to detect non-filtered/closed ports.

For some reason my code is returning an ICMP type 69 Code 1 which is not a valid type that I can see. I'd expect a type 3 ( Destination Unreachable ) not an undefined type.

Am I deciphering the ICMP packet I'm receiving wrong? Here is the code I am using:

#!/usr/bin/perl

use IO::Socket;

#
#    Scan UDP ports
#
$|++;
my @ports = ( 53, 514, 15555 );
scan_udp_ports( 'localhost', \@ports );


sub scan_udp_ports {
    my $host = shift;
    my $ports = shift;

    my($closed, $open, $filtered);

    #    Setup ICMP listen
    my $icmp = IO::Socket::INET->new(
                        Proto        =>    'icmp',
                        Blocking    =>    0
                        ) or die("No ICMP listen");

    foreach my $port ( @$ports ) {

        print "Scanning $port\n";

        #    Setup UDP send connection
        $client = IO::Socket::INET->new(
                        PeerPort    =>    $port,
                        PeerAddr    =>    $host,
                        Proto        =>    'udp',
                        Blocking    =>    0
                        ) or die("No server $!");

        #    Send UDP packet
        $client->send( undef );
        sleep( 5 );
        my $icmpbuffer = icmp_recv( $icmp );

        #    Check for response
        my $flags;
        if( $client->recv( $dgram, 10, $flags ) ) {
            print "This udp port $port at host $host responded!\n";
        }
    }
}

sub icmp_recv {
    my $icmp = shift;

    #    Listen for ICMP response
    my $icmpbuffer;
    if( my $icmpr = $icmp->recv( $icmpbuffer, 1024, 0 ) ) {
        print "ICMP Type: " . unpack("%8C", $icmpbuffer) . "\n";
        print "ICMP Code: " . unpack("%8c", substr($icmpbuffer, 9)) . "\n";
        print "ICMP Checksum: " . unpack("%8c", substr($icmpbuffer, 33)) . "\n";
    }
    return $icmpbuffer;
}

LVL 10
rivusglobalAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

manav_mathurCommented:
Since you have already recieved the data in $icmp->recv inside icmp_recv(), why are you again doing $client_recv in scan_udp_ports.

AFAIK, you should set the listening socket ($icmp) in blocking mode; and just test the value of $icmpbuffer to see if data has  arrived....
rivusglobalAuthor Commented:
I'm doing the $client->recv just in case any data actually gets returned over the UDP port, which would be a confirmation of the port being open.

In blocking mode, if there is no ICMP response ( ie. filtered port ) then the script would never receive a response.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rivusglobalAuthor Commented:
My unpacking routine wasn't working at all.  After looking at Net::Ping I understand that the actual start of the ICMP type in the returned packet starts 20 bytes into the packet.  This line of code returns the proper ICMP Type and SubCode.

my($fromtype, $fromsubcode) = unpack("C2", substr($icmpbuffer, 20, 2) );

Thanks for pointing me in the right direction manav_mathur.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Perl

From novice to tech pro — start learning today.