JS MD5 Funktion nachbauen (gelöst) (Allgemeines zu Perl)

[thread]19845[/thread]

JS MD5 Funktion nachbauen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+20 replies
bianca

2015-10-12 20:06

User since
2009-09-13
7016 Artikel
BenutzerIn

Guten Abend!
Ich versuche, die Funktion hex_md5() aus dieser Bibliothek in Perl nachzubauen: http://pajhome.org.uk/crypt/md5/

Allerdings verstehe ich meine Testergebnisse nicht:
Wenn ich auf der verlinkten Seite unten bei "Demonstration" in das Input Feld test eingebe und auf "MD5" klicke kommt 098f6bcd4621d373cade4e832627b4f6 raus. Dasselbe Ergebnis erhalte ich mittels Digest::MD5::md5_hex('test') aus dem Modul Digest::MD5.

ABER:
Wenn ich mir ein JS Script mit der o.a. Bibliothek nachbaue erhalte ich mittels hex_md5('test') allerdings den Wert c8059e2ec7419f590e79d7f1b774bfe6. Und das ist auch der Wert, den ich benötige, aber wie kommt man auf diesen Wert?
10 print "Hallo"
20 goto 10
- +7 replies
- Raubtier
  
  2015-10-12 20:32
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Keine Ahnung, was du da machst! Ich habe eben mal die benannte Bibliothek in die Chrome-Console gecopy-pastet und es kommt raus (Überraschung):
  
  Quote
  hex_md5("test")
  "098f6bcd4621d373cade4e832627b4f6"
  
  Du machst irgendwas falsch.
  
  Edit: ah, ich kann deinen Hash reproduzieren, es liegt an der Kodierung:
  
  Code: (dl )
  
  1 2
  
  % perl -wE'use Digest::MD5 qw(md5_hex); say md5_hex("t\x00e\x00s\x00t\x00")' c8059e2ec7419f590e79d7f1b774bfe6
  
  Last edited: 2015-10-12 20:37:00 +0200 (CEST)
  - +6 replies
  - bianca
    
    2015-10-13 08:49
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2015-10-12T18:32:50 Raubtier
    Edit: ah, ich kann deinen Hash reproduzieren, es liegt an der Kodierung:
    
    Das verstehe ich nicht. Was genau passiert da? Wieso ein \x00 am Ende? Und wieso ist das erste t nicht auch ein \x00t ?
    10 print "Hallo"
    20 goto 10
    - +5 replies
    - Raubtier
      
      2015-10-13 09:14
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      2015-10-13T06:49:40 bianca
      Das verstehe ich nicht. Was genau passiert da? Wieso ein \x00 am Ende?
      
      UTF-16. Hinter jedem A-Za-z ein \x00.
      
      Quote
      Und wieso ist das erste t nicht auch ein \x00t ?
      
      Weil erst der Buchstabe, dann das \x00.
      - +4 replies
      - bianca
        
        2015-10-13 18:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Und was kann ich mit diesem Wissen anfangen?
        Das Script ist in ANSI geschrieben.
        Ich habe es so versucht: Digest::MD5::md5_hex(encode('UTF-16',decode('ISO-8859-15','test'))). Kommt leider auch nicht raus, was ich brauche.
        Wie muss ich das codieren/decodieren?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        Raubtier
        
        2015-10-14 00:35
        
        User since
        2012-05-04
        1083 Artikel
        BenutzerIn
        
        Das liegt am BOM. Du musst nach UTF-16LE konvertieren.
        
        Edit: noch der perldoc dazu: Encode::Unicode. Schau mal auf die dortige Tabelle, dort siehst du, dass bei UTF-16 in der BOM-Spalte ein "Y" steht, für explizit angegebene Endianness aber ein "N" zu finden ist.
        Last edited: 2015-10-14 00:42:26 +0200 (CEST)
        
        +2 replies
        
        bianca
        
        2015-10-14 10:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Au weia. Das ist für mich ein Buch mit sieben Siegeln. Trotzdem Danke.
        10 print "Hallo"
        20 goto 10
        
        Raubtier
        
        2015-10-14 12:47
        
        User since
        2012-05-04
        1083 Artikel
        BenutzerIn
        
        Also eigentlich ganz einfach:
        
        Aus "test" wird
        UTF16-LE: "t\x00e\x00s\x00t\x00"
        UTF16-BE: "\x00t\x00t\x00t\x00t"
        Die Reihenfolge von \x00 und dem Buchstaben ist also jeweils umgedreht.
        
        Und bei "nur" UTF-16 kommt eben eines von LE/BE, aber es wird ganz am Anfang noch durch zwei Zeichen \xFF und \xFE markiert, welche Reihenfolge denn nun tatsächlich folgt.
        
        Siehe auch https://de.wikipedia.org/wiki/Byte_Order_Mark
