2006-04-24 23:58:14 +02:00
|
|
|
# $Id$
|
|
|
|
#
|
|
|
|
#
|
|
|
|
#----------------------------------------------------------------------------
|
|
|
|
#
|
|
|
|
# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
|
|
|
|
#
|
|
|
|
# Gmail: garbagecat10
|
|
|
|
#
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
|
|
# it under the terms of the GNU General Public License as published by
|
|
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
|
|
# (at your option) any later version.
|
|
|
|
#
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
# GNU General Public License for more details.
|
|
|
|
#
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
|
|
# along with this program; if not, write to the Free Software
|
|
|
|
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|
|
|
#
|
|
|
|
#---------------------------------------------------------------------------
|
|
|
|
#
|
|
|
|
#
|
|
|
|
|
|
|
|
|
|
|
|
module Net
|
2010-02-10 19:13:59 +01:00
|
|
|
class LDAP
|
|
|
|
class Password
|
|
|
|
class << self
|
|
|
|
|
|
|
|
# Generate a password-hash suitable for inclusion in an LDAP attribute.
|
|
|
|
# Pass a hash type (currently supported: :md5 and :sha) and a plaintext
|
|
|
|
# password. This function will return a hashed representation.
|
|
|
|
# STUB: This is here to fulfill the requirements of an RFC, which one?
|
|
|
|
# TODO, gotta do salted-sha and (maybe) salted-md5.
|
|
|
|
# Should we provide sha1 as a synonym for sha1? I vote no because then
|
|
|
|
# should you also provide ssha1 for symmetry?
|
|
|
|
def generate( type, str )
|
|
|
|
digest, digest_name = case type
|
|
|
|
when :md5
|
|
|
|
[Digest::MD5.new, 'MD5']
|
|
|
|
when :sha
|
2010-02-12 14:39:57 +01:00
|
|
|
[Digest::SHA1.new, 'SHA']
|
2010-02-10 19:13:59 +01:00
|
|
|
# when ssha
|
|
|
|
else
|
|
|
|
raise Net::LDAP::LdapError.new( "unsupported password-hash type (#{type})" )
|
|
|
|
end
|
|
|
|
|
|
|
|
digest << str.to_s
|
|
|
|
return "{#{digest_name}}#{[digest.digest].pack('m').chomp }"
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
end
|
2006-04-24 23:58:14 +02:00
|
|
|
end
|
2010-02-10 19:13:59 +01:00
|
|
|
end
|
2006-04-24 23:58:14 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
|