bind set_odd_parity as DES_string_to_key is incompatible with LM scheme

1 files changed, 16 insertions, 1 deletions

diff --git a/src/openssl.c b/src/openssl.c
index dcebeef..6e3039f 100644
--- a/src/openssl.c
+++ b/src/openssl.c
@@ -5620,9 +5620,24 @@ static int de5_string_to_key(lua_State *L) {
         return 1;
 } /* de5_string_to_key() */
 
+static int de5_set_odd_parity(lua_State *L) {
+        const char *src;
+        size_t len;
+        DES_cblock key;
+
+        src = luaL_checklstring(L, 1, &len);
+        memset(&key, 0, sizeof key);
+        memcpy(&key, src, MIN(len, sizeof key));
+
+        DES_set_odd_parity(&key);
+        lua_pushlstring(L, (char *)key, sizeof key);
+
+        return 1;
+} /* de5_set_odd_parity() */
 
 static const luaL_Reg des_globals[] = {
-        { "string_to_key", &de5_string_to_key },
+        { "string_to_key",  &de5_string_to_key },
+        { "set_odd_parity", &de5_set_odd_parity },
         { NULL,            NULL },
 };