2003-07-23 12:12:24 -04:00
|
|
|
#!/usr/bin/env ruby
|
|
|
|
|
|
|
|
require 'socket'
|
|
|
|
require 'openssl'
|
2007-12-24 02:31:23 -05:00
|
|
|
require 'optparse'
|
2003-07-23 12:12:24 -04:00
|
|
|
|
2007-12-24 02:31:23 -05:00
|
|
|
options = ARGV.getopts("p:c:k:C:")
|
2003-07-23 12:12:24 -04:00
|
|
|
|
2007-12-24 02:31:23 -05:00
|
|
|
port = options["p"] || "2000"
|
|
|
|
cert_file = options["c"]
|
|
|
|
key_file = options["k"]
|
|
|
|
ca_path = options["C"]
|
2003-07-23 12:12:24 -04:00
|
|
|
|
|
|
|
if cert_file && key_file
|
|
|
|
cert = OpenSSL::X509::Certificate.new(File::read(cert_file))
|
|
|
|
key = OpenSSL::PKey::RSA.new(File::read(key_file))
|
|
|
|
else
|
|
|
|
key = OpenSSL::PKey::RSA.new(512){ print "." }
|
|
|
|
puts
|
|
|
|
cert = OpenSSL::X509::Certificate.new
|
|
|
|
cert.version = 2
|
|
|
|
cert.serial = 0
|
|
|
|
name = OpenSSL::X509::Name.new([["C","JP"],["O","TEST"],["CN","localhost"]])
|
|
|
|
cert.subject = name
|
|
|
|
cert.issuer = name
|
|
|
|
cert.not_before = Time.now
|
|
|
|
cert.not_after = Time.now + 3600
|
|
|
|
cert.public_key = key.public_key
|
|
|
|
ef = OpenSSL::X509::ExtensionFactory.new(nil,cert)
|
|
|
|
cert.extensions = [
|
|
|
|
ef.create_extension("basicConstraints","CA:FALSE"),
|
|
|
|
ef.create_extension("subjectKeyIdentifier","hash"),
|
|
|
|
ef.create_extension("extendedKeyUsage","serverAuth"),
|
|
|
|
ef.create_extension("keyUsage",
|
|
|
|
"keyEncipherment,dataEncipherment,digitalSignature")
|
|
|
|
]
|
|
|
|
ef.issuer_certificate = cert
|
|
|
|
cert.add_extension ef.create_extension("authorityKeyIdentifier",
|
|
|
|
"keyid:always,issuer:always")
|
2020-04-19 11:14:36 -04:00
|
|
|
cert.sign(key, OpenSSL::Digest.new('SHA1'))
|
2003-07-23 12:12:24 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
ctx = OpenSSL::SSL::SSLContext.new()
|
|
|
|
ctx.key = key
|
|
|
|
ctx.cert = cert
|
|
|
|
if ca_path
|
|
|
|
ctx.verify_mode =
|
|
|
|
OpenSSL::SSL::VERIFY_PEER|OpenSSL::SSL::VERIFY_FAIL_IF_NO_PEER_CERT
|
|
|
|
ctx.ca_path = ca_path
|
|
|
|
else
|
|
|
|
$stderr.puts "!!! WARNING: PEER CERTIFICATE WON'T BE VERIFIED !!!"
|
|
|
|
end
|
|
|
|
|
2003-08-18 18:49:48 -04:00
|
|
|
tcps = TCPServer.new(port)
|
|
|
|
ssls = OpenSSL::SSL::SSLServer.new(tcps, ctx)
|
2003-07-23 12:12:24 -04:00
|
|
|
loop do
|
2003-08-18 18:49:48 -04:00
|
|
|
ns = ssls.accept
|
2007-12-24 02:31:23 -05:00
|
|
|
puts "connected from #{ns.peeraddr}"
|
2003-08-18 18:49:48 -04:00
|
|
|
while line = ns.gets
|
2007-12-24 02:31:23 -05:00
|
|
|
puts line.inspect
|
2003-08-18 18:49:48 -04:00
|
|
|
ns.write line
|
2003-07-23 12:12:24 -04:00
|
|
|
end
|
2007-12-24 02:31:23 -05:00
|
|
|
puts "connection closed"
|
2003-07-23 12:12:24 -04:00
|
|
|
ns.close
|
|
|
|
end
|