#!/usr/bin/perl while (($login, $password) = getpwent) { if (crypt ($login, $password) eq $password) { print "$login verwendet unsicheres Paßwort!\n"; } }