develooper Front page | perl.modules | Postings from September 2001

Request for a userid

From:
Benjamin Kuit
Date:
September 26, 2001 02:52
Subject:
Request for a userid
Message ID:
20010926195213.A22246@thing.it.uts.edu.au.
My name is Benjamin Kuit, I'm a systems administrator of a university
in Sydney Australia.

I've written a perl module which generates password hashes which can
be used in samba's smbpasswd files, which is samba's equivalent of
/etc/passwd. I'd like to contribute this module to CPAN.

It's a port from samba's distribution and written entirely into perl.
This makes a slow process, but it does make available a way for a perl
developer to generate the samba password hashes without calling an 
external program, and has the added benefit of not needing a compiler
to install it.

After some consideration I've called it Crypt::SmbHash. Currently the
module is at version 0.01, because that's what h2xs gave me =).

Example of use:

   # Generate smbpasswd entry
   use Crypt::SmbHash;
   ($login,$uid,$passwd) = @ARGV;
   ntlmgen $passwd, $lm, $nt;
   $flags = "[U          ]";
   $lct = sprintf "%08X",time();
   print "${login}:${uid}:${lm}:${nt}:${flags}:LCT-${lct}\n";

My preferred userid would be "BJKUIT".

Thanks in advance.

Bj

-- 
+-------------------------------+--------------------------------------+
|      Benjamin (Bj) Kuit       |  Building 4, 447                     |
|      Systems Programmer       |  Faculty of Information Technology   |
|      Phone: 02 9514 1841      |  University of Technology, Sydney    |
|      Mobile: 0416 184 972     |  Email: bj@it.uts.edu.au             |
+-------------------------------+--------------------------------------+



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About