API tools faq
paste
gknova61

Single Function SHA-256

gknova61
Feb 9th, 2013
100
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 9.31 KB | None | 0 0
raw download clone embed print report diff
  1. --  
  2. --  Adaptation of the Secure Hashing Algorithm (SHA-244/256)
  3. --  Found Here: http://lua-users.org/wiki/SecureHashAlgorithm
  4. --  
  5. --  Using an adapted version of the bit library
  6. --  Found Here: https://bitbucket.org/Boolsheet/bslf/src/1ee664885805/bit.lua
  7. --  
  8. --  Adapted into a single function by GravityScore
  9. --  
  10.  
  11. local function sha256(msg)
  12.     local function band(int1, int2, int3, ...)
  13.         local ret =
  14.         ((int1%0x00000002>=0x00000001 and int2%0x00000002>=0x00000001 and 0x00000001) or 0)+
  15.         ((int1%0x00000004>=0x00000002 and int2%0x00000004>=0x00000002 and 0x00000002) or 0)+
  16.         ((int1%0x00000008>=0x00000004 and int2%0x00000008>=0x00000004 and 0x00000004) or 0)+
  17.         ((int1%0x00000010>=0x00000008 and int2%0x00000010>=0x00000008 and 0x00000008) or 0)+
  18.         ((int1%0x00000020>=0x00000010 and int2%0x00000020>=0x00000010 and 0x00000010) or 0)+
  19.         ((int1%0x00000040>=0x00000020 and int2%0x00000040>=0x00000020 and 0x00000020) or 0)+
  20.         ((int1%0x00000080>=0x00000040 and int2%0x00000080>=0x00000040 and 0x00000040) or 0)+
  21.         ((int1%0x00000100>=0x00000080 and int2%0x00000100>=0x00000080 and 0x00000080) or 0)+
  22.         ((int1%0x00000200>=0x00000100 and int2%0x00000200>=0x00000100 and 0x00000100) or 0)+
  23.         ((int1%0x00000400>=0x00000200 and int2%0x00000400>=0x00000200 and 0x00000200) or 0)+
  24.         ((int1%0x00000800>=0x00000400 and int2%0x00000800>=0x00000400 and 0x00000400) or 0)+
  25.         ((int1%0x00001000>=0x00000800 and int2%0x00001000>=0x00000800 and 0x00000800) or 0)+
  26.         ((int1%0x00002000>=0x00001000 and int2%0x00002000>=0x00001000 and 0x00001000) or 0)+
  27.         ((int1%0x00004000>=0x00002000 and int2%0x00004000>=0x00002000 and 0x00002000) or 0)+
  28.         ((int1%0x00008000>=0x00004000 and int2%0x00008000>=0x00004000 and 0x00004000) or 0)+
  29.         ((int1%0x00010000>=0x00008000 and int2%0x00010000>=0x00008000 and 0x00008000) or 0)+
  30.         ((int1%0x00020000>=0x00010000 and int2%0x00020000>=0x00010000 and 0x00010000) or 0)+
  31.         ((int1%0x00040000>=0x00020000 and int2%0x00040000>=0x00020000 and 0x00020000) or 0)+
  32.         ((int1%0x00080000>=0x00040000 and int2%0x00080000>=0x00040000 and 0x00040000) or 0)+
  33.         ((int1%0x00100000>=0x00080000 and int2%0x00100000>=0x00080000 and 0x00080000) or 0)+
  34.         ((int1%0x00200000>=0x00100000 and int2%0x00200000>=0x00100000 and 0x00100000) or 0)+
  35.         ((int1%0x00400000>=0x00200000 and int2%0x00400000>=0x00200000 and 0x00200000) or 0)+
  36.         ((int1%0x00800000>=0x00400000 and int2%0x00800000>=0x00400000 and 0x00400000) or 0)+
  37.         ((int1%0x01000000>=0x00800000 and int2%0x01000000>=0x00800000 and 0x00800000) or 0)+
  38.         ((int1%0x02000000>=0x01000000 and int2%0x02000000>=0x01000000 and 0x01000000) or 0)+
  39.         ((int1%0x04000000>=0x02000000 and int2%0x04000000>=0x02000000 and 0x02000000) or 0)+
  40.         ((int1%0x08000000>=0x04000000 and int2%0x08000000>=0x04000000 and 0x04000000) or 0)+
  41.         ((int1%0x10000000>=0x08000000 and int2%0x10000000>=0x08000000 and 0x08000000) or 0)+
  42.         ((int1%0x20000000>=0x10000000 and int2%0x20000000>=0x10000000 and 0x10000000) or 0)+
  43.         ((int1%0x40000000>=0x20000000 and int2%0x40000000>=0x20000000 and 0x20000000) or 0)+
  44.         ((int1%0x80000000>=0x40000000 and int2%0x80000000>=0x40000000 and 0x40000000) or 0)+
  45.         ((int1>=0x80000000 and int2>=0x80000000 and 0x80000000) or 0)
  46.  
  47.         return (int3 and band(ret, int3, ...)) or ret
  48.     end
  49.  
  50.     local function bxor(int1, int2, int3, ...)
  51.         local ret =
  52.         ((int1%0x00000002>=0x00000001 ~= (int2%0x00000002>=0x00000001) and 0x00000001) or 0)+
  53.         ((int1%0x00000004>=0x00000002 ~= (int2%0x00000004>=0x00000002) and 0x00000002) or 0)+
  54.         ((int1%0x00000008>=0x00000004 ~= (int2%0x00000008>=0x00000004) and 0x00000004) or 0)+
  55.         ((int1%0x00000010>=0x00000008 ~= (int2%0x00000010>=0x00000008) and 0x00000008) or 0)+
  56.         ((int1%0x00000020>=0x00000010 ~= (int2%0x00000020>=0x00000010) and 0x00000010) or 0)+
  57.         ((int1%0x00000040>=0x00000020 ~= (int2%0x00000040>=0x00000020) and 0x00000020) or 0)+
  58.         ((int1%0x00000080>=0x00000040 ~= (int2%0x00000080>=0x00000040) and 0x00000040) or 0)+
  59.         ((int1%0x00000100>=0x00000080 ~= (int2%0x00000100>=0x00000080) and 0x00000080) or 0)+
  60.         ((int1%0x00000200>=0x00000100 ~= (int2%0x00000200>=0x00000100) and 0x00000100) or 0)+
  61.         ((int1%0x00000400>=0x00000200 ~= (int2%0x00000400>=0x00000200) and 0x00000200) or 0)+
  62.         ((int1%0x00000800>=0x00000400 ~= (int2%0x00000800>=0x00000400) and 0x00000400) or 0)+
  63.         ((int1%0x00001000>=0x00000800 ~= (int2%0x00001000>=0x00000800) and 0x00000800) or 0)+
  64.         ((int1%0x00002000>=0x00001000 ~= (int2%0x00002000>=0x00001000) and 0x00001000) or 0)+
  65.         ((int1%0x00004000>=0x00002000 ~= (int2%0x00004000>=0x00002000) and 0x00002000) or 0)+
  66.         ((int1%0x00008000>=0x00004000 ~= (int2%0x00008000>=0x00004000) and 0x00004000) or 0)+
  67.         ((int1%0x00010000>=0x00008000 ~= (int2%0x00010000>=0x00008000) and 0x00008000) or 0)+
  68.         ((int1%0x00020000>=0x00010000 ~= (int2%0x00020000>=0x00010000) and 0x00010000) or 0)+
  69.         ((int1%0x00040000>=0x00020000 ~= (int2%0x00040000>=0x00020000) and 0x00020000) or 0)+
  70.         ((int1%0x00080000>=0x00040000 ~= (int2%0x00080000>=0x00040000) and 0x00040000) or 0)+
  71.         ((int1%0x00100000>=0x00080000 ~= (int2%0x00100000>=0x00080000) and 0x00080000) or 0)+
  72.         ((int1%0x00200000>=0x00100000 ~= (int2%0x00200000>=0x00100000) and 0x00100000) or 0)+
  73.         ((int1%0x00400000>=0x00200000 ~= (int2%0x00400000>=0x00200000) and 0x00200000) or 0)+
  74.         ((int1%0x00800000>=0x00400000 ~= (int2%0x00800000>=0x00400000) and 0x00400000) or 0)+
  75.         ((int1%0x01000000>=0x00800000 ~= (int2%0x01000000>=0x00800000) and 0x00800000) or 0)+
  76.         ((int1%0x02000000>=0x01000000 ~= (int2%0x02000000>=0x01000000) and 0x01000000) or 0)+
  77.         ((int1%0x04000000>=0x02000000 ~= (int2%0x04000000>=0x02000000) and 0x02000000) or 0)+
  78.         ((int1%0x08000000>=0x04000000 ~= (int2%0x08000000>=0x04000000) and 0x04000000) or 0)+
  79.         ((int1%0x10000000>=0x08000000 ~= (int2%0x10000000>=0x08000000) and 0x08000000) or 0)+
  80.         ((int1%0x20000000>=0x10000000 ~= (int2%0x20000000>=0x10000000) and 0x10000000) or 0)+
  81.         ((int1%0x40000000>=0x20000000 ~= (int2%0x40000000>=0x20000000) and 0x20000000) or 0)+
  82.         ((int1%0x80000000>=0x40000000 ~= (int2%0x80000000>=0x40000000) and 0x40000000) or 0)+
  83.         ((int1>=0x80000000 ~= (int2>=0x80000000) and 0x80000000) or 0)
  84.  
  85.         return (int3 and bxor(ret, int3, ...)) or ret
  86.     end
  87.  
  88.     local function bnot(int)
  89.         return 4294967295 - int
  90.     end
  91.  
  92.     local function rshift(int, by)
  93.         local shifted = int / (2 ^ by)
  94.         return shifted - shifted % 1
  95.     end
  96.  
  97.     local function rrotate(int, by)
  98.         local shifted = int / (2 ^ by)
  99.         local fraction = shifted % 1
  100.         return (shifted - fraction) + fraction * (2 ^ 32)
  101.     end
  102.  
  103.     local k = {
  104.         0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
  105.         0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
  106.         0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
  107.         0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
  108.         0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
  109.         0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
  110.         0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
  111.         0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
  112.         0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
  113.         0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
  114.         0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
  115.         0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
  116.         0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
  117.         0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
  118.         0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
  119.         0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
  120.     }
  121.  
  122.     local function str2hexa(s)
  123.         local h = string.gsub(s, ".", function(c)
  124.             return string.format("%02x", string.byte(c))
  125.         end)
  126.         return h
  127.     end
  128.  
  129.     local function num2s(l, n)
  130.         local s = ""
  131.         for i = 1, n do
  132.             local rem = l % 256
  133.             s = string.char(rem) .. s
  134.             l = (l - rem) / 256
  135.         end
  136.         return s
  137.     end
  138.  
  139.     local function s232num(s, i)
  140.         local n = 0
  141.         for i = i, i + 3 do n = n*256 + string.byte(s, i) end
  142.         return n
  143.     end
  144.  
  145.     local function preproc(msg, len)
  146.         local extra = 64 - ((len + 1 + 8) % 64)
  147.         len = num2s(8 * len, 8)
  148.         msg = msg .. "\128" .. string.rep("\0", extra) .. len
  149.         return msg
  150.     end
  151.  
  152.     local function initH256(H)
  153.         H[1] = 0x6a09e667
  154.         H[2] = 0xbb67ae85
  155.         H[3] = 0x3c6ef372
  156.         H[4] = 0xa54ff53a
  157.         H[5] = 0x510e527f
  158.         H[6] = 0x9b05688c
  159.         H[7] = 0x1f83d9ab
  160.         H[8] = 0x5be0cd19
  161.         return H
  162.     end
  163.  
  164.     local function digestblock(msg, i, H)
  165.         local w = {}
  166.         for j = 1, 16 do w[j] = s232num(msg, i + (j - 1) * 4) end
  167.         for j = 17, 64 do
  168.             local v = w[j - 15]
  169.             local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
  170.             v = w[j - 2]
  171.             local s1 = bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
  172.             w[j] = w[j - 16] + s0 + w[j - 7] + s1
  173.         end
  174.  
  175.         local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
  176.         for i = 1, 64 do
  177.             local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
  178.             local maj = bxor(band(a, b), band(a, c), band(b, c))
  179.             local t2 = s0 + maj
  180.             local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
  181.             local ch = bxor (band(e, f), band(bnot(e), g))
  182.             local t1 = h + s1 + ch + k[i] + w[i]
  183.             h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
  184.         end
  185.  
  186.         H[1] = band(H[1], a)
  187.         H[2] = band(H[2], b)
  188.         H[3] = band(H[3], c)
  189.         H[4] = band(H[4], d)
  190.         H[5] = band(H[5], e)
  191.         H[6] = band(H[6], f)
  192.         H[7] = band(H[7], g)
  193.         H[8] = band(H[8], h)
  194.     end
  195.  
  196.     msg = preproc(msg, #msg)
  197.     local H = initH256({})
  198.     for i = 1, #msg, 64 do digestblock(msg, i, H) end
  199.     return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
  200.         num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
  201. end
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!