From b0b791142b2c13185c0b7f6495ba2dd3f026abfa Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Sat, 26 Apr 2014 11:02:32 +0200
Subject: [PATCH] goodpasswd: difference between US and DK keyboard.

---
 goodpasswd/goodpasswd | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/goodpasswd/goodpasswd b/goodpasswd/goodpasswd
index e8f68f9..0f8b97a 100755
--- a/goodpasswd/goodpasswd
+++ b/goodpasswd/goodpasswd
@@ -7,15 +7,19 @@
 # * 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
+# Too close: B8 cC g9 kK lI l1 oO O0 pP sS uU vV xX zZ Z2 ,. :; `' 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
+#
+# US-kbd: ~!@#$%^&*()_+ [] {} ;'\ :"| < > ,./ <>? 
+# DK-kbd: §!"#¤%&/()=?` å" Å^ æø' ÆØ* < > ,.- ;:_
+# Common:  ! # %                      < > ,.
 
 my $pw;
-my @chars=split //, 'abdefhijmnqrtyADEFGHJLMNQRTY23467+-';
+my @chars=split //, 'abdefhijmnqrtyADEFGHJLMNQRTY3467+-';
 do { 
     $pw = "";
     for (1..12) {