bash oder PHP übersetzen nach Perl (sonstige Sprachen, auch PHP)

[thread]20668[/thread]

bash oder PHP übersetzen nach Perl

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
bianca

2019-09-26 12:27

User since
2009-09-13
6977 Artikel
BenutzerIn

Hi!

Ich bitte um Hilfe bei der Übersetzung dieses bash oder dieses PHP Scripts nach Perl mit entspr. CPAN-Modul.

Ziel ist, ein Reboot der Box mit Perl anzustoßen (siehe auch Net::Fritz Beispiel reboot), ggf. auch gern mit Net::Fritz::Box oder auch LWP::UserAgent
Wie muss ich das angehen?
10 print "Hallo"
20 goto 10
- +6 replies
- Daxim
  
  2019-09-26 13:30
  User since
  2007-08-01
  114 Artikel
  BenutzerIn
  Den SOAP-Krebs tu ich mir nicht an ohne Gerät zum Testen. Daher, stumpfsinning wie bash:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  use WWW::Mechanize qw(); # I hate 4 arguments LWP::UserAgent::credentials my $uri = 'urn:dslforum-org:service:DeviceConfig:1'; my $action = 'Reboot'; my $m = WWW::Mechanize->new(timeout => 5); $m->credentials($ENV{FRITZUSER} => $ENV{FRITZPW}); $m->add_header(SoapAction => "$uri#$action"); $m->post( "http://$ENV{FRITZIP}:49000/upnp/control/deviceconfig", content => <<"XML" <?xml version='1.0' encoding='utf-8'?> <s:Envelope s:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/' xmlns:s='http://schemas.xmlsoap.org/soap/envelope/' > <s:Body> <u:$action xmlns:u='$uri'></u:$action> </s:Body> </s:Envelope> XML );
  - +5 replies
  - bianca
    
    2019-09-27 22:28
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Danke dir vielmals.
    Leider auch hier genauso wie in msg #190551: es passiert schlicht nichts.
    
    Ich bin überfragt und komme nicht weiter.
    
    Gibt es hier jemand, die/der auch 'ne Fritte hat und mit testen kann?
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - rosti
      
      2019-09-28 08:36
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      Also ich hab da auch son Teil. Abgesehen davon daß SOAP sowieso der letzte Dreck ist den sich irgendwelche Klugscheißer ausgeheckt haben die nicht einmal den CGI/1.1-Standard kennen, ist die Dokumentation des ganzen Webservice von AVM unter aller Sau.
      
      Die Anmeldeprozedur für den Browser ist ebenfalls in dieser Art: Bei 1. Aufruf der fitz.box liefert die HTML-Seite eine JS-Variable mit einem sog. challenge. Das ist zufällig generierter String, aus diesem String plus Passwort wird ein MD5-Hash gemacht der das eigentliche Kennwort zur Anmeldung ist. Das geht an /index.lua. Die Response beinhaltet wiederum eine JS-Variable wo die Session-ID (SID) drinsteht. Für ein Reboot brauchts nur noch die Parameter sid=asdf123.. und reboot=1 als Post an /system/reboot.lua
      
      Der Nachbau mit Perl scheitert leider schon daran dass denen ihr md5.hex() was ganz anderes liefert als Digest::MD5::md5_hex().
      
      Das ist alles einfach nur Pfui.
      
      Herzliches Beileid.
      
      .
      Last edited: 2019-09-28 08:37:56 +0200 (CEST)
      - +2 replies
      - bianca
        
        2019-09-28 09:53
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        Das wäre Screenscraping was du beschreibst. Das läuft auch aber ich muss bei jedem FW Update Kleinigkeiten ändern. Deshalb möchte ich auf TR-064 umschwenken wie hier beschrieben: AVM Schnittstellen
        
        Und weitere Suchen ergaben dann dies: Net::Fritz Beispiel reboot
        
        und dies: ip-phone-forum.de bzw. eben das verlinkte bash.
        
        Das muss doch irgend wie gehen.
        10 print "Hallo"
        20 goto 10
        
        rosti
        
        2019-09-28 10:10
        
        User since
        2011-03-19
        3194 Artikel
        BenutzerIn
        
        Nun, ich vestehe die Dokumentation auch nicht. Aber eine Idee habe ich trotzdem: Das Ding einfach per Funkschaltung aus- und wieder einschalten.
        
        https://metacpan.org/pod/Device::USB::PX1674
        
        MFG
    - MarkusH
      
      2019-09-28 10:08
      
      User since
      2012-04-08
      161 Artikel
      BenutzerIn
      
      Hallo,
      
      ist in der Fritzbox überhaupt der Zugriff für Anwendungen erlaubt?
      Heimnetz => Netzwerkeinstellungen im Bereich Heimnetzfreigaben
      $q =~ /(bb|[^b]{2})/

View all threads created 2019-09-26 12:27.