Exiles

#!/perl/bin/perl
$filename = "goodnoenc.txt";
$filename2 = "goodnoenc2.txt";
$filename3 = "2duplicates2.txt";
$filename4 = "noenc.txt";
$filename5 = "noencssid2.txt";
$dups=0;
$dupsc=0;
open(TMP, $filename);
@SSID = <TMP>;
close(TMP);
open (OUT, ">$filename2");
open (OUTD, ">$filename3");
open (ENC, ">$filename4");
open (SID, ">$filename5");
$wepwpa=0;
$wep=0;
$wpa=0;
$noenc=0;
$unknown=0;
$x=0;
$SIdc=0;
$zz=1;
$zzz=1;
$Nullcount=0;
$gn=0;
$bn=0;
$un=0;
$ips=0;
$tadhoc=0;
$tinf=0;
$tpro=0;
$tother=0;
$ips=0;
foreach $line (@SSID) {
			#NetType;ESSID;BSSID;Channel;Cloaked;Encryption;MaxRate;IP
			#infrastructure;InfinixdWireless;00:18:39:E7:7E:B5;6;No;"WEP,WPA";54;0.0.0.0
	if ($line =~ /(.*?);(.*?);(.*?):(.*?):(.*?):(.*?):(.*?):(.*?);(.*?);(.*?);(.*?);(.*?);(.*?)$/i) {
		++$x;
		$count=0;
		$Sidc=0;
		$mac = "$3$4$5$6$7$8";
		$pmac = "$3\:$4\:$5\:$6\:$7\:$8";
		$ssid = "$2";
		$xx=0;
		#print "$12\n";
		if ($1 eq "ad-hoc") {
			++$tadhoc;
		}elsif ($1 eq "infrastructure") {
			++$tinf;
		}elsif ($1 eq "probe") {
			++$tpro;
		} else {
			++$tother;
		}
		if ($13 ne "0.0.0.0") {
			++$ips;
		}
		$enct=$11;
		if ($11 eq "\"WEP,WPA\"") {
			++$wepwpa;
		} elsif ($11 eq "WEP") {
			++$wep;
		} elsif ($11 eq "WPA") {
			++$wpa;
		} elsif ($11 eq "None") {
			++$noenc;
		} else {
			++$unknown;
			#print "$x $pmac $11\n";
		}
		if ($12 == 54) {
			++$gn;
		} elsif ($12 == 11) {
			++$bn;
		} else {
			++$un;
		}
		foreach $line2 (@SSID) {
			if ($line2 =~ /(.*?);(.*?);(.*?):(.*?):(.*?):(.*?):(.*?):(.*?);(.*?);(.*?);(.*?);(.*?);(.*?)$/i) {
				$mac2 = "$3$4$5$6$7$8";
				$ssid2 = "$2";
				if ($mac eq $mac2) {
					#print "$pmac $ssid\n";
					++$count;
				}
				if ($ssid eq $ssid2) {
					++$Sidc;
				}
			}
		}
		$zzzz=$zz;
		$z=0;
		$PASSED=0;
		if ($Sidc > 1) {
			while ($z < $zz){
				if ($SSid{$z} eq $ssid) {
					$PASSED=0;
				} elsif (($SSid{$z} ne $ssid) && ($SSid{$z} eq '')) {
					$PASSED=1;
				}
				
				++$z;
			}
		} else { ++$Nullcount; }
		if ($PASSED) { 
					$SSid{$z}=$ssid;
					++$zzz;
					print SID "$ssid: was seen $Sidc times\n";
		}
$zz=$zzz;
		if ($count > 1) {
			 ++$dupsc;
			 $dups=1;
			 print $enct;
			 if ($enct eq "None") {
			 	print OUTD "$line\n";
			 }
		} else {
			if ($enct eq "None") {
				print OUT "$line\n";
			}
		}
	} else {
		print "$line dosn't match\n";
	}
}
print ENC "Encryption Types: $gn\n";
print ENC "WEP/WPA Encryption: $wepwpa\n";
print ENC "WEP Encryption: $wep\n";
print ENC "WPA Encryption: $wpa\n";
print ENC "No Encryption: $noenc\n";
print ENC "Unknown: $unknown\n";
print ENC "Network Speeds\n";
print ENC "G Networks: $gn\n";
print ENC "B Networks: $bn\n";
print ENC "Unknown Networks: $un\n";
print ENC "Saw $ips\n";
print ENC "Network Types:\n$tadhoc ad-hoc networks.\n$tinf infrastructure networks.\n$tpro probe networks.\n$tother Other networks\n";
print SID "Custom SSID: was seen $Nullcount times\n";
close (SID);
close (ENC);
close (OUT);
close (OUTD);

if ($dups) {
	print "$dupsc Duplicate Records Found!\n";
} else {
	print "No Dulicate Records Found!\n";
}