diff --git a/good_password/good_password b/good_password/good_password
deleted file mode 100755
index 3309d8c..0000000
--- a/good_password/good_password
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-# This program generates passwords that:
-#
-# * are hard to guess
-# * will be displayed unambigously in any (normal) font
-# * will survive being passed through a bad fax machine
-# * has UPPER lower number and sign
-#
-# Too close: B8 cC g9 kK lI l1 oO O0 pP sS uU vV xX zZ ,. :; `' S5
-# Causes problems in URLs: @/:
-# Causes problems in shell: ! " # $ & ( ) [ ] { } ? | < > \ *
-# SQL uses: % for wildcard
-# Hard to type: ^ ~ ¨ ¤ § ½ æ ø å Æ Ø Å
-# Never 2 same chars next to eachother. (--) is bad
-
-my $pw;
-my @chars=split //, 'abdefhijmnqrtyADEFGHJLMNQRTY23467=+-';
-do { 
-    $pw = "";
-    for (1..12) {
-	do {
-	    # avoid double chars (such as --)
-	    $this = $chars[rand $#chars+1]
-	} while($last eq $this);
-	$last = $this;
-	$pw .= $this;
-    }
-} while (not($pw =~ /[A-Z]/ and
-	     $pw =~ /[a-z]/ and
-	     $pw =~ /[0-9]/ and
-	     $pw =~ /[^a-zA-Z0-9]/));
-
-print "$pw\n";
diff --git a/goodpasswd/goodpasswd b/goodpasswd/goodpasswd
index 3309d8c..e8f68f9 100755
--- a/goodpasswd/goodpasswd
+++ b/goodpasswd/goodpasswd
@@ -9,13 +9,13 @@
 #
 # Too close: B8 cC g9 kK lI l1 oO O0 pP sS uU vV xX zZ ,. :; `' S5
 # Causes problems in URLs: @/:
-# Causes problems in shell: ! " # $ & ( ) [ ] { } ? | < > \ *
+# Causes problems in shell: ! " # $ & ( ) [ ] { } ? | < > \ * =
 # SQL uses: % for wildcard
 # Hard to type: ^ ~ ¨ ¤ § ½ æ ø å Æ Ø Å
 # Never 2 same chars next to eachother. (--) is bad
 
 my $pw;
-my @chars=split //, 'abdefhijmnqrtyADEFGHJLMNQRTY23467=+-';
+my @chars=split //, 'abdefhijmnqrtyADEFGHJLMNQRTY23467+-';
 do { 
     $pw = "";
     for (1..12) {