RSA.new requires a block for callback.

1 files changed, 19 insertions, 4 deletions

diff --git a/test/ssl/svr.rb b/test/ssl/svr.rb
index d844119..10a7d2d 100755
--- a/test/ssl/svr.rb
+++ b/test/ssl/svr.rb
@@ -15,7 +15,17 @@ p [ $OPT_p, $OPT_k, $OPT_c ]
     if $OPT_k
       p rsa = PKey::RSA.new(File.open($OPT_k).read)
     else
-      p rsa = PKey::RSA.new(512)
+      p rsa = PKey::RSA.new(512){|p, n|
+        case p
+        when 0; putc "."  # BN_generate_prime
+        when 1; putc "+"  # BN_generate_prime
+        when 2; putc "*"  # searching good prime, n = #of try,
+                          # but also data from BN_generate_prime
+        when 3; putc "\n" # found good prime, n==0 - p, n==1 - q,
+                          # but also data from BN_generate_prime
+        else;   putc "*"  # BN_generate_prime
+        end
+      }
     end
 
     if $OPT_c
@@ -31,10 +41,15 @@ p [ $OPT_p, $OPT_k, $OPT_c ]
       cert.not_after = Time.now + (365*24*60*60)
       cert.public_key = rsa.public_key
       ef = X509::ExtensionFactory.new(nil,cert)
-      cert.extensions = [ef.create_extension("basicConstraints","CA:FALSE"), ef.create_extension("subjectKeyIdentifier", "hash")]
+      cert.extensions = [
+        ef.create_extension("basicConstraints","CA:FALSE"),
+        ef.create_extension("subjectKeyIdentifier", "hash")
+      ]
       ef.issuer_certificate = cert
-      cert.add_extension ef.create_extension("authorityKeyIdentifier", "keyid:always,issuer:always")
-      cert.add_extension ef.create_extension("nsComment","Generated by OpenSSL for Ruby!")
+      cert.add_extension ef.create_extension("authorityKeyIdentifier",
+                                             "keyid:always,issuer:always")
+      cert.add_extension ef.create_extension("nsComment",
+                                             "Generated by OpenSSL for Ruby!")
       cert.sign(rsa, Digest::SHA1.new)
       puts cert.to_str
     end