;ҽiPurchase
reset
00A404000F 7378312E73682EC9E7BBE1B1A3D5CF
compsta 90 00

00A4000002DF04
0020000003 %spin

<--! %stransTime=20120805 105301
;Կ
<--! %Purchase_key_ID = 01
;CIA_AMT ʻ֧
<--! %sCIA_AMT = 00000001
;SPIP_AMT  Ը
<--! %SPIP_AMT = 00000000
;ͳ֧
<--! %SPFP_AMT = 00000000
;ն˻
<--! %Terminal_No = 010203040506

//ѳʼ
B0 28 01 01 13 %Purchase_key_ID %sCIA_AMT %SPIP_AMT %SPFP_AMT %Terminal_No
;CLA
<--! %oldbalance = @strmidh(%resp, 0, 4)
;SPIP(Ը)
<--! %SPIP_AMT = @strmidh(%resp, 4, 4)
;SPFP(ͳ֧)
<--! %SPFP_AMT = @strmidh(%resp, 8, 4)
; ֧
<--! %syear = @strmidh(%resp, 12, 2)
;ҽѽ
<--! %sTransNo=@strmidh(%resp, 14, 2)
;Կ汾(DPK)
<--! %skeyID = @strmidh(%resp, 16, 1)
;㷨ʶ(DPK)
<--! %smathID=@strmidh(%resp, 17, 1)
;α
<--! %swrand=@strmidh(%resp, 18, 4)

;//ն˽
<--! %Ter_Trx_no = 00000001
<--! %temp = @strmidh(%Ter_Trx_no,2,2)
<--! %sn=%swrand+ %sTransNo +%temp
<--! %sespk=@desjs(%sDPK01DF04,%sn,0)

<--! %smac1data=%sCIA_AMT +0000000000000000 +32 +%Terminal_No +%stransTime 
<--! %rand = 0000000000000000
<--! %smac1=@mac(%sespk,%smac1data,%rand,0)


;ִ
B0 2C 01 00 0F %Ter_Trx_no %stransTime %smac1
;TAC
<--! %TAC = @strmidh(%resp, 0, 4)
;MAC2
<--! %MAC2 = @strmidh(%resp, 4, 4)

B0 26 00 01 04

