aaaa=alltr(thisform.label1.caption)
aaa=""
FOR I=1 TO LEN(aaaa)
aAB=ASC(SUBSTR(aaaa,I,1))
aAA=aAA+alltr(str(aAB))
ENDFOR
aaac=""
FOR I=2 TO LEN(aaa) step 2
aAB=(SUBSTR(aaa,I,1))
aAAc=aAAc+alltr((aAB))
ENDFOR
aA=BITXOR(val(aaac),0226001)
aaa=""
FOR I=1 TO LEN(alltr(str(aa)))
aAB=SUBSTR(alltr(str(aa)),I,1)
aac=int(val(aab)*14/3)
aac=iif(aac>=10 and aac<=16,48+(aac-7),48+aac)
aAA=aAA+CHR(aAc)
ENDFOR
************
** thisform.label2.caption=aaa
if alltr(UPPER(thisform.text1.value))==ALLTR(aaa)
messagebox("恭喜恭喜!注册成功!真诚感谢您对本软件的支持。",48,"注册成功^_^")
use syspath+"data\set.dbf"
sele set
go top
replace value with ALLTR(aaa)
use
regyesno=.t.
thisform.label1.visible=.f.
thisform.label2.visible=.f.
thisform.label3.visible=.f.
thisform.label4.visible=.f.
thisform.label6.visible=.f.
thisform.label7.visible=.f.
thisform.label8.visible=.f.
thisform.label9.visible=.f.
thisform.label10.visible=.f.
thisform.label11.visible=.f.
thisform.label12.visible=.f.
thisform.text1.visible=.f.
this.visible=.f.
thisform.image1.visible=.t.
thisform.caption="系统已注册 ^_^"
else
messagebox("注册失败!请仔细核对注册码。",48,"注册失败^_^")
endif
还需要别的代码:492604498@QQ.com 发给你
[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法