
$line2 =~ /[\W\t]*([\w\.\-]{1,15})\@([\w\-
]+)\.([\w\-]+)[\W\t\.]*/;
$emaila = "$1\@$2.$3";
}
# filter out junk email addresses
my ($name,undef) = split(/\@/,$emaila);
if (length($emaila) > 0 && $emaila =~ /$target$/i &&
length($name) < 15){
push @collected,$emaila;
}
}
return @collected;
}
sub dedupe
{
(@keywords) = @_;
my %hash = ();
foreach (@keywords) {
$_ =~ tr/[A-Z]/[a-z]/;
chomp;
if (length($_)>1){
$hash{$_} = $_;
}
}
return keys %hash;
This code, mentioned cursorily in the SensePost paper Putting the Tea Back
into CyberTerrorism (do a Google search for Tea Cyberterrorism), performs a Google
search for a domain name prepended with an @ sign, excluding the domain’ ...