From 681f9e258e63cb56e4f60d1d4723174c8c8c26c0 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Tue, 3 Jun 2008 11:01:20 +0000
Subject: [PATCH] improve

---
 pwdmake/pwdmake | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pwdmake/pwdmake b/pwdmake/pwdmake
index 3a157d2..bf7e51d 100755
--- a/pwdmake/pwdmake
+++ b/pwdmake/pwdmake
@@ -1,6 +1,8 @@
 #!/usr/bin/perl -w
 
-@chars=( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
+# Geen I L O i l o 0 1
+
+@chars=( "A" .. "H", "J", "K", "M", "N", "P" .. "Z", "a" .. "h", "j", "k", "m", "n", "p" .. "z", 2 .. 9, qw(! @ $ % ^ & *) );
 foreach ( 1 .. 8 ) {
 	$passwd = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
 	print "$passwd\n";