Thread Secure login (https + Zertifikat) mit Perl (5 answers)
Opened by _Sietsch_ at 2007-10-13 15:37

_Sietsch_
 2007-10-13 15:37
#100782 #100782
User since
2005-05-15
26 articles
BenutzerIn
[default_avatar]
Moin,

ich möchte ein Skript schreiben, dass sich auf einer Seite einloggt, die über https läuft und Zertifikate verwendet.
Dazu habe ich auch schon Code, bekomme jedoch immer die Nachricht, mein Benutzername oder Passwort sei falsch. Die Daten sind aber auf jeden Fall richtig, denn wenn ich die Daten aus dem Skript kopiere und in einem Browser in die entsprechenden Felder eintrage, klappt der login.

Hier dir gekürzte HTML-Form der Seite ' https://meineseite.de/admin ':
Code:
Code: (dl )
1
2
3
4
5
6
<form action="/admin/index.php?action=login" method="post" name="action"> 
<input type="hidden" name="ADMIN" value="f23af307ea00b284fb9e74c4cbabfbdf" />
<input type="text" name="username" size="12" value="">
<input type="password" name="password" size="12">
<input type="submit" name="login" value="Login">
</form>


Hier mein Perl Code:
Code:
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
use WWW::Mechanize; 
use LWP::Debug qw(+); 

$username = "xxx"; 
$password = "xxx"; 

my $mech = WWW::Mechanize->new(); 

   $mech->cookie_jar(HTTP::Cookies->new()); 
   $mech->get( "https://meineSeite.de/admin" ); 
    
   #Get ADMIN-ID 
   $mech->content() =~ /name=\"ADMIN\" value=\"([^\"]+)/g; 
   $hiddenField = $1; 
       
   #Fill form 
   $mech->submit_form( 
                 form_name => "action", 
                   fields      => { 
                     ADMIN => $hiddenField, 
                     username   => $username, 
                     password => $password}, 
                   button => 'login'); 

    #Print site            
   print $mech->content(); 
 



Mein erster Gedanke war 'Vielleicht werde ich weitergeleitet!?'. Diese Möglichkeit habe ich dann aber getestet; das ist nicht der Fall.

Hier noch die Ergebnise von 'LWP::Debug qw(+)':
Code:
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
25
26
27
28
29
30
31
32
33
34
LWP::UserAgent::new: () 
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking <<URL>> for cookies
LWP::UserAgent::send_request: GET https://meineSeite/admin
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 242 bytes
LWP::UserAgent::request: Simple response: Moved Permanently
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking <<URL>> for cookies
LWP::UserAgent::send_request: GET https://meineSeite/admin
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 4096 bytes
LWP::Protocol::collect: read 965 bytes
HTTP::Cookies::extract_cookies: Set cookie ADMIN => 829052f0173388362a649d8fe980081b
LWP::UserAgent::request: Simple response: OK
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking <<URL>> for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie ADMIN=829052f0173388362a649d8fe980081b
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking <<URL>> for cookies
LWP::UserAgent::send_request: POST https://meineSeite/admin/index.php?action=login
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 238 bytes
LWP::Protocol::collect: read 540 bytes
LWP::Protocol::collect: read 2348 bytes
LWP::Protocol::collect: read 219 bytes
LWP::Protocol::collect: read 419 bytes
LWP::Protocol::collect: read 160 bytes
LWP::Protocol::collect: read 1122 bytes
LWP::UserAgent::request: Simple response: OK

View full thread Secure login (https + Zertifikat) mit Perl