Gecko [ www.corporacionhdm.com.pe ]

Name	Size	Permission	Date
httpauth	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
httpservlet	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
accesslog.rb	2.25 KB	-rw-r--r--	2011-06-23 09:44
cgi.rb	6.92 KB	-rw-r--r--	2007-02-12 23:01
compat.rb	436 B	-rw-r--r--	2007-02-12 23:01
config.rb	3.13 KB	-rw-r--r--	2007-02-12 23:01
cookie.rb	3.03 KB	-rw-r--r--	2007-02-12 23:01
htmlutils.rb	584 B	-rw-r--r--	2007-02-12 23:01
httpauth.rb	1.31 KB	-rw-r--r--	2007-02-12 23:01
httpproxy.rb	7.46 KB	-rw-r--r--	2008-06-06 08:05
httprequest.rb	9.99 KB	-rw-r--r--	2010-11-22 07:22
httpresponse.rb	7.96 KB	-rw-r--r--	2010-08-16 07:31
https.rb	1.64 KB	-rw-r--r--	2010-12-20 16:55
httpserver.rb	5.63 KB	-rw-r--r--	2007-02-12 23:01
httpservlet.rb	669 B	-rw-r--r--	2007-02-12 23:01
httpstatus.rb	3.51 KB	-rw-r--r--	2010-06-10 05:23
httputils.rb	9.96 KB	-rw-r--r--	2010-01-10 10:30
httpversion.rb	1.12 KB	-rw-r--r--	2007-02-12 23:01
log.rb	2.03 KB	-rw-r--r--	2007-02-12 23:01
server.rb	5.28 KB	-rw-r--r--	2007-02-12 23:01
ssl.rb	4.22 KB	-rw-r--r--	2010-11-22 07:21
utils.rb	2.54 KB	-rw-r--r--	2012-06-06 05:20
version.rb	351 B	-rw-r--r--	2007-02-12 23:01

Rename

#
# ssl.rb -- SSL/TLS enhancement for GenericServer
#
# Copyright (c) 2003 GOTOU Yuuzou All rights reserved.
# 
# $Id: ssl.rb 29858 2010-11-22 07:21:52Z shyouhei $

require 'webrick'
require 'openssl'

module WEBrick
  module Config
    svrsoft = General[:ServerSoftware]
    osslv = ::OpenSSL::OPENSSL_VERSION.split[1]
    SSL = {
      :ServerSoftware       => "#{svrsoft} OpenSSL/#{osslv}",
      :SSLEnable            => false,
      :SSLCertificate       => nil,
      :SSLPrivateKey        => nil,
      :SSLClientCA          => nil,
      :SSLExtraChainCert    => nil,
      :SSLCACertificateFile => nil,
      :SSLCACertificatePath => nil,
      :SSLCertificateStore  => nil,
      :SSLVerifyClient      => ::OpenSSL::SSL::VERIFY_NONE,
      :SSLVerifyDepth       => nil,
      :SSLVerifyCallback    => nil,   # custom verification
      :SSLTimeout           => nil,
      :SSLOptions           => nil,
      :SSLStartImmediately  => true,
      # Must specify if you use auto generated certificate.
      :SSLCertName          => nil,
      :SSLCertComment       => "Generated by Ruby/OpenSSL"
    }
    General.update(SSL)
  end

module Utils
    def create_self_signed_cert(bits, cn, comment)
      rsa = OpenSSL::PKey::RSA.new(bits){|p, n|
        case p
        when 0; $stderr.putc "."  # BN_generate_prime
        when 1; $stderr.putc "+"  # BN_generate_prime
        when 2; $stderr.putc "*"  # searching good prime,  
                                  # n = #of try,
                                  # but also data from BN_generate_prime
        when 3; $stderr.putc "\n" # found good prime, n==0 - p, n==1 - q,
                                  # but also data from BN_generate_prime
        else;   $stderr.putc "*"  # BN_generate_prime
        end
      }
      cert = OpenSSL::X509::Certificate.new
      cert.version = 2
      cert.serial = 1
      name = OpenSSL::X509::Name.new(cn)
      cert.subject = name
      cert.issuer = name
      cert.not_before = Time.now
      cert.not_after = Time.now + (365*24*60*60)
      cert.public_key = rsa.public_key

ef = OpenSSL::X509::ExtensionFactory.new(nil,cert)
      ef.issuer_certificate = cert
      cert.extensions = [
        ef.create_extension("basicConstraints","CA:FALSE"),
        ef.create_extension("keyUsage", "keyEncipherment"),
        ef.create_extension("subjectKeyIdentifier", "hash"),
        ef.create_extension("extendedKeyUsage", "serverAuth"),
        ef.create_extension("nsComment", comment),
      ]
      aki = ef.create_extension("authorityKeyIdentifier",
                                "keyid:always,issuer:always")
      cert.add_extension(aki)
      cert.sign(rsa, OpenSSL::Digest::SHA1.new)

return [ cert, rsa ]
    end
    module_function :create_self_signed_cert
  end

class GenericServer
    def ssl_context
      @ssl_context ||= nil
    end

def listen(address, port)
      listeners = Utils::create_listeners(address, port, @logger)
      if @config[:SSLEnable]
        unless ssl_context
          @ssl_context = setup_ssl_context(@config)
          @logger.info("\n" + @config[:SSLCertificate].to_text) 
        end
        listeners.collect!{|svr|
          ssvr = ::OpenSSL::SSL::SSLServer.new(svr, ssl_context)
          ssvr.start_immediately = @config[:SSLStartImmediately]
          ssvr
        }
      end
      @listeners += listeners
    end

def setup_ssl_context(config)
      unless config[:SSLCertificate]
        cn = config[:SSLCertName]
        comment = config[:SSLCertComment]
        cert, key = Utils::create_self_signed_cert(1024, cn, comment)
        config[:SSLCertificate] = cert
        config[:SSLPrivateKey] = key
      end
      ctx = OpenSSL::SSL::SSLContext.new
      ctx.key = config[:SSLPrivateKey]
      ctx.cert = config[:SSLCertificate]
      ctx.client_ca = config[:SSLClientCA]
      ctx.extra_chain_cert = config[:SSLExtraChainCert]
      ctx.ca_file = config[:SSLCACertificateFile]
      ctx.ca_path = config[:SSLCACertificatePath]
      ctx.cert_store = config[:SSLCertificateStore]
      ctx.verify_mode = config[:SSLVerifyClient]
      ctx.verify_depth = config[:SSLVerifyDepth]
      ctx.verify_callback = config[:SSLVerifyCallback]
      ctx.timeout = config[:SSLTimeout]
      ctx.options = config[:SSLOptions]
      ctx
    end
  end
end