[FrostByte_mybb_import5923]

hey everyone here is my perl sqli Web vulnerability tester, all it does is search the specified web page for the right, error. Very simple but effective. note some parts may not be needed i took it from one of my other perl projects.

Code:

use LWP::Simple qw(get);
use HTTP::Request;
use LWP::UserAgent;

system('SQLEXp exploit');


print "\n\n\n\n\n\n================================================================================\n";
print "------------------------------   SQLEXp exploit  -------------------------------\n\n";
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
print "-------------- (((((((((((( #### C0deD By Frost #### ))))))))))) ---------------\n\n";
print "================================================================================\n\n\n\n\n\n";
print "First we must check if the page is vulnerable.\n\n";
print "Example site: Vulnerabilitytest.com/pages.php?id=79'\n\n";
print "Target: ";
my $site = <STDIN>;
my $page = get "$site";
my $url = "$site";
my $url2 = "site2";

  my $content = get $url;
  die "Unable to find $site" unless defined $content;

  
  if($content =~ "MySQL", "You have an error in your SQL syntax", "Script error: cannot query database.") {
    print "\n\n\nTarget Is Vulnerable.\n";
  }
  else {
    print "Target Is Not Vulnerable\n";
  }

this is fully coded by me and not ripped of anyone else.

[Enc0de]

Hey very nice script cant wait to try it out.