function dec_to_bin(num)
    local total = 0
    local modifier = 0
    local value = ""

    while math.pow(2, modifier) <= num do
         modifier = modifier + 1
    end

    for i = modifier, 1, -1 do
       if math.pow(2, i-1) + total <= num then
           total = total + math.pow(2, i-1)
           value = value.."1"
        else
            value = value.."0"
        end
end

    return value
end

function bin_to_hex(num)
    local num_array = {}
    local result = ""
    local bin_table = {
        ["0001"] = "1", ["0010"] = "2", ["0011"] = "3", ["0100"] = "4", ["0101"] = "5", ["0110"] = "6", ["0111"] = "7", ["1000"] = "8", ["1001"] = "9", ["1010"] = "A", ["1011"] = "B", ["1100"] = "C", ["1101"] = "D", ["1110"] = "E", ["1111"] = "F",
    }

    for i = 1, #num do
        num_array[i] = num:sub(i,i)
    end

    local g_set = {}
    for i = 1, math.ceil(#num_array/4) do
        local b_str = ""

        for i2 = #num_array-(4*(i-1))-3, #num_array-(4*(i-1)), 1 do
            if num_array[i2] == nil then
                b_str = b_str.."0"
            else
                b_str = b_str..num_array[i2]
            end
        end
        g_set[i] = b_str
    end

    for i = #g_set, 1, -1 do
        result = result..bin_table[g_set[i]]
    end

    return result
end

print(bin_to_hex(dec_to_bin(4294967295))) -- Yay!