. Sign calculation subroutine, the text type, public
Parameters param, textual
. The key parameters, the text type
Local variable signpars, textual
. A local variable segmentation, text type, and "0"
A local variable x, integer
Local variables k, textual
Local variable v, textual
. A local variable signs and textual
Text segmentation=splitting (param, & amp; "" ,)
Array _ sort (segmentation, 0,
Membership would circle the first (take array (division), x)
K=text _ take the left (segmentation [x], "=",,)
(v=text _ take the right segmentation [x], "=",,)
If (k indicates a "sign" and v indicates "")
Membership. If (x=array (segmentation))
Signpars=signpars "=" + v +, k +
. Otherwise,
Signpars=signpars "=" + v + +, k + & amp; ""
If end
. If the end of the
Would circle the tail ()
Signpars=signpars + key
Sign=extracts data (to bytes (signpars))
Return (sign)