關於Air780E：與伺服器的加密通訊操作方法

电子老师傅發表於2024-10-17

AI伺服器加密

今天我們來學習合宙低功耗4G模組Air780E快速入門之跟伺服器之間的加密通訊，夥伴們，一起學起來！

一、編寫指令碼

1.1 準備資料

Air780E開發板購買

Air780E開發板設計資料

LuatOS-Air780E/網路加密通訊程式原始碼demo

合宙的 TCP/UDP 測試伺服器

API介紹說明

1.2 程式詳解

1.2.1 首先配置聯網配置

-- 測試網站 https://netlab.luatos.com/ 點選開啟TCP 獲取測試埠號

-- 要按實際情況修改

local host = "112.125.89.8" -- 伺服器ip或者域名, 都可以的

local port = 45186 -- 伺服器埠號

local is_udp = false -- 如果是UDP, 要改成true, false就是TCP

local is_tls = true -- 加密與否, 要看伺服器的實際情況

--=============================================================

1.2.2 聯網後，建立聯網成功後，對收發資料事件的處理函式

local function sockettest()

-- 等待聯網

sys.waitUntil("IP_READY")

-- 時間同步

socket.sntp()

-- 開始正在的邏輯, 發起socket連結,等待資料/上報心跳

local taskName = "sc"

local topic = taskName .. "_txrx"

log.info("topic", topic)

local txqueue = {}

--[[建立一個任務執行緒

@param1 function 任務函式名，用於resume喚醒時呼叫

@param2 string 任務名稱，用於喚醒任務id

@param3 function 接收到非目標訊息時的回撥函式

@param4 any 任務函式fun的可變引數

@return number 返回該任務的執行緒號

]]

sysplus.taskInitEx(sockettask, taskName, netCB, taskName, txqueue, topic)

while 1 do

local result, tp, data = sys.waitUntil(topic, 30000)
log.info("event", result, tp, data)
if not result then
   -- 等很久了,沒資料上傳/下發, 發個日期心跳包吧



   table.insert(txqueue, os.date())



   sys_send(taskName, socket.EVENT, 0)

elseif tp == "uplink" then
   -- 上行資料, 主動上報的資料,那就傳送呀



   table.insert(txqueue, data)



   sys_send(taskName, socket.EVENT, 0)

elseif tp == "downlink" then
   -- 下行資料,接收的資料, 從ipv6task來的



   -- 其他程式碼可以透過 sys.publish()



   log.info("socket", "收到下發的資料了", #data,"data:",data)

end

end

1.2.3 聯網函式

function sockettask(d1Name, txqueue, rxtopic)

-- 列印準備連線的伺服器資訊

log.info("socket", host, port, is_udp and "UDP" or "TCP", is_tls and "TLS" or "RAW")

-- 準備好所需要的接收緩衝區

local rx_buff = zbuff.create(1024)

local netc = socket.create(nil, d1Name)

socket.config(netc, nil, is_udp, is_tls)

log.info("任務id", d1Name)

while true do

-- 連線伺服器, 15秒超時
log.info("socket", "開始連線伺服器")
sysplus.cleanMsg(d1Name)
local result = libnet.connect(d1Name, 15000, netc, host, port)
if result then
   log.info("socket", "伺服器連上了")



   --向伺服器傳送資料



   libnet.tx(d1Name, 0, netc, "helloworld")

else
   log.info("socket", "伺服器沒連上了!!!")

end
while result do
   -- 連線成功之後, 先嚐試接收



   -- log.info("socket", "呼叫rx接收資料")



   local succ, param = socket.rx(netc, rx_buff)



   if not succ then



       log.info("伺服器斷開了", succ, param, ip, port)



       break



   end



   -- 如果伺服器有下發資料, used()就必然大於0, 進行處理



   if rx_buff:used() &gt; 0 then



       log.info("socket", "收到伺服器資料，長度", rx_buff:used())



       local data = rx_buff:query() -- 獲取資料



       sys.publish(rxtopic, "downlink", data)



       rx_buff:del()



   end



   -- log.info("libnet", "呼叫wait開始等待訊息")



   -- 等待事件, 例如: 伺服器下發資料, 有資料準備上報, 伺服器斷開連線



   result, param, param2 = libnet.wait(d1Name, 15000, netc)



   log.info("libnet", "wait", result, param, param2)



   if not result then



       -- 網路異常了, 那就斷開了, 執行清理工作



       log.info("socket", "伺服器斷開了", result, param)



       break



   elseif #txqueue &gt; 0 then



       -- 有待上報的資料,處理之



       while #txqueue &gt; 0 do



           local data = table.remove(txqueue, 1)



           if not data then



               break



           end



           result,param = libnet.tx(d1Name, 15000, netc,data)



           log.info("libnet", "傳送資料的結果", result, param)



           if not result then



               log.info("socket", "資料傳送異常", result, param)



               break



           end



       end



   end



   -- 迴圈尾部, 繼續下一輪迴圈

end
-- 能到這裡, 要麼伺服器斷開連線, 要麼上報(tx)失敗, 或者是主動退出
libnet.close(d1Name, 5000, netc)
-- log.info(rtos.meminfo("sys")) sys.wait(30000) -- 這是重連時長, 自行調整