document des.set_odd_parity and add example

1 files changed, 71 insertions, 0 deletions

diff --git a/examples/lm.hash b/examples/lm.hash
new file mode 100755
index 0000000..4d8157c
--- /dev/null
+++ b/examples/lm.hash
@@ -0,0 +1,71 @@
+#!/bin/sh
+_=[[
+        : ${LUA:=$(command -v lua-5.2)}
+        : ${LUA:=$(command -v lua5.2)}
+        : ${LUA:=$(command -v lua-52)}
+        : ${LUA:=$(command -v lua52)}
+        : ${LUA:=$(command -v luajit)}
+        : ${LUA:=$(command -v lua)}
+
+        exec ${LUA} "$0" "$@"
+]]
+
+local des = require"openssl.des"
+local cipher = require"openssl.cipher"
+local bit32 = require"bit32"
+
+local function lm_encrypt(key)
+        return cipher.new"DES-ECB":encrypt(key, nil, false):final"KGS!@#$%"
+end -- lm_encrypt
+
+local lshift = bit32.lshift
+local band = bit32.band
+local rshift = bit32.rshift
+local bor = bit32.bor
+
+local function lm_string_to_key(s)
+        local s0, s1, s2, s3, s4, s5, s6 = string.byte(s, 1, 7)
+        local k0, k1, k2, k3, k4, k5, k6, k7
+
+        s0 = s0 or 0
+        s1 = s1 or 0
+        s2 = s2 or 0
+        s3 = s3 or 0
+        s4 = s4 or 0
+        s5 = s5 or 0
+        s6 = s6 or 0
+
+        k0 = s0
+        k1 = bor(band(lshift(s0, 7), 255), rshift(s1, 1))
+        k2 = bor(band(lshift(s1, 6), 255), rshift(s2, 2))
+        k3 = bor(band(lshift(s2, 5), 255), rshift(s3, 3))
+        k4 = bor(band(lshift(s3, 4), 255), rshift(s4, 4))
+        k5 = bor(band(lshift(s4, 3), 255), rshift(s5, 5))
+        k6 = bor(band(lshift(s5, 2), 255), rshift(s6, 6))
+        k7 = band(lshift(s6, 1), 255)
+
+        return des.set_odd_parity(string.char(k0, k1, k2, k3, k4, k5, k6, k7))
+end -- lm_string_to_key
+
+local function lm_hash(pass)
+        pass = string.upper(pass)
+
+        if #pass < 14 then
+                pass = pass .. string.rep(string.char(0), 14 - #pass)
+        end
+
+        local key1 = lm_string_to_key(string.sub(pass, 1, 7))
+        local key2 = lm_string_to_key(string.sub(pass, 8, 14))
+
+        return lm_encrypt(key1) .. lm_encrypt(key2)
+end -- lm_hash
+
+local function tohex(s)
+        return (string.gsub(s, ".", function (c)
+                return string.format("%.2x", string.byte(c))
+        end))
+end -- tohex
+
+local pass = ... or "passphrase"
+
+print(pass, tohex(lm_hash(... or "passphrase")))