计算统一社会信用代码的校验码（Lua）

输入

法人和其他组织统一社会信用代码的前16/17位

输出

检查登记管理部门代码（第1位）和机构类别代码（第2位）是否合法；
检查登记管理机关行政区划码（第3-8位）是否合法；
检查组织机构代码的本体代码（第9-16位）是否合法；
如果输入为17位，则检查组织机构代码的校验码（第17位）是否正确；
输出完整的统一社会信用代码，包括组织机构代码的校验码（第17位）和统一代码的校验码（第18位）。

Lua实现代码

考虑到登记管理部门代码标识和机构类别代码标识的调整，将这部分内容放到Lua脚本中配置以方便修改。
如有调整，则修改 legalRegCodes 和 legalClassCodes 对应的值。

local legalRegCodes = { "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "N", "Y" }
local legalClassCodes = {
	"11", "12", "13", "19",
	"21", "29",
	"31", "32", "33", "34", "35", "39",
	"41", "49",
	"51", "52", "53", "59",
	"61", "62", "69",
	"71", "72", "79",
	"81", "89",
	"91", "92", "93",
	"A1", "A9",
	"N1", "N2", "N3", "N9",
	"Y1" }

--[[ Return
	- nil if the value is not in the table, or
	- the index number (begin from 1) of the value in the table. ]]
local function GetIndex(table, value)
	for i, v in ipairs(table) do
		if v == value then
			return i
		end
	end
	return nil
end

function checkDivisionCode(inDivisionCode)
	local dc = tonumber(inDivisionCode)
	if (dc and 110000 <= dc and dc <= 829999) then
		return true
	end
	return false
end

--[[ Return
	- nil if inOrgCodeMaster is invalid, or
	- the checksum character of inOrgCodeMaster. ]]
function GetOrgCodeChecksum(inOrgCodeMaster)
	local legalOrgCodeSet = {
		"0", "1", "2", "3", "4", "5", "6", "7", "8", "9",
		"A", "B", "C", "D", "E", "F", "G", "H", "I", "J",
		"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
		"U", "V", "W", "X", "Y", "Z" }
	local w = { 3, 7, 9, 10, 5, 8, 4, 2 }
	local s = 0;

	for i = 1, 8, 1 do
		local k = GetIndex(legalOrgCodeSet, string.sub(inOrgCodeMaster, i, i))
		if k then
			s = s + (k - 1) * w[i]
		else
			return nil
		end
	end

	local r = s % 11;
	if r == 0 then
		return '0'
	end
	if r == 1 then
		return 'X'
	end
	return tostring(11 - r)
end

function GetUIDChecksum(inID)
	local legalCodes = {
		"0", "1", "2", "3", "4", "5", "6", "7", "8", "9",
		"A", "B", "C", "D", "E", "F", "G", "H",	"J", "K",
		"L", "M", "N", "P", "Q", "R", "T", "U", "W", "X", "Y" }
	local w = { 1, 3, 9, 27, 19, 26, 16, 17, 20, 29, 25, 13, 8, 24, 10, 30, 28 }
	local s = 0

	for i = 1, 16, 1 do
		s = s + (GetIndex(legalCodes, string.sub(inID, i, i)) - 1) * w[i]
	end
	local OIDChecksum = GetOrgCodeChecksum(string.sub(inID, 9, 16))
	s = s + (GetIndex(legalCodes, OIDChecksum) - 1) * w[17]
	return legalCodes[32 - (s % 31)]
end

-- main
print "Enter the master number (first 16 or 17 bytes) of the unified identifier: "
local inID = io.read('*L')
-- check size
local len = string.len(inID)
if (len < 17 or 18 < len) then
	print "\nThe size of the master number is incorrect."
	return nil
end
-- check registration management code (1st byte)
local inRegCode = string.sub(inID, 1, 1)
if not GetIndex(legalRegCodes, inRegCode) then
	print "\nThe registration management code is incorrect:"
	print (inID)
	print "^"
	return nil
end
-- check institutional class code (2nd byte)
local inClassCode = string.sub(inID, 1, 2)
if not GetIndex(legalClassCodes, inClassCode) then
	print "\nThe institutional class code is incorrect:"
	print (inID)
	print " ^"
	return nil
end
-- check administrative division code (3rd-8th bytes)
local inDivisionCode = string.sub(inID, 3, 8)
if not checkDivisionCode(inDivisionCode) then
	print "\nThe administrative division code is incorrect:"
	print (inID)
	print "  ^^^^^^"
	return nil
end
-- check organization code (9th-16th bytes)
local inOrgCodeMaster = string.sub(inID, 9, 16)
local OIDChecksum = GetOrgCodeChecksum(inOrgCodeMaster)
if not OIDChecksum then
	print "\nThe master number of the organization code is incorrect:"
	print (inID)
	print "        ^^^^^^^^"
	return nil
end
-- check organization code checksum (17th byte)
if string.len(inID) > 17 then
	local inOrgCodeChecksum = string.sub(inID, 17, 17)
	if inOrgCodeChecksum ~= OIDChecksum then
		print "\nThe organization code checksum is incorrect:"
		print (inID)
		print "                ^"
		return nil
	end
end
-- good
print ("\nThe unified identifier is: ",
	inClassCode, inDivisionCode, inOrgCodeMaster, OIDChecksum, GetUIDChecksum(inID))

参考

• GB 32100-2015 法人和其他组织统一社会信用代码编码规则
• GB/T 2260-2007 中华人民共和国行政区划代码
• GB 11714-1997 全国组织机构代码编制规则
• feiyunw/LuaBuild