ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 #! /usr/bin/perl -w 

use IO::Socket; 
use warnings;
use threads; 
use threads::shared; 
use Fcntl ':flock';

#! /usr/bin/perl -w 
use IO::Socket; 
use threads; 
use threads::shared; 
use Fcntl ':flock';

#!/usr/bin/perl
use LWP::UserAgent;
system('cls');
print qq{
########################################
#   Exploit \& Vulnerability Searcher   #
#         coded by ph1l1ster           #
########################################};
print "\n\n\nWhat search?:\n";
print "> ";
$spl = <STDIN>;
chomp($spl);
system('cls');
# milw0rm.com
print ">>> # Milw0rm.com \n\n";
$url = "http://www.milw0rm.com/search.php?dong=".$spl."&Submit=submit";
$start = LWP::UserAgent->new( ) or die;
$ans = $start->get($url);
if (@spl = $ans->content =~ /<a href=\"(.*)\" target=\"_blank\" class=\"style14\">/g){
print "\nhttp://milw0rm.com";
print join "\nhttp://milw0rm.com", @spl;}
else {
print "NOT FOUND!";}
# securityvulns.com
print "\n\n>> # securityvulns.comn\n";
$url = "http://securityvulns.com/exploits/?keyword=".$spl;
$start = LWP::UserAgent->new( ) or die;
$ans = $start->get($url);
if (@spl = $ans->content =~ /<A class="tiny" HREF=\"\/files\/([^"]*)\">/g){
print "\nhttp://securityvulns.com/files/";
print join "\nhttp://securityvulns.com/files/", @spl;}
else {
print "NOT FOUND!";}
# securiteam.com
print "\n\n>> # securiteam.com\n\n";
$url = "http://www.securiteam.com/cgi-bin/htsearch?words=".$spl."&method=and&format=builtin-long&sort=score&restrict=&exclude=&x=0&y=0";
$start = LWP::UserAgent->new( ) or die;
$ans = $start->get($url);
if (@spl = $ans->content =~ /<A STYLE=\"color: #333;\" HREF=\"(.*)\">.*<\/A>&nbsp;<img src=\"/g){
print join "\n", @spl;}
else {
print "NOT FOUND!";}
# securitydot.net
print "\n\n>> # securitydot.net\n\n";
$url = "http://securitydot.net/search.php?sch=sch&metaname=all&query=".$spl;
$start = LWP::UserAgent->new( ) or die;
$ans = $start->get($url);
if (@spl = $ans->content =~ /<li>.*<a href=\"(.*)\"><b>.*<\/b><\/a><\/li>/g){
print "\nhttp://securitydot.net";
print join "\nhttp://securitydot.net", @spl;}
else {
print "NOT FOUND!";}
if (@spl = $ans->content =~ /<img src=\".*\" alt=\".*\"><a href=\"(.*)\"><b>.*<\/b><\/a><\/li>/g){
print "\nhttp://securitydot.net";
print join "\nhttp://securitydot.net", @spl;}
else {
print "NOT FOUND!";}
# packetstormsecurity.org
print "\n\n>> # packetstormsecurity.org\n\n";
$url = "http://www2.packetstormsecurity.org/cgi-bin/search/search.cgi?searchvalue=".$spl."&type=archives&%5Bsearch%5D.x=0&%5Bsearch%5D.y=0";
$start = LWP::UserAgent->new( ) or die;
$ans = $start->get($url);
if (@spl = $ans->content =~ /<a class=\"fname\" href=\"(.*)\">.*<\/a>/g){
print join "\n", @spl;}
else {
print "NOT FOUND!";}
# (c)ph1l1ster

#!/usr/bin/perl
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
my $sis="$^O";if ($sis eq 'MSWin32') { system("cls"); } else { system("clear"); } 
print "+++++++++++++++++++++++++++++++\n";
print "+ SQL - Google Search +\n";
print "+ CWH Underground +\n";
print "+++++++++++++++++++++++++++++++\n\n";
print "Insert Dork:";
chomp( my $dork = <STDIN> );
print "Total Query Pages (10 Links/Pages) :";
chomp( my $page = <STDIN> );
print "\n[+] Result:\n\n";
for($start = 0;$start != $page*10;$start += 10)
{ 
$t = "http://www.google.com/cse?cx=013269018370076798483:gg7jrrhpsy4&cof=FORID:1&q=".$dork."&btnG=Search&start=".$start;
$ua = LWP::UserAgent->new(agent => 'Mozilla 5.2');
$ua->timeout(10);
$ua->env_proxy;
$response = $ua->get($t);
if ($response->is_success)
{
$c = $response->content;
@stuff = split(/<a href=/,$c);
foreach $line(@stuff)
{
if($line =~/(.*) class=l/ig)
{
$out = $1;
$out =~ s/\"//g;
$out =~s/$/\'/; 
$ua = LWP::UserAgent->new(agent => 'Mozilla 5.2');
$ua->timeout(10);
$ua->env_proxy;
$response = $ua->get($out);
$error = $response->content();
if($error =~m/mysql_/ || $error =~m/Division by zero in/ || $error =~m/Warning:/)
{print "$out => Could be Vulnerable in MySQL Injection!!\n";}
elsif($error =~m/Microsoft JET Database/ || $error =~m/ODBC Microsoft Access Driver/)
{print "$out => Could be Vulnerable in MS Access Injection!!\n";}
elsif($error =~m/Microsoft OLE DB Provider for SQL Server/ || $error =~m/Unclosed quotation mark/)
{print "$out => Could be Vulnerable in MSSQL Injection!!\n";}
elsif($error =~m/Microsoft OLE DB Provider for Oracle/)
{print "$out => Could be Vulnerable in Oracle Injection!!\n";}
}
}
}
}

#(с) Gaus
#!/usr/bin/perl -w

use LWP::UserAgent;
use threads;
use threads::shared;
my @sites : shared;
###############################
my $threads =       1;          # Кол-во потоков
my $proxy =       'proxy.txt';# Файл с награбленными прокси
my $sites =       'sites.txt';# Файл со списком сайтов(откуда грабить)
###############################
open (S, "<$sites") || die("Could not open ".$sites." file!!!");
open (F, ">>$proxy") || die("Could not open ".$proxy." file!!!");
@sites = <S>;
my $num;
my $saw;
for(0..$threads) {$trl[$_] = threads->create(\&Grab, $_);}
for(@trl) { $_->join; }
sub Grab
{
while (@sites){
$site = shift @sites;
$ua = new LWP::UserAgent;
$ua->timeout(30);
$data = $ua->get($site)->as_string;
print "Grabbing proxys from: ".$site." ...\n";
while($data =~/(\d*\.\d*\.\d*\.\d*)\:(\d*)/msgi) {
     print F $1.":".$2."\n";
     print  $1.":".$2."\n";
}
print "#############################\n"; 
}
}
close (F);
close (S);