易語言開發(fā)傳奇微信公眾號.第二課-服務(wù)器和網(wǎng)關(guān)對接,TOKEN驗(yàn)證及算法,微信公眾號傳奇網(wǎng)關(guān)
易語言開發(fā)微信傳奇網(wǎng)關(guān)教程.jpg (73.13 KB, 下載次數(shù): 438)
下載附件
易語言開發(fā)微信傳奇網(wǎng)關(guān)教程
2020-2-13 11:05 上傳
易語言開發(fā)微信傳奇網(wǎng)關(guān)教程
-易語言TOKEN源碼如下:
.子程序 TOKEN驗(yàn)證
.參數(shù) GET數(shù)據(jù), 文本型
.參數(shù) 當(dāng)前客戶, 文本型
.局部變量 字符驗(yàn)證, 文本型
.局部變量 GET分割, 文本型, , "0"
.局部變量 數(shù)組重新排序, 文本型, , "0"
.局部變量 驗(yàn)證碼, 文本型
.局部變量 數(shù)據(jù)加密, 類_數(shù)據(jù)操作
.局部變量 數(shù)據(jù)對比, 文本型
字符驗(yàn)證 = 子文本替換 (GET數(shù)據(jù), “signature=”, “”, , , 真)
字符驗(yàn)證 = 子文本替換 (字符驗(yàn)證, “echostr=”, “”, , , 真)
字符驗(yàn)證 = 子文本替換 (字符驗(yàn)證, “timestamp=”, “”, , , 真)
字符驗(yàn)證 = 子文本替換 (字符驗(yàn)證, “nonce=”, “”, , , 真)
.如果真 (尋找文本 (字符驗(yàn)證, “&”, , 假) = -1)
日志輸出 (“TOKEN驗(yàn)證失敗..”)
返回 ()
.如果真結(jié)束
GET分割 = 分割文本 (字符驗(yàn)證, “&”, )
加入成員 (數(shù)組重新排序, GET分割 [3])
加入成員 (數(shù)組重新排序, GET分割 [4])
加入成員 (數(shù)組重新排序, _啟動窗口.編輯框_微信接口_TOKEN.內(nèi)容)
數(shù)組_排序 (數(shù)組重新排序, , )
驗(yàn)證碼 = 數(shù)組重新排序 [1] + 數(shù)組重新排序 [2] + 數(shù)組重新排序 [3]
數(shù)據(jù)對比 = 數(shù)據(jù)加密.hex_sha1 (到字節(jié)集 (驗(yàn)證碼))
.如果真 (GET分割 [1] = 數(shù)據(jù)對比)
日志輸出 (“TOKEN驗(yàn)證成功...”)
服務(wù)器返回?cái)?shù)據(jù) (當(dāng)前客戶, #wx_協(xié)議頭 + 時(shí)間_轉(zhuǎn)為GMT格式 (取現(xiàn)行時(shí)間 ()) + #換行符 + #換行符 + GET分割 [2])
返回 ()
.如果真結(jié)束
日志輸出 (“TOKEN驗(yàn)證失敗...”)
服務(wù)器返回?cái)?shù)據(jù) (當(dāng)前客戶, GET分割 [1])
第二課-服務(wù)器和網(wǎng)關(guān)對接,TOKEN驗(yàn)證及算法。
第三課-用戶關(guān)注觸發(fā)及保存用戶信息到數(shù)據(jù)庫。
更多詳情請下載視頻教程和源碼附件工具。源碼附件200論壇幣出售,視頻免費(fèi)下載(回復(fù)后查看免費(fèi)下載地址)
|