Waraxe IT Security Portal

syntax9 · Active user

#!/usr/bin/perl
#
# cijfer-phpbbvgrab - phpBB Version Grabber
#
# Copyright (c) 2005 cijfer <cijfer@netti.fi>
# All rights reserved.
#
# This is a very basic program to get the version string of any phpBB.
# Sometimes the version is hidden at the bottom of the index, and with
# this tool, you can get the version through the changelog. This would
# probably only be handy for malicious purposes.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: cijfer-phpbbvgrab.pl,v 0.1 2005/12/24 04:00:00 cijfer Exp cijfer $

use LWP::Simple;

$host = $ARGV[0];
$error = "cannot find version\r\n";

if(!$host)
{
print "$0 http://<host>/<dir>\r\n";
exit();
}

$dothis = get $host."/docs/CHANGELOG.html";

if($dothis =~ /(phpBB) (\d{1})\.(\d{1})\.(\d{1,2})/)
{
print "$host => $1 $2.$3.$4$5\r\n";
}
else {
print $error;
}

shai-tan · Valuable expert

Or just browse to the /docs folder Wink

WaterBird · Active user

if docs folder exists of course i always delete it Wink

shai-tan · Valuable expert

Yeah I do to. I was basing my assumption on the /docs being still there like that script by syntax9.

Shai-tan

WaterBird · Active user

Roger that cheef :]