Se connecter / S'enregistrer
Votre question

Changé d'ip livebox mini sans reboot

Tags :
  • Mot de passe
  • Programmation
Dernière réponse : dans Programmation
26 Décembre 2009 12:13:52

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 ] );


Autres pages sur : change livebox mini reboot

26 Décembre 2009 17:50:55

Moi j'ai un script batch qui fonctionne bien sur livebox sagem uniquement, ton astuce marche sur les différent type de livebox?
Et ton logiciel fonctionne sur vista et seven?
m
0
l
26 Décembre 2009 19:02:22

j'utilise windows vista ce code fonctionne parfaitement pour la mini je l'utilise , par contre le batch ne fonctionne pas pour la mini
m
0
l
9 Mars 2011 00:26:20

salut, je cherche une commande qui force le reboot? En gros, je voudrais créer un script qui teste si un ping vers internet marche et si non, reboot la livebox
merci!
Spot
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS