From: Chip Black Date: Thu, 30 May 2013 08:07:39 +0000 (-0500) Subject: Remove obsolete md5 conversion tool X-Git-Tag: v1.8~3 X-Git-Url: http://git.bytex64.net/?a=commitdiff_plain;h=46f67aa8d208b91dfcd2b5f6ed9e6c739b9f0017;p=blerg.git Remove obsolete md5 conversion tool --- diff --git a/tools/convert_to_md5_passwords.pl b/tools/convert_to_md5_passwords.pl deleted file mode 100644 index a129715..0000000 --- a/tools/convert_to_md5_passwords.pl +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl -# Yes, we were storing passwords in plain text. -use Digest::MD5 qw/md5/; -use strict; - -my $datadir = shift; - -opendir DATA, $datadir; -while (my $user = readdir(DATA)) { - next if $user =~ /^\./; - print "Processing $user\n"; - open P, "$datadir/$user/password"; - my $password =

; - close P; - chomp $password; - - my $md5password = md5($user . $password); - - rename "$datadir/$user/password", "$datadir/$user/password.old"; - open P, ">$datadir/$user/password"; - print P $md5password; - close P; -}