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 发给你

[课程]Android-CTF解题方法汇总！