#!/usr/bin/perl -w
#Simple detección de Fabricante y modelo basada en la bdaddr
#Sha0@BadCheckSum.com


my @firmas = (
	"Windows ap ",		"00:11:B1:",
	"poketpc",		"08:00:28:",
	"Apple",		"00:0A:95:",

	"z600",			"00:0A:D9:",
	"audio coche",		"00:10:0B:",
	"Acer_N30",             "00:02:78:",
	"Comneon_H1",           "00:01:E3:29:05:77",

	"HP_bt1300",            "00:30:6E:",
	"HP_iPAQ_h4150",        "08:00:28:",
	"HP_iPAQh5500",         "08:00:17:",
	"HP_iPAQ_h6315",        "08:00:28:",
	"imate_pda2k",          "00:09:2D:",

	"MotorolaA1000",        "00:12:8A:",
	"Motorola",		"C6:F7:4A:",
	"Motorola",		"00:0A:28:",

	"nokia7650 (pin:5475)",	"00:02:EE:",
        "nokia",                "00:60:57:",
        "nokia",                "00:13:70:",
        "nokia",                "00:0E:ED:",
	"Nokia 6680",           "00:15:A0:",
	"Nokia3230",            "00:13:70:",
	"Nokia_6230_0524",      "00:12:62:",
	"Nokia_6230_2",         "00:12:62:",
	"Nokia_6230_3",         "00:12:62:",
	"Nokia_6230_4",         "00:11:9F:",
	"Nokia6310i",           "00:60:57:",
	"Nokia6600_2",          "00:60:57:",
	"Nokia6600_3",          "00:60:57:",
	"Nokia6600",            "00:60:57:",
	"Nokia6630_2",          "00:11:9F:",
	"Nokia6630",            "00:02:EE:CF:8D:99",
	"Nokia6820",            "00:02:ee:",
	"Nokia7600",            "00:60:57:",
	"Nokia7610",            "00:11:9F:",
	"Nokia7650",            "00:02:EE:",
	"Nokia7820",            "00:02:EE:FE:E3:CB",
	"Nokia8910i",           "00:60:57:",
	"NokiaNGage",           "00:60:57:",
	"NokiaNGageV3",         "00:60:57:8A:5E:8B",
	"Nokia 6210",           "00:E0:03:",

	"Ericsson T39m",        "00:80:37:",
	"Ericsson T39M",        "00:01:EC:",
	"Ericsson",		"00:0A:D9:",	
	"Ericsson",		"00:0E:07:",
	"sonyericson",          "00:12:EE:",

	"sendox",               "08:00:28:",

	"SiemensS55",           "00:01:E3:",
	"Siemens_S65",          "00:01:E3:3B:D8:5C",
	"Siemens_SK65",         "01:90:71:",
	"SiemensSX1",           "00:01:E3:",

	"Sony_Clie_PEG-TH55",   "08:00:46:",
	"AVM BlueFRITZ! AP-DSL","00:04:0E:",
	"HBH-10",		"00:01:EC:",
	"Aficio AP600N",	"00:04:76:",
	"ELSA Vianect Blue ISDN","00:A0:57:",
	"Anycom LAN Access Point","00:06:C6:",
	"Audi UHV (pin:1234)",	"00:0E:9F:",
	"O'Neill (pin:8761)",	"00:80:37:",
	"Cellink (pin:1234)",	"00:0A:94:",
	"Eazix  (pin:1234)",	"00:0C:84:"
);



die "uso: $0 <bdaddr>\t\t\t" if (@ARGV!=1);

my $i;
my $f=0;

for ($i=1;$i<@firmas;$i+=2) {
	if ($ARGV[0] =~ /^$firmas[$i]/ig) {
		print "Modelo: ".$firmas[$i-1]."\n";
		$f=1;
	}
}

print "Mala suerte \n" if (!$f);