Skip to content

Instantly share code, notes, and snippets.

@hackerfts315 hackerfts315/fts_infox.pl
Last active Sep 10, 2016

Embed
What would you like to do?
#!/usr/bin/perl
#coder: kodo no kami
#face: https://www.facebook.com/hacker.fts315
#github: https://gist.github.com/hackerfts315/
#forum: http://eofclub.com/forum
#exemplo: perl script.pl 123.456.789-01
#versao: 0.1
use WWW::Mechanize;
my $kodo = new WWW::Mechanize;
my $kodoarg = $ARGV[0];
$kodoarg =~ s/-//g;
$kodoarg =~ s/\.//g;
print "===========================\n" .
" FTS InfoX 0.1\n" .
"===========================\n\n";
my $help = "coder: kodo no kami\n".
"face: https://www.facebook.com/hacker.fts315\n" .
"github: https://gist.github.com/hackerfts315/\n".
"forum: http://eofclub.com/forum\n".
"sistemas de consultas: tudosobretodos e senhordasfraudes\n\n".
"exemplo: perl script.pl 123.456.789-01\n";
if($ARGV[0] eq "--help"){
print $help;
exit;
}
my $kodotam = @ARGV;
if($kodotam == 0){
print $help;
exit;
}
if($kodoarg =~ /\D/){
print $help;
exit;
}
$kodo->get("http://tudosobretodos.se/" . $kodoarg);
my @kodonome = $kodo->content =~ /textoTituloDetalhesPessoa..(.*?)..h1/s;
my @kodovis = $kodo->content =~ /itemMoradores..(.*?)..div/gs;
$kodo->post("http://senhordasfraudes.net/",[cpf => $kodoarg]);
my @kodoinfo = $kodo->content =~ /tbody(.*)\/table/s;
my @kodoinfo2 = $kodoinfo[0] =~ /td.(.*).\/td/gm;
print "nome: " . $kodoinfo2[0] . "\n";
print "cpf: " . $ARGV[0] . "\n";
print "mae: " . $kodoinfo2[1] . "\n";
print "data: ". $kodoinfo2[2] . "\n";
print "vizinhos: \n" . $kodovis[0] . "\n" . $kodovis[1] . "\n" . $kodovis[2] ."\n" . $kodovis[3] . "\n" . $kodovis[4] . "\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.