1 files changed, 11 insertions, 0 deletions
diff --git a/lib/AdminPanel/Shared/Users.pm b/lib/AdminPanel/Shared/Users.pm
index 7745639..411f942 100644
--- a/lib/AdminPanel/Shared/Users.pm
+++ b/lib/AdminPanel/Shared/Users.pm
@@ -3,6 +3,8 @@ package AdminPanel::Shared::Users;
 use diagnostics;
 use strict;
 
+use Data::Password::Meter;
+
 #-######################################################################################
 #- misc imports
 #-######################################################################################
@@ -21,6 +23,7 @@ our @EXPORT = qw(
                 valid_groupname
                 GetFaceIcon
                 Add2UsersGroup
+                strongPassword
                 );
 
 sub facesdir() {
@@ -123,4 +126,12 @@ sub Add2UsersGroup {
 }
 
 
+sub strongPassword {
+    my $passwd = shift;
+    my $pwdm = Data::Password::Meter->new();
+
+    # Check a password
+    return $pwdm->strong($passwd);
+}
+
 1;