verschlüssleung mit perl

[Beat Strasser]

Hallo

mit crypt() kann ich in perl verschlüsselen. aber wie kann ich wieder entschlüsseln (incl. syntax)?

hoffentlich kann mir jemand helfen!

Tja, eine decrypt-Funktion kann ich Dir nicht sagen, da es sie nicht gibt! Das ist der Witz an crypt(). Man darf da - aus Sicherheitsgründen - nichts entschlüsseln können.

crypt() braucht man vor allem, um Passwörter verschlüsselt abzuspeichern.
Wenn du nun überprüfen willst, ob das vom User eingegebene Passwort mit dem in der Passwort-Datei übereinstimmt, musst du es einfach verschlüsseln und dann die *gecrypteten* Strings miteinander vergleichen:

# $in{'pwd'} = Passwort vom User eingegeben
  # $pwd       = Passwort aus Passwort-Datei
  if($pwd ne crypt($in{'pwd'}, substr($pwd, 0, 2))) {
    print "Falsches Passwort!\n";
  }

Gruss,
Beat