diff options
Diffstat (limited to 'ruby_1_8_6/sample/openssl/gen_csr.rb')
-rw-r--r-- | ruby_1_8_6/sample/openssl/gen_csr.rb | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/ruby_1_8_6/sample/openssl/gen_csr.rb b/ruby_1_8_6/sample/openssl/gen_csr.rb new file mode 100644 index 0000000000..5858acd9f2 --- /dev/null +++ b/ruby_1_8_6/sample/openssl/gen_csr.rb @@ -0,0 +1,50 @@ +#!/usr/bin/env ruby + +require 'getopts' +require 'openssl' + +include OpenSSL + +def usage + myname = File::basename($0) + $stderr.puts <<EOS +Usage: #{myname} [--key keypair_file] name + name ... ex. /C=JP/O=RRR/OU=CA/CN=NaHi/emailAddress=nahi@example.org +EOS + exit +end + +getopts nil, "key:", "csrout:", "keyout:" +keypair_file = $OPT_key +csrout = $OPT_csrout || "csr.pem" +keyout = $OPT_keyout || "keypair.pem" + +$stdout.sync = true +name_str = ARGV.shift or usage() +p name_str +name = X509::Name.parse(name_str) + +keypair = nil +if keypair_file + keypair = PKey::RSA.new(File.open(keypair_file).read) +else + keypair = PKey::RSA.new(1024) { putc "." } + puts + puts "Writing #{keyout}..." + File.open(keyout, "w", 0400) do |f| + f << keypair.to_pem + end +end + +puts "Generating CSR for #{name_str}" + +req = X509::Request.new +req.version = 0 +req.subject = name +req.public_key = keypair.public_key +req.sign(keypair, Digest::MD5.new) + +puts "Writing #{csrout}..." +File.open(csrout, "w") do |f| + f << req.to_pem +end |