From 7731832751ab9f3c6ddeb66f186d3d7fa1934a6d Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 13:11:40 +0200 Subject: Adding upstream version 2.4.57+dfsg. Signed-off-by: Daniel Baumann --- contrib/slapd-modules/passwd/apr1-atol.pl | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 contrib/slapd-modules/passwd/apr1-atol.pl (limited to 'contrib/slapd-modules/passwd/apr1-atol.pl') diff --git a/contrib/slapd-modules/passwd/apr1-atol.pl b/contrib/slapd-modules/passwd/apr1-atol.pl new file mode 100644 index 0000000..d6eaee7 --- /dev/null +++ b/contrib/slapd-modules/passwd/apr1-atol.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl -w + +# Apache $apr1$ to OpenLDAP {APR1} hash converter +# (C) 2011 Devin J. Pohly +# You may use this code freely. It would be nice to be credited. + +use MIME::Base64; + +while (<>) { + ($user, $hash) = split(/:/, $_); + unless ($hash =~ /^\$apr1\$/) { + print STDERR "Not an Apache MD5 hash\n"; + exit 1; + } + + chomp $hash; + ($_,$_,$salt,$hash) = split(/\$/, $hash); + + $hash =~ tr|./0-9A-Za-z|A-Za-z0-9+/|; + $hash .= "AA"; + $hash =~ s/(.)(.)(.)(.)/$4$3$2$1/gs; + $hash = decode_base64($hash); + $hash =~ s/(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)..(.)/$1$4$7$10$13$15$2$5$8$11$14$16$3$6$9$12/s; + $hash .= $salt; + $hash = encode_base64($hash); + chop $hash; + + print "$user:{APR1}$hash\n"; +} \ No newline at end of file -- cgit v1.2.3