Thread Abfangen der PW - Eingabe bei Start des SSL - Servers (6 answers)
Opened by YAPD at 2016-04-12 19:39

Linuxer
 2016-04-13 23:57
#184441 #184441
User since
2006-01-27
3766 articles
HausmeisterIn

user image
Ich würde eine benannte Subroutine erstellen, die ein Password via Tk abfragt (Da bist Du ja schon auf dem Weg) und dieses dann per return zurückgibt.

Statt:
Code: (dl )
1
2
SSL_passwd_cb => sub{ my $PW_Identifizierung_Rueckgabe = &PW_Identifizierung( );
print "Rueckgabe : $PW_Identifizierung_Rueckgabe" , "\n"; } ,

würde ich dann
Code: (dl )
SSL_passwd_cb => \&PW_Identifizierung,

schreiben.


Und hier ein vereinfachtes Beispiel mit einer Subroutine, die mit Deinem Tk-Code ein Passwort abfragt und dieses zurück liefert.

more (8.9kb):

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#! /usr/bin/env perl
use strict;
use warnings;
use 5.012;
use Tk;

sub ask_with_Tk {
    my $password;

    my $mw = MainWindow->new( -title => 'Enter Password' );
    $mw->geometry( "280x140" );

    my $entry = $mw->Entry(
        -width      => 32,
        -relief     => 'sunken',
        -bd         => 2,
        -justify    => 'center',
        -show       => '*',
    )->place(
        -x => 41,
        -y => 65,
    );

    my $btn = $mw->Button(
        -text       => 'OK',
        -width      => 14,
        -command    => sub {
            # Eingabe als Passwort uebernehmen
            $password = $entry->get();
            # Fenster zerstoeren, wir sind fertig
            $mw->destroy;
        },
    )->place(
        -x => 40,
        -y => 95,
    );

    MainLoop();

    # Password nach Fenstertod zurueckgeben
    return $password;
}




my $password = ask_with_Tk();

say "You entered: $password";



__END__

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Abfangen der PW - Eingabe bei Start des SSL - Servers