Perl Name-based UUID Generator

	#!/usr/bin/env perl
	use strict;
	use warnings;
	use Digest::MD5 qw( md5 );
	# based on UUID::Tiny
	sub uuid_v3 {
	my ( $namespace, $name ) = @_;
	$namespace =~ tr/\-//d;
	$namespace = pack 'H*', $namespace;
	my $uuid = md5( $namespace . $name );
	# set version 3 (MD5 name-based) UUID
	substr $uuid, 6, 1, chr( ord( substr $uuid, 6, 1 ) & 0x0f | 0x30 );
	# set RFC 4122 variant
	substr $uuid, 8, 1, chr( ord( substr $uuid, 8, 1 ) & 0x3f | 0x80 );
	return join '-',
	map { unpack 'H*', $_ }
	map { substr $uuid, 0, $_, '' }
	( 4, 2, 2, 2, 6 );
	}
	print uuid_v3( $ARGV[0], $ARGV[1] ), "\n";

view raw uuid-v3.pl hosted with ❤ by GitHub

Simple SNMP Trap Testing

Start a non forking snmptrapd daemon accepting all incoming traps and logging them to standard output:

snmptrapd -CdfLo --disableAuthorization=yes

Send a testing trap to the host running snmptrapd daemon (in this example 10.0.0.1):

snmptrap -v 1 -c public 10.0.0.1 .1.3.6.1.6.3 "" 0 0 coldStart.0

Also make sure the host firewall is not blocking incoming UDP/162 traffic.