Perl Function: random

Perl Function: random_mac()2002-09-05

Function to generate a random MAC address. Just for testing.

sub random_mac() {
	my ($mac,$i);
	for ($i=0;$i<6;$i++) {
		$mac .= zeropad(sprintf("%x",rand() * 255)) . ":";
	}
	$mac = substr($mac,0,length($mac)-1);
	return $mac;
}