View difference between Paste ID: ntsWPAcq and akCTxrsA

--- Base64
+local b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
-
+function encode(data)
--- Characters
+    return ((data:gsub('.', function(x)
-local b = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+        local r,b='',x:byte()
-
+        for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
--- Encoding
+        return r;
-function encode(data)
+    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
-    return ((data:gsub('.', function(x)
+        if (#x < 6) then return '' end
-        local r,b='',x:byte()
+        local c=0
-        for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
+        for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
-        return r;
+        return b:sub(c+1,c+1)
-    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
+    end)..({ '', '==', '=' })[#data%3+1])
-        if (#x < 6) then return '' end
+end
-        local c=0
+
-        for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
+function decode(data)
-        return b:sub(c+1,c+1)
+    data = string.gsub(data, '[^'..b..'=]', '')
-    end)..({ '', '==', '=' })[#data%3+1])
+    return (data:gsub('.', function(x)
-end
+        if (x == '=') then return '' end
-
+        local r,f='',(b:find(x)-1)
--- Decoding
+        for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
-function decode(data)
+        return r;
-    data = string.gsub(data, '[^'..b..'=]', '')
+    end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
-    return (data:gsub('.', function(x)
+        if (#x ~= 8) then return '' end
-        if (x == '=') then return '' end
+        local c=0
-        local r,f='',(b:find(x)-1)
+        for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
-        for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
+        return string.char(c)
-        return r;
+    end))
-    end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
+