#!/usr/bin/perl

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