[vhffs-dev] [888] good bye Vhffs::Misc::Salt and Vhffs::Misc::Listengine

[subversion@xxxxxxxxxxxxx]

Revision: 888
Author:   gradator
Date:     2007-09-09 04:42:31 +0000 (Sun, 09 Sep 2007)

Log Message:
-----------
good bye Vhffs::Misc::Salt and Vhffs::Misc::Listengine

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Functions.pm
    trunk/vhffs-api/src/Vhffs/Makefile.am

Removed Paths:
-------------
    trunk/vhffs-api/src/Vhffs/Misc/Listengine.pm
    trunk/vhffs-api/src/Vhffs/Misc/Salt.pm


Modified: trunk/vhffs-api/src/Vhffs/Functions.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Functions.pm	2007-09-09 04:35:50 UTC (rev 887)
+++ trunk/vhffs-api/src/Vhffs/Functions.pm	2007-09-09 04:42:31 UTC (rev 888)
@@ -391,14 +391,12 @@
 
 sub password_encrypt
 {
-    #use Digest::HMAC_MD5;
     use Crypt::PasswdMD5;
-    use Vhffs::Misc::Salt;
 
     my $password = shift;
 
-    my $cryptedpassword = unix_md5_crypt($password, salt());
-    return $cryptedpassword;
+    my $salt = join "", ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[map {rand 64} (1..8)];
+    return unix_md5_crypt($password, $salt);
 }
 
 

Modified: trunk/vhffs-api/src/Vhffs/Makefile.am
===================================================================
--- trunk/vhffs-api/src/Vhffs/Makefile.am	2007-09-09 04:35:50 UTC (rev 887)
+++ trunk/vhffs-api/src/Vhffs/Makefile.am	2007-09-09 04:42:31 UTC (rev 888)
@@ -23,9 +23,7 @@
 	Listengine/Intl.pm \
 	Listengine/Listengine.pm \
 	Listengine/Mail.pm \
-	Misc/Listengine.pm \
 	Misc/Mailings.pm \
-	Misc/Salt.pm \
 	Panel/Admin.pm \
 	Panel/Avatar.pm \
 	Panel/Commons.pm \

Deleted: trunk/vhffs-api/src/Vhffs/Misc/Listengine.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Misc/Listengine.pm	2007-09-09 04:35:50 UTC (rev 887)
+++ trunk/vhffs-api/src/Vhffs/Misc/Listengine.pm	2007-09-09 04:42:31 UTC (rev 888)
@@ -1,38 +0,0 @@
-#!%PERL%
-# Copyright (c) vhffs project and its contributors
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions 
-# are met:
-#
-# 1. Redistributions of source code must retain the above copyright 
-#   notice, this list of conditions and the following disclaimer.
-#2. Redistributions in binary form must reproduce the above copyright
-#   notice, this list of conditions and the following disclaimer in 
-#   the documentation and/or other materials provided with the 
-#   distribution.
-#3. Neither the name of vhffs nor the names of its contributors 
-#   may be used to endorse or promote products derived from this 
-#   software without specific prior written permission.
-#
-#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
-#"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
-#LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
-#FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 
-#COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
-#INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
-#BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-#LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 
-#CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 
-# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
-# POSSIBILITY OF SUCH DAMAGE.
-
-
-
-package Vhffs::Misc::Listengine;
-
-
-
-1;

Deleted: trunk/vhffs-api/src/Vhffs/Misc/Salt.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Misc/Salt.pm	2007-09-09 04:35:50 UTC (rev 887)
+++ trunk/vhffs-api/src/Vhffs/Misc/Salt.pm	2007-09-09 04:42:31 UTC (rev 888)
@@ -1,56 +0,0 @@
-#!%PERL% -w
-# Copyright (c) vhffs project and its contributors
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions 
-# are met:
-#
-# 1. Redistributions of source code must retain the above copyright 
-#   notice, this list of conditions and the following disclaimer.
-#2. Redistributions in binary form must reproduce the above copyright
-#   notice, this list of conditions and the following disclaimer in 
-#   the documentation and/or other materials provided with the 
-#   distribution.
-#3. Neither the name of vhffs nor the names of its contributors 
-#   may be used to endorse or promote products derived from this 
-#   software without specific prior written permission.
-#
-#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
-#"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
-#LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
-#FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 
-#COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
-#INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
-#BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-#LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 
-#CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 
-# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
-# POSSIBILITY OF SUCH DAMAGE.
-
-
-package Vhffs::Misc::Salt;
-use strict;
-
-BEGIN {
-	use Exporter ();
-	use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-	$VERSION     = 0.01;
-	@ISA         = qw (Exporter);
-	#Give a hoot don't pollute, do not export more than needed by default
-	@EXPORT      = qw (salt);
-	@EXPORT_OK   = qw (salt);
-	%EXPORT_TAGS = ();
-}
-
-sub salt
-{
-        my $length = 8;
-	$length = $_[0] if exists $_[0];
-
-	return join "", ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[map {rand 64} (1..$length)];
-}
-
-
-1;