[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
com esse script da para checar se os emails sao existentes ou nao
com esse script da para checar se os emails sao existentes ou nao
- Código:
#!/usr/bin/perl
#by hacker fts315
use LWP::UserAgent;
slogan();
print "1 - verificar email\n";
print "2 - verifica uma lista\n\n";
print "> ";
$op = <stdin>;
if($op == 1)
{
print "\ndigite o email: ";
$email = <stdin>;
$r = verificar($email);
print "\n\n";
if($r == 1)
{
print "email existente";
}
if($r == 0)
{
print "email nao existente";
}
}
elsif ($op == 2)
{
print "\ndigite o arquivo: ";
$arq = <stdin>;
$arq = "<" . $arq;
open(ABERTO,$arq);
open(SALVAR,">fts_email.txt");
@emails = <ABERTO>;
print "\n";
foreach(@emails)
{
$r2 = $_;
print $r2;
$r3 = verificar($r2);
if($r3 == 1)
{
print SALVAR $r2;
}
}
close(ABERTO);
close(SALVAR);
}
print "\n\naperte enter para sair";
<stdin>;
sub slogan
{
print "================================\n";
print " FTS Check Email Valid\n";
print "================================\n\n";
}
sub verificar
{
$url = "http://my-addr.com/free-email-verification-tool/verify-email-address/reverse-email-lookup/verify_email.php?mail=" . $_[0] ."&x=29&y=7";
chomp($url);
$fts = LWP::UserAgent->new->get($url);
@hack = $fts->content =~ /<font color="(.*)">/;
if($hack[0] eq "green")
{
return 1;
}
if($hack[0] eq "red")
{
return 0;
}
}