Changé d'ip livebox mini sans reboot

testé et approuvé code par deathwolf

1. il faut installer le logiciel activeperl (dispo ici = http://www.01net.com/telecharger/windows/Programmation/... )
2. créer un fichier text sur le bureau et mettre le code ci dessous a l'interieur
3. modifier les 3 lignes niveau configuration password/login/web_password.
4. ensuite cliquer sur fichier enregistrer sous renommer le fichier en resetlivebox.pl puis en type mettre tous les fichiers puis cliquer sur enregister
5. voila c'est fait double cliquer le fichier resetlivebox.pl pour lancer le script (le reset prend 4-5 secondes et se ferme à la fin )
6. vous avez changé d'ip  




#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
use LWP::UserAgent;
use HTTP::Request::Common;

#######Base Variables#######
my $ua = LWP::UserAgent->new;
my $req, $sid, $js_nonce, $js_sid, $temp1, $challenge, $HA1, $HA2;

#######Configuration########
my $login = "votre identifiant de connexion";
my $password = "votre mot de passe connexion";
my $web_password = "votre mot de passe web generalement (admin)";

#A few pre computed variables#
$HA1 = md5_hex("admin:Livebox2:".$web_password);
$HA2 = md5_hex("GET:administration.html");


#####Getting session ID#####
$req=HTTP::Request->new(GET => "http://192.168.1.1/hnm/standard/rs/html/internetconfig....");
($ua->request($req)->as_string)=~/SID=([0-9a-z]*)/&&($sid=$1);
print "SID: $sid \n";


#Getting identification page#
$req = HTTP::Request->new(GET => "http://192.168.1.1/hnm/standard/rs/html/administration....$sid");
$_=$ua->request($req)->as_string;


#######Extraction info#######
/var js_nonce = .([0-9:a-z]*).;/si&&($js_nonce=$1);
/var js_qop = .([0-9:a-z]*).;/si&&($js_qop=$1);
/var js_SID = .([0-9:a-z]*).;/si&&($js_sid=$1);
/js_nonce[ +]*.([a-z0-9:]*).[ +]*js_qop/si&&($temp1=$1);
/frm_challenge" value="([a-z0-9:]*)"/si&&($challenge=$1);
my $pass_hash = md5_hex( $HA1.":".$js_nonce.$temp1.$js_qop.":".$HA2) ;

########Identifying########
$ua->request(POST "http://192.168.1.1/hnm/standard/rs/html/administration....$sid", [ frm_challenge => "$challenge", frm_password_hash => "$pass_hash", frm_username => "admin", frm_password => "" ] );

########Resetting##########
$ua->request(POST "http://192.168.1.1/hnm/standard/rs/html/internetconfig....$sid", [ frm_action => "reset", frm_login => $login, frm_passwd => $password ] );