Code

Simplified hash generation
authorcajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Tue, 30 Jan 2007 04:12:49 +0000 (04:12 +0000)
committercajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Tue, 30 Jan 2007 04:12:49 +0000 (04:12 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@5651 594d385d-05f5-0310-b6e9-bd551577e9d8

bin/mkntpasswd

index 8d71a61e718f6df4ed9960bb4024a12a68d03203..1749958298cb52c14c5c888e6cd8d9b9484606ec 100755 (executable)
@@ -5,6 +5,6 @@ if [ $# -ne 1 ]; then
 fi
 
 # Render hash using perl
-perl -MCrypt::SmbHash -e "ntlmgen \"\$ARGV[0]\", \$lm, \$nt; print \"\${lm}:\${nt}\n\";" $1 
+perl -MCrypt::SmbHash -e "print join(q[:], ntlmgen $ARGV[0]), $/;"
 
 exit 0