From b3ac23bb9960207194de901275f33a72b0779690 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Isma=C3=ABl=20Bouya?= <ismael.bouya@normalesup.org>
Date: Fri, 19 Oct 2018 16:12:50 +0200
Subject: Add ldap ssha script

---
 modules/base_installation/files/scripts/ldap_ssha | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 modules/base_installation/files/scripts/ldap_ssha

(limited to 'modules/base_installation')

diff --git a/modules/base_installation/files/scripts/ldap_ssha b/modules/base_installation/files/scripts/ldap_ssha
new file mode 100755
index 0000000..cdbea1b
--- /dev/null
+++ b/modules/base_installation/files/scripts/ldap_ssha
@@ -0,0 +1,13 @@
+#! /usr/bin/perl
+use strict;
+use Digest::SHA qw(sha1);
+use MIME::Base64;
+
+print 'Password: ';
+system ( "stty -echo");
+my $secret = <STDIN>;
+chomp $secret;
+my $salt;
+$salt .= ('.','/',0..9,'A'..'Z','a'..'z')[rand 64] foreach(1..8);
+
+print "\nHashed string for LDAP:\nuserPassword: {SSHA}" . encode_base64(sha1($secret . $salt) . $salt, '') . "\n";
-- 
cgit v1.2.3