Frage zu Password und Kodierung (Allgemeines zu Perl)

[thread]18059[/thread]

Frage zu Password und Kodierung

Tags: perl5 MySQL encoding Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
Kuerbis

2013-01-15 20:33
User since
2011-03-20
938 Artikel
BenutzerIn
Hallo,

ich habe für den "test_user" ein Passwort mit nicht ascii Zeichen gesetzt:
Code (perl): (dl )

1 2 3 4

use utf8; ... ... $dbh->do( "SET PASSWORD FOR 'test_user'\@'localhost'=PASSWORD('ööö')" );
Warum kann ich mich mit beiden diesen Passworteingabemethoden einloggen?
Code (perl): (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 25 26

#!/usr/local/bin/perl use warnings; use strict; use 5.10.1; use utf8; use open qw( :encoding(UTF-8) :std ); use DBI; use Term::ReadPassword; my $user = 'test_user'; my $passwd = read_password( 'Enter password: ', 0, 1 ); #print 'Enter password: '; #my $passwd = <>; #chomp $passwd; say "|$passwd|"; my $dbh = DBI->connect( "DBI:mysql:dbname=information_schema", $user, $passwd, { PrintError => 0, RaiseError => 1, AutoCommit => 1, mysql_enable_utf8 => 1, } ) or die DBI->errstr;
Mit normalen <> gibt say

Quote
|ööö|

zurück, mit read_password gibt say

Quote
|Ã¶Ã¶Ã¶|

zurück.
Aber beides Mal funktioniert das Einloggen.
- +8 replies
- topeg
  
  2013-01-16 00:02
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Das eine mal ist es ein perl-Zeichenformat-kodierter String das andere mal ein Binärer String.
  
  Bei <> läuft der Passwortstring durch perls Stringkonvertierung terminal(UTF-8) => decoding => perl(interne Kodierung).
  Bei libterminal passiert das nicht, da Perls IO Layer umgangen werden (C-Code nimmt keine Rücksicht auf Perl). termial(UTF-8) => term_readline_lib(binary string) => perl(binary string)
  
  Bei der Ausgabe wird die Perlkodierung in das Termial-Format konvertiert und die Ausgabe ist korrekt. Das andere mal rührt perl die Ausgabe nicht an (Binary Strings können irgend was sein, also wird es als Bytes behandelt). Das Terminal versucht daraus etwas zu machen. Das Resultat ist die "doppelt" kodierte Ausgabe.
  
  Bei DBI passiert etwas ähnliches. Einmal wird konvertiert das andere mal nicht. Das Ergebnis dort bleibt aber das selbe, nämlich ein UTF-8 binär String, der an die DB übergeben wird.
  
  Es ist fast immer sinnvoll Zeichen Strings in das perl internen Format zu konvertieren, denn es kann sein das nicht immer UTF-8 aus dem Terminal kommt, oder das Ziel UTF-8 nicht versteht. Dazu solltest du die aktuelle Terminal-Kodierung abfragen und benutzen. Die steht in $ENV{LANG} oder $ENV{LC_ALL} oder $ENV{LANGUAGE}
  - +7 replies
  - Kuerbis
    
    2013-01-16 08:31
    
    User since
    2011-03-20
    938 Artikel
    BenutzerIn
    
    Kommt die doppelte Kodierung nicht daher, dass in diesem Fall Perl auch die Binary Strings anrührt?
    - +6 replies
    - topeg
      
      2013-01-16 10:23
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Stimmt. Ich hatte gestern Abend nicht mehr über das use open nachgedacht.
      Bei der Ausgabe auf STDOUT weiß perl das diese UTF-8 sein muss. Also wird der Binäre String nach UTF-8 konvertiert. Dabei kommt es dann zu der doppelten Kodierung.
      - +5 replies
      - Kuerbis
        
        2013-01-16 11:12
        
        User since
        2011-03-20
        938 Artikel
        BenutzerIn
        
        Code (perl): (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 25 26 27 28
        
        #!/usr/bin/env perl use warnings; use strict; use 5.10.1; use utf8; use open qw( :encoding(UTF-8) :std ); use Devel::Peek; use Term::ReadPassword; use Term::ReadLine; my $term = Term::ReadLine->new( 'table_watch', *STDIN, *STDOUT ); $term->ornaments( 0 ); print 'Enter: '; my $a = <>; chomp $a; my $b = read_password( 'Enter: ', 0, 1 ); my $c = $term->readline( 'Enter: ' ); Dump $a; Dump $b; Dump $c; say $a; say $b; say $c;
        
        Jeder von diesen gibt etwas anderes zurück. Könnte es sein, daß das - ohne weitere Nachbearbeitung - bei einer Passworteingabe zu Problemen führen kann?
        
        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
        
        Enter: ü Enter: Enter: ü SV = PV(0x1294100) at 0x13f4118 REFCNT = 1 FLAGS = (PADMY,POK,pPOK,UTF8) PV = 0x141b390 "\303\274"\0 [UTF8 "\x{fc}"] CUR = 2 LEN = 80 SV = PV(0x11f05c0) at 0x13f20c8 REFCNT = 1 FLAGS = (PADMY,POK,pPOK) PV = 0x159f020 "\303\274"\0 CUR = 2 LEN = 16 SV = PV(0x11f0420) at 0x13f1fc0 REFCNT = 1 FLAGS = (PADMY,POK,pPOK) PV = 0x1593100 "\374"\0 CUR = 1 LEN = 16 ü Ã¼ ü
        
        GwenDragon
        
        2013-01-16 11:26
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Ich frage mich, was passiert, wenn jemand in der Shell das Encoding umstellt.
        Wenn du Ärger vermeiden willst, lass nur ASCII-Zeichen zu, das hat doch genügend Varianz (bei 8-12 Zeichen aus 98) bei Passwörtern.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +3 replies
        
        topeg
        
        2013-01-16 12:56
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Bei <> kommt ein Perl-kodierter (UTF-8) String. Das kannst du mit Encode::is_utf8 prüfen.
        Bei read_password hast du ein UTF-8 kodierten Binärstring. (da müsstest du mit Encode::encode('UTF-8', $string) die Konvertierung selbst machen)
        Bei $term->readline hast du einen ISO-8859-1 kodierten Binärstring. (da müsstest du mit Encode::encode('ISO-8859-1', $string) die Konvertierung selbst machen)
        
        Terminal und Shell dürften als Zeichenkodierung ISO-8859-1 haben.
        
        Eingaben erfolgen über die Shell, welche das Terminal zur Ausgabe benutzt. Gelesen wird von der Tastatur. Dafür wird vom System ein Virtuelles Taststurhandle erzeugt, das von der Shell benutzt wird. Die Shell hat in deinem Fall eine ISO-8859-1 Kodierung.
        Wenn du also ein Zeichen in die Tastatur eingibst, wir das Zeichen von der Handware als Scancode an den Kernel übergeben, der macht daraus ein kodiertes Zeichen (das ist ein normierter Scancode) und sendet es an das virtuelle Tastaturhandle weiter, die Shell ließt daraus und wandelt das Zeichen in seine interne Kodierung und gibt es weiter an das darin laufende Programm.
        
        read_password greift direkt auf das Virtuelle Handle zu und wandelt den Scancode in UTF-8. Dieser UTF-8 Binärstring landet in perl. Im Terminal ist ISO-8859-1 als Ausgabe-Kodierung eingestellt. Der Binärstring wird ohne Wandlung durch perl an das Terminal gesendet und als ISO-8859-1 dargestellt. Die folge ist eine kaputte Kodierung.
        
        $term->readline bekommt die Daten von der Shell und die sind ISO-8859-1 kodiert. Das landet so auch in Perl als Binärstring. Bei der Ausgabe fasst perl den Binärstring nicht an und dieser wird vom Terminal korrekt als ISO-8859-1 dargestellt.
        
        Bei <> wird der Einkommende ISO-8859-1 String erst in UTF-8 gewandelt und dann in das interne Perlformat (utf8 Flag wird gesetzt). Bei der Ausgabe läuft es umgekehrt die Ausgabe ist korrekt.
        
        +2 replies
        
        Kuerbis
        
        2013-01-16 18:14
        
        User since
        2011-03-20
        938 Artikel
        BenutzerIn
        
        Ok, wie's ausschaut ist Term::ReadLine für mich nicht wirklich brauchbar.
        Aber alles mag ich dir nicht glauben - einen utf8 kodierten Binärstring nochmals nach utf8 kodieren - ich vermute du meintest dekodieren.
        Und echo $LANG gibt in meinem Terminal de_DE.UTF-8 aus.
        
        Kuerbis
        
        2013-01-16 19:30
        
        User since
        2011-03-20
        938 Artikel
        BenutzerIn
        
        Jetzt habe ich versucht, alles zusammenzutragen, damit alle Dumps etwas ähnliches ausgeben.
        
        Code (perl): (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 25 26 27 28 29 30
        
        #!/usr/bin/env perl use warnings; use strict; use 5.10.1; use utf8; use open qw( :encoding(UTF-8) :std ); use Devel::Peek; use Term::ReadPassword; use Term::ReadLine; my $term = Term::ReadLine->new( 'table_watch', *STDIN, *STDOUT ); $term->ornaments( 0 ); print 'Enter: '; my $a = <>; chomp $a; my $b = read_password( 'Enter: ', 0, 1 ); use Encode qw(decode_utf8); $b = decode_utf8( $b ); my $c = $term->readline( 'Enter: ' ); utf8::upgrade( $c ); Dump $a; Dump $b; Dump $c; say $a; say $b; say $c;
        
        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
        
        Enter: Ð Enter: Enter: Ð SV = PV(0x27a2610) at 0x2902628 REFCNT = 1 FLAGS = (PADMY,POK,pPOK,UTF8) PV = 0x2618c60 "\303\220"\0 [UTF8 "\x{d0}"] CUR = 2 LEN = 80 SV = PV(0x26fead0) at 0x29005d8 REFCNT = 1 FLAGS = (PADMY,POK,pPOK,UTF8) PV = 0x2aae310 "\303\220"\0 [UTF8 "\x{d0}"] CUR = 2 LEN = 16 SV = PV(0x26fe910) at 0x2900548 REFCNT = 1 FLAGS = (PADMY,POK,pPOK,UTF8) PV = 0x2929dd0 "\303\220"\0 [UTF8 "\x{d0}"] CUR = 2 LEN = 16 Ð Ð Ð

View all threads created 2013-01-15 20:33.