Add length restriction on keylen.

Add a little bit more output to help in determining why keys get
rejected.

account/addpubkey.in

@@ -245,6 +245,13 @@ exit 1;
 sub ParseKey($) {
     my ($keyline) = @_;
 
+    # Enforce a reasonable length on the key.
+    if (length($keyline) > 4096) {
+	print "Key is too long!\n";
+	print "Key: $keyline\n";
+	return 0;
+    }
+    
     if ($keyline =~ /^(\d*\s\d*\s[0-9a-zA-Z]*) ([-\w\@\.]*)$/) {
         # Protocol 1
 	$type    = "ssh-rsa1";
@@ -270,8 +277,11 @@ sub ParseKey($) {
     }
 
     if (!defined($key)) {
+	print "Key cannot be parsed!\n";
+	print "Key: $keyline\n";
 	return 0;
     }
+
     # Do not enter into DB if in verify mode.
     if ($verify) {
 	print "Key was good: $type\n";