суббота, 15 ноября 2008 г.

Генератор MAC-адресов

#!/usr/bin/perl -w
printf ("00:16:3e:%02x:%02x:%02x\n",
int(rand(0x7f)),
int(rand(0xff)),
int(rand(0xff)));