/usr/share/doc/ruby1.8-examples/examples/openssl/gen_csr.rb is in ruby1.8-examples 1.8.7.352-2ubuntu1.6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | #!/usr/bin/ruby1.8
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
|