jbe@139: 
jbe@139: #include <lua.h>
jbe@139: #include <lauxlib.h>
jbe@139: #include <lualib.h>
jbe@139: 
jbe@139: #include <sys/types.h>
jbe@139: #include <sha.h>
jbe@139: 
jbe@139: static int moonbr_ws_hsresp(lua_State *L) {
jbe@139:   const char *challenge;
jbe@139:   size_t challenge_len;
jbe@139:   SHA_CTX context;
jbe@139:   char digest[20];
jbe@139:   static const char alphabet[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
jbe@139:   char digest64[28];
jbe@139:   int i, j;
jbe@139:   int s = 0, b = 0;
jbe@139:   challenge = luaL_checklstring(L, 1, &challenge_len);
jbe@139:   SHA1_Init(&context);
jbe@139:   SHA1_Update(&context, challenge, challenge_len);
jbe@139:   SHA1_Update(&context, "258EAFA5-E914-47DA-95CA-C5AB0DC85B11", 36);
jbe@139:   SHA1_Final((unsigned char *)digest, &context);
jbe@139:   for (i=0, j=0; i<20; i++) {
jbe@139:     b = (b << 8) + (unsigned char)digest[i];
jbe@139:     s += 8;
jbe@139:     while (s >= 6) {
jbe@139:       s -= 6;
jbe@139:       digest64[j++] = alphabet[b >> s];
jbe@139:       b &= (1<<s)-1;
jbe@139:     }
jbe@139:   }
jbe@139:   digest64[26] = alphabet[b << 2];
jbe@139:   digest64[27] = '=';
jbe@139:   lua_pushlstring(L, digest64, 28);
jbe@139:   return 1;
jbe@139: }
jbe@139: 
jbe@139: static const struct luaL_Reg moonbr_ws_module_funcs[] = {
jbe@139:   {"hsresp", moonbr_ws_hsresp},
jbe@139:   {NULL, NULL}
jbe@139: };
jbe@139: 
jbe@139: int luaopen_moonbridge_websocket(lua_State *L) {
jbe@139:   lua_newtable(L);  // module
jbe@139:   luaL_setfuncs(L, moonbr_ws_module_funcs, 0);
jbe@139:   return 1;
jbe@139: 
jbe@139: }
jbe@139: