net use und verschlüsseltes Passwort (Allgemeines zu Perl)

[thread]16085[/thread]

net use und verschlüsseltes Passwort

Leser: 23

Articles: hide open all | hide show old branches

+7 replies
Gast Dado

2011-03-17 23:05
Hallo,
ich wollte aus einem Perl-Skript ein
Code (perl): (dl )

net use $UNCpath passw /user:qwertz
ausführen.
Da ich das Passwort nicht im Klartext auf dem System liegen haben wollte, wollte ich es verschlüsseln.

Nun bin ich auf das Modul Crypt::Rijndael gestoßen, aber irgendwie scheint mir das nichts zu bringen, da ich ja das Passwort vorher entschlüsseln muss, und dann könnte ich es ja auch gleich im Klartext speichern.

Besten Dank
Wie geht man so was denn nun an. Ich will das Passwort verschlüsselt speichern und dann mit
Code (perl): (dl )

system net use $UNCpath $cryptpass /user:qwertz
net use mit einem verschlüsselten Passwort aufrufen.
Last edited: 2011-03-17 23:40:01 +0100 (CET)
- +6 replies
- GwenDragon
  
  2011-03-18 08:23
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Soweit ich weiß, verwendet net use keine verschlüsselten Passwörter.
  
  Selbst wenn du das Passwort verschlüsselt speicherst, musst du es vorher entschlüsseln und dann als Klartext an net use übergeben.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - Gast dADO
    
    2011-03-18 11:30
    
    Ok, dann wäre das Ziel, dass ich es auf jeden Fall nicht im Klartext in einer Datei liegen habe.
    Wie gehe ich denn dann mit dem entschlüsseln und verschlüsseln vor? Ich muss mir ja den Schlüssel irgendwie merken.
    Last edited: 2011-03-18 11:52:54 +0100 (CET)
    - Gast wer
      
      2011-03-18 12:40
      
      Das ist mehr verschleiern denn verschlüsseln.
      Das einfachste ist eine Sequenz zu erzeugen und die mit XOR über das Passwort zu schicken.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      #!/usr/bin/perl use strict; use warnings; my $pass="DasIstNur1Test"; my $crypt; srand(1234); $crypt.=chr(ord($_)^int(rand(10))) for(split('',$pass)); print "$pass=>$crypt\n"; $pass=''; srand(1234); $pass.=chr(ord($_)^int(rand(10))) for(split('',$crypt)); print "$crypt=>$pass\n";
      
      Das ist aber für jeden der in den Code schaut zu erkennen.
    - +3 replies
    - bianca
      
      2011-03-18 13:06
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest dADO
      Ok, dann wäre das Ziel, dass ich es auf jeden Fall nicht im Klartext in einer Datei liegen habe.
      
      Wird das ein Automat oder hast du Benutzerinteraktion?
      Bei letzterem könntest du ein Verschlüsselungspasswort abfragen und damit könnte das tatsächliche Passwort entschüsselt werden. Hätte den Vorteil, dass der Benutzer nicht das tatsächliche Passwort zu kennen braucht. Das bringt natürlich nur etwas, wenn die Interaktion nicht lokal auf der gleichen Kiste läuft, weil der Nutzer nach der Verbindungsherstellung ja sonst lokal auf das Laufwerk zugreifen könnte. Dann kann man sich das sparen :)
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - Gast Dado
        
        2011-03-18 17:54
        
        Ne, das ist ein "Automat"
        
        Evtl. ist es besser entsprechende Leseberechtigungen für die Datei zu setzen. Aber Windows und Dateirechte ist ja nicht viel besser als das oben ...
        Last edited: 2011-03-18 17:58:08 +0100 (CET)
        
        bianca
        
        2011-03-18 19:03
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Guest Dado
        Aber Windows und Dateirechte ist ja nicht viel besser als das oben ...
        
        Was genau meinst du damit?
        10 print "Hallo"
        20 goto 10

View all threads created 2011-03-17 23:05.