Changeset 1254 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad

Timestamp:

09/29/14 12:17:23 (10 years ago)

Author:

nanardon

Message:

set a random and long password to ensure windows account are not usable

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm

@@ -144 +144 @@
     $entry->replace(accountExpires => '9223372036854775807'); # TODO hardcoded, burk
     $entry->replace(userPrincipalName => "$id\@" . $base->ad_domain);
+
+    {
+        my $charmap = Unicode::Map8->new('latin1')  or  die;
+        my $clear_pass = LATMOS::Accounts::Utils::genpassword(lenght => 20, nonalpha => 1);
+        my $newUniPW = $charmap->tou('"'.$clear_pass.'"')->byteswap()->utf16();
+        $entry->replace(unicodePwd => $newUniPW);
+    }
+
     my %delayed;
     $data{$class->_key_attribute($base)} = $id;