.子程式 sign計算, 文本型, 公開
.引數 param, 文本型
.引數 key, 文本型
.區域變數 signpars, 文本型
.區域變數 分割, 文本型, , "0"
.區域變數 x, 整數型
.區域變數 k, 文本型
.區域變數 v, 文本型
.區域變數 sign, 文本型
分割 ＝ 分割文本 (param, “&”, )
陣列_排序 (分割, 0, )
.計次回圈首 (取陣列成員數 (分割), x)
k ＝ 文本_取左邊 (分割 [x], “=”, , )
v ＝ 文本_取右邊 (分割 [x], “=”, , )
.如果真 (k ≠ “sign” 且 v ≠ “”)
.如果 (x ＝ 取陣列成員數 (分割))
signpars ＝ signpars ＋ k ＋ “=” ＋ v
.否則
signpars ＝ signpars ＋ k ＋ “=” ＋ v ＋ “&”
.如果結束
.如果真結束
.計次回圈尾 ()
signpars ＝ signpars ＋ key
sign ＝ 取資料摘要 (到位元組集 (signpars))
回傳 (sign)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/40198.html
標籤：其他開發語言