Mercurial > luasec-hg / file revision

• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

samples/loop/client.lua@5be249c0ae71

samples/loop/client.lua

Sat, 17 Dec 2011 10:30:58 -0800

author

Paul Aurich <paul@darkrain42.org>

date

Sat, 17 Dec 2011 10:30:58 -0800

changeset 45

5be249c0ae71

parent 0

f7d2d78eb424

permissions

-rw-r--r--

context: Add no_compression for OpenSSL 0.9.8 as well

Since OpenSSL 0.9.8 doesn't have SSL_OP_NO_COMPRESSION, this is
implemented by simplying NULLing out the SSL_CTX->comp_methods stack.

--
-- Public domain
--
require("socket")
require("ssl")

local params = {
   mode = "client",
   protocol = "sslv3",
   key = "../certs/clientAkey.pem",
   certificate = "../certs/clientA.pem",
   cafile = "../certs/rootA.pem",
   verify = {"peer", "fail_if_no_peer_cert"},
   options = {"all", "no_sslv2"},
}

while true do
   local peer = socket.tcp()
   assert( peer:connect("127.0.0.1", 8888) )

   -- [[ SSL wrapper
   peer = assert( ssl.wrap(peer, params) )
   assert( peer:dohandshake() )
   --]]

   print(peer:receive("*l"))
   peer:close()
end