procedure 密码数据 select a go top hbcd=substr(newsecret,7,2) do hhbb send_data[5]=chnum+33h hbcd=substr(newsecret,5,2) do hhbb send_data[6]=chnum+33h hbcd=substr(newsecret,3,2) do hhbb send_data[7]=chnum+33h hbcd=substr(newsecret,1,2) do hhbb send_data[8]=chnum+33h return endpro
select a
go top
hbcd=substr(newsecret,7,2)
do hhbb
send_data[5]=chnum+33h
hbcd=substr(newsecret,5,2)
do hhbb
send_data[6]=chnum+33h
hbcd=substr(newsecret,3,2)
do hhbb
send_data[7]=chnum+33h
hbcd=substr(newsecret,1,2)
do hhbb
send_data[8]=chnum+33h
return
endpro