HIKVision support - Printable Version

Code:

socket = require('socket')
mime = require('mime')

host = '192.168.1.2'
port = 80
auth = 'user:password'

init = 'GET /ISAPI/Event/notification/alertStream HTTP/1.1\r\n' ..
'Host: ' .. host .. ':' .. port .. '\r\n' ..
'Authorization: Basic ' .. mime.b64(auth) .. '\r\n' .. 
'Accept: multipart/x-mixed-replace\r\n\r\n'

sock = socket.tcp()
sock:settimeout(60)
res, err = sock:connect(host, port)

if res then
  alert('connection ok')
  
  sock:send(init)
  line, err = sock:receive('*l')
  log(line, err)
else
  alert('connection failed: ' .. tostring(err))
end

Code:

* arg: 1
  * string: HTTP/1.1 401 Unauthorized
* arg: 2
  * nil

Code:

* arg: 1
  * string: HTTP/1.1 401 Unauthorized
Date: Tue, 09 Oct 2018 19:29:04 GMT
Server: App-webs/
Content-Length: 178
Content-Type: text/html
Connection: close
WWW-Authenticate: Digest qop="auth", realm="IP Camera(13656)", nonce="4e3245794d444a684f6a56684e47526b5a575179", stale="FALSE"

<!DOCTYPE html>
<html><head><title>Document Error: Unauthorized</title></head>
<body><h2>Access Error: 401 -- Unauthorized</h2>
<p>Authentication Error</p>
</body>
</html>

* arg: 2
  * nil

Code:

require('socket')
md5sum = require('encdec').md5

host = '192.168.1.2'
port = 80
user = 'username'
pass = 'password'
uri = '/ISAPI/Event/notification/alertStream'

function getheader(resp, header)
  local st, en

  header = header .. '="'
  st = resp:find(header)

  if st then
    en = resp:find('"', st + #header)

    if en then
      return resp:sub(st + #header, en - 1)
    end
  end
end

function makedigestheader(headers)
  local digest = {}

  for _, header in ipairs(headers) do
    if not header.unquote then
      header[ 2 ] = '"' .. header[ 2 ] .. '"'
    end

    digest[ #digest + 1 ] = header[ 1 ] .. '=' .. header[ 2 ]
  end

  return 'Digest ' .. table.concat(digest, ', ')
end

function hash(...)
  return md5sum(table.concat({...}, ':'))
end

init = {
  'GET ' .. uri .. ' HTTP/1.1',
  'Host: ' .. host,
  'Accept: multipart/x-mixed-replace',
}

sock = socket.tcp()
sock:settimeout(60)
res, err = sock:connect(host, port)

if not res then
  alert('init connection failed: ' .. tostring(err))
  return
end

sock:send(table.concat(init, '\r\n') .. '\r\n\r\n')
resp, err = sock:receive('*a')
sock:close()

if not resp then
  alert('no response: ' .. tostring(err))
  return
end

realm = getheader(resp, 'realm')
nonce = getheader(resp, 'nonce')

if not realm or not nonce then
  alert('no realm/nonce')
  return
end

nc = '00000001'
cnonce = string.format('%08x', os.time())
method = 'GET'
response = hash(
  hash(user, realm, pass),
  nonce,
  nc,
  cnonce,
  'auth',
  hash(method, uri)
)

auth = {
  { 'username', user },
  { 'realm', realm },
  { 'nonce', nonce },
  { 'uri', uri },
  { 'cnonce', cnonce },
  { 'nc', nc, unquote = true },
  { 'qop', 'auth' },
  { 'algorithm', 'MD5' },
  { 'response', response },
}

table.insert(init, 2, 'Authorization: ' .. makedigestheader(auth))

sock = socket.tcp()
sock:settimeout(60)
res, err = sock:connect(host, port)

if not res then
  alert('data connection failed: ' .. tostring(err))
  return
end

sock:send(table.concat(init, '\r\n') .. '\r\n\r\n')
cl = 'Content-Length:'

while true do
  line, err = sock:receive('*l')
  if line then
    if line:find(cl, 1, true) then
      len = tonumber(line:sub(#cl + 1))

      if len then
        sock:receive('*l') -- skip empty line
        data, err = sock:receive(len)

        if data then
          log(data)
        else
          alert('data receive failed: ' .. tostring(err))
        end
      end
    end
  else
    alert('line receive failed: ' .. tostring(err))
    break
  end
end

sock:close()

Code:

* string: <EventNotificationAlert version="2.0" xmlns="http://www.hikvision.com/ver20/XMLSchema">
<ipAddress>192.168.101.201</ipAddress>
<portNo>80</portNo>
<protocol>HTTP</protocol>
<macAddress>aa:bb:cc:dd:ee:ff</macAddress>
<channelID>1</channelID>
<dateTime>2018-10-10T14:31:43+01:00</dateTime>
<activePostCount>0</activePostCount>
<eventType>videoloss</eventType>
<eventState>inactive</eventState>
<eventDescription>videoloss alarm</eventDescription>
<channelName>K03 Podjazd</channelName>
</EventNotificationAlert>