WAN-Adresse vom Router ermitteln und auf Mailanfrage versenden (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19468[/thread]

WAN-Adresse vom Router ermitteln und auf Mailanfrage versenden

Tags: perl5 LWP Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+5 replies
adx00356

2015-01-19 14:08

User since
2015-01-18
1 Artikel
BenutzerIn

Hallo Mitstreiter und Monks,

da mir das Thema mit den DYN-DNS-Systemen auf die Dauer etwas zu wieder ist und die freien DYN-DNS-Anbieter auch ständig eine Zertifizierung verlangen suchte ich nach einem sicheren Alternativweg.

Im Grunde wollte ich von meinem Handy eine Mail mit beispielsweise "Get_IP" im subject senden. Der Mailserver meiner Haussteuerung soll zyklisch den Posteingang prüfen und per porcmail das Get_IP auswerten (sprich Script anschieben). Soweit habe ich die Grundlagen verstanden und zusammen. Ich denke die allgemeinen Perl-Gepflogenheiten sollten mir weitestgehend bekannt sein. Bei den Netzwekthemen stehe ich dagegen im Moment etwas auf dem Schlauch und besonders gibt es bei mir Fragen zum Datenverkehr via http: und https:

Nun soll das Perl-Script von meinem Router die Statusseite mit der WAN-Adresse auswerten. Das Parsing der Datei ist dabei auch nicht das eingentliche Problem.

Mich knockt das https-Protokoll der Statusseite des Routers aus.

Benötige ich neben der Module

use LWP 5.64; bzw. LWP::Simple;

für das Auslesen auch noch das Modul crypt:SSleay?

Wie wird es im obigen Zusammenhang eingesetzt oder funktioniert die Nutzung von SSLeay "automatisch", so dass diese Verschlusselung durch die URL-Angabe https://irgendwo/irgendwas.html im UserAgent erkannt wird.

Vielen Dank für eure Gedankengänge und eure Tipps!

VG Andy
Last edited: 2015-01-19 14:18:26 +0100 (CET)
- GwenDragon
  
  2015-01-19 14:22
  
  User since
  2005-01-17
  14754 Artikel
  Admin1
  
  Du brauchst für LWP das Protokoll https.
  
  cpan LWP::Protocol::https
  
  Ansonsten wird es automatisch geladen, wenn du LWP mit dem Protokoll https:// in der URL benutzt.
  Last edited: 2015-01-19 14:24:51 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- murphy
  
  2015-01-19 14:30
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  In der Tat sollte LWP automatisch eine SSL-Verbindung aufbauen, wenn Du ihm eine https-URL übergibst, so sagt es auch die Dokumentation.
  
  Damit SSL-Verbindungen von LWP unterstützt werden, muss, wenn mich nicht alles täuscht, entweder IO::Socket::SSL oder Net::SSL installiert sein, als Nutzer der LWP-API muss man diese Module aber nicht direkt ansteuern.
  
  Da beim Aufbau einer SSL-Verbindung der Server authentifiziert wird, muss ferner die zum Serverzertifikat passende Zertifikatsautorität (CA) der SSL-Bibliothek bekannt sein. Falls das nicht der Fall ist bzw. das Serverzertifikat vielleicht selbstsigniert ist, kann man das passende CA- oder Serverzertifikat mit Hilfe der Methode LWP::UserAgent::ssl_opts an LWP und die darunter liegende SSL-Bibliothek übergeben.
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - Gast adx00356
    
    2015-01-25 16:20
    Hi,
    
    vielen Dank euch beiden!
    
    Habe mich gerade mal dem Thema gewidmet und mit viel nachschlagen in den Foren und Wikis und euren Tipps etwas Code erzeugt.
    
    Wäre euch dankbar, wenn ihr freundlicherweise meine Gedankengänge prüfen und mir einige Verbesserungstipps geben könntet.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
    
    #!/usr/bin/perl # # Der WAN-Reader soll vom Router eine die WAN-Adresse auslesen und auf Anfrage per Mail versenden # # # use strict; use warnings; use IO::Socket::SSL; use LWP::Simple; use LWP::Protocol::https; # use Crypt:SSLeay; my $browser=LWP::UserAgent->new(); my $seite=$browser->get('https://speedport.ip/top_status.stm'); print $seite; print "\n\n 2. Version"; my $seite_code = $seite->decoded_content();
    
    Es ist mir klar, dass mein Code noch einige gravierende Fehler enthällt. und im Moment steht für mich auch noch die Frage:" Wie bekomme ich die Pfadangabe für des Zertifikat gebacken?"
    
    Ich erhalte beim Programmaufruf folgende Meldung.
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    andreas@rpihead ~/Desktop/Scripte/Perl/WAN-Scan $ perl WAN-Reader.pl HTTP::Response=HASH(0x1071758) 2. VersionCan't connect to speedport.ip:443 (certificate verify failed) LWP::Protocol::https::Socket: SSL connect attempt failed error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at /usr/local/share/perl/5.14.2/LWP/Protocol/http.pm line 49.
    
    Das Thema schein wohl doch etwas komplexer als ich annahm und im Moment bin ich noch gewaltig am schwimmen um zuverstehen, was in dem Programm so abläuft? Entschuldigt meine Unwissenheit.
    
    Vielen Dank für eure Tipps!
    
    VG
    Last edited: 2015-01-25 16:46:07 +0100 (CET)
    - GwenDragon
      
      2015-01-25 16:52
      
      User since
      2005-01-17
      14754 Artikel
      Admin1
      
      1. Installiere dir Mozilla::CA
      2. Kopiere die cacert.pem in ein eigenes Verzeichnis
      3. Kopiere dein Router-CA-Zertifikat als PEM-kodierte Datei ans Ende dieser cacert.pem
      4. Setze die Umgebungsvariable HTTPS_CA_FILE am Anfang desProgramms mit
      
      Code (perl): (dl )
      
      $ENV{HTTPS_CA_FILE}='/pfad/auf/cacert.pem';
      
      //EDIT:
      Oder du stellst am Anfang deines Programms die Überprüfung aller Zertifikate ab (würde ich aber aus Sicherheitsgründen unterlassen!):
      
      Code (perl): (dl )
      
      $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
      
      Last edited: 2015-01-26 07:29:12 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-01-19 14:08.