summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--sample/openssl/gen_csr.rb7
2 files changed, 9 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 2a92d69d9e..10e26b5d85 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Nov 5 23:49:45 2003 NAKAMURA, Hiroshi <nahi@ruby-lang.org>
+
+ * sample/openssl/gen_csr.rb: there (at least) is a CA which does not
+ accept DN in UTF8STRING format. it's a sample.
+
Wed Nov 5 22:55:16 2003 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* configure.in, eval.c, signal.c: : add '--with-pthread-ext'
diff --git a/sample/openssl/gen_csr.rb b/sample/openssl/gen_csr.rb
index c22073b9b9..5d6a6542ab 100644
--- a/sample/openssl/gen_csr.rb
+++ b/sample/openssl/gen_csr.rb
@@ -25,11 +25,11 @@ $stdout.sync = true
name_ary = name_str.scan(/\s*([^\/,]+)\s*/).collect { |i| i[0].split("=") }
p name_ary
-name = X509::Name.new(name_ary)
+name = X509::Name.new(name_ary, OpenSSL::ASN1::PRINTABLESTRING)
keypair = nil
if keypair_file
- keypair = PKey::RSA.new(File.read(keypair_file))
+ keypair = PKey::RSA.new(File.open(keypair_file).read)
else
keypair = PKey::RSA.new(1024) { putc "." }
puts
@@ -42,9 +42,10 @@ end
puts "Generating CSR for #{name_ary.inspect}"
req = X509::Request.new
+req.version = 0
req.subject = name
req.public_key = keypair.public_key
-req.sign(keypair, Digest::SHA1.new)
+req.sign(keypair, Digest::MD5.new)
puts "Writing #{csrout}..."
File.open(csrout, "w") do |f|