- +4 replies
- Muffi
  
  2015-10-13 07:41
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Ich kenn dein Problem nicht, aber meist ist Verschlüsselung und Co. mit JS im Browser (falls es da ist) zu betreiben der falsche Ansatz.
  Last edited: 2015-10-13 08:30:18 +0200 (CEST)
  1 + 1 = 10
  - +3 replies
  - bianca
    
    2015-10-13 08:48
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das Browser Login der Fritzbox verschlüsselt auf diese Weise das Passwort, damit das nicht im Klartext durch die Leitung geht. Und ich möchte das mit LWP::UserAgent nachbauen, damit ich den allnächtlichen Reconnect gezielt auslösen kann.
    
    Die in der Fritzbox dafür vorhandene Option "Zwangstrennung durch den Anbieter verschieben in die Zeit zwischen" ist mir zeitlich zu ungenau. Daher möchte ich das nicht mehr zufällig sondern gezielt machen. Und den Telnet Server auf der Fritzbox kann man laut http://www.wehavemorefun.de/fritzbox/Starten_von_t... nur noch mit einem anderen Firmware Image starten. Ich möchte aber gern das Standard AVM Image drauf lassen.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Muffi
      
      2015-10-13 08:57
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Die Original Fritzbox macht sowas?
      Erstaunlich.
      Von SSL haben die noch nix gehört?
      
      Vielleicht steckt da noch mehr dahinter, aber den MD5 statt dem Passwort auf einer unverschlüsselten Seite zu verschicken bringt rein garnix.
      Weil der MD5 dann zum Passwort wird. Und, da kein SSL auch wunderbar mitlesbar ist.
      1 + 1 = 10
      - bianca
        
        2015-10-13 17:59
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2015-10-13T06:57:23 Muffi
        Die Original Fritzbox macht sowas?
        
        Ja
        
        2015-10-13T06:57:23 Muffi
        Vielleicht steckt da noch mehr dahinter
        
        Vielleicht, jetzt muss ich erstmal diese Hürde überwinden.
        10 print "Hallo"
        20 goto 10
- +4 replies
- GwenDragon
  
  2015-10-13 13:45
  
  User since
  2005-01-17
  14875 Artikel
  Admin1
  
  Warum baust du das nach? Zum Üben des Programmierens?
  
  Ansonsten gibt es doch eine Digest::Perl::MD5, die nru aus reinem Perl besteht.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - bianca
    
    2015-10-13 17:57
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2015-10-13T11:45:52 GwenDragon
    Warum baust du das nach? Zum Üben des Programmierens?
    
    Nee, weil ich den Reconnect zeitlich steuern und nicht vom Zufall der Box abhängig sein will.
    
    2015-10-13T11:45:52 GwenDragon
    Ansonsten gibt es doch eine Digest::Perl::MD5, die nru aus reinem Perl besteht.
    
    Das liefert bei mir das selbe Ergebnis, das ich nicht haben möchte. Inwiefern hast du das erwähnt?
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - jan
      
      2015-10-13 19:00
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      wenn ich das richtig erinnere, nimm:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      sub myhex_md5 { my $string = shift; my @chars = split(//, $string); return md5_hex(join("\0", @chars) . "\0"); }
      
      Deren lib ist komisch.
      - bianca
        
        2015-10-14 10:26
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Klappt, danke dir!
        10 print "Hallo"
        20 goto 10
- bianca
  
  2015-10-22 16:42
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Hier mal das ganze Script, womit die Frage zu tun hat. Falls das mal jemand gebrauchen kann.
  Es geht um den DSL Reconnect der FRITZ!Box per Screenscraping mit Perl nebst WWW::Mechanize und Digest::MD5
  Warum braucht man das? Wenn man das zeitlich präziser steuern möchte, als die FRITZ!Box das selbst täte.
  more (64.3kb)
  10 print "Hallo"
  20 goto 10
- +3 replies
- bianca
  
  2016-02-18 07:00
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Zusätzlich zum Reconnect habe ich jetzt auch noch dies hier ergänzt:
  
  Erstellung einer Systemsicherung für die FRITZ!Box mit OS 6.51
  Erstellung einer Systemsicherung für den FRITZ!WLAN Repeater 1750E mit OS 6.32
  Erstellung einer XML aus dem Telefonbuch (auch als Backup anzusehen)
  
  Wenn jemand Interesse hat und Hilfe braucht einfach melden.
  
  Müsste man fast ein WebService::FritzBox2 draus machen :)
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - renee
    
    2016-02-18 09:17
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Klingt doch interessant...
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - bianca
      
      2016-02-18 10:19
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ja schon aber ich habe OO-Modul schreiben seit damals nie weiter verfolgt. Kamen immer andere Sachen dazwischen.
      10 print "Hallo"
      20 goto 10

View all threads created 2015-10-12 20:06.