小弟不懂VF,我把它UNFOX,请VF高手帮忙看一下！

现有一个VF的程序，我把它UNFOX，找到里面的注册的语言代码
因为我不懂语言，只能看懂一个大概，请高手们帮忙分析一下！
注册界面是有机器码，然后输入注册码

代码如下：

确定按钮——
AAA =  ;
  PASSTOPASS(PADR(THISFORM.TEXT1.VALUE,4) + PADR(THISFORM.TEXT2.VALUE,4) +  ;
  PADR(THISFORM.TEXT3.VALUE,4))
IF AAA <> PADR(THISFORM.TEXT4.VALUE,4) + PADR(THISFORM.TEXT5.VALUE,4) +  ;
    PADR(THISFORM.TEXT6.VALUE,4)
  MESSAGEBOX('注册未成功!',64,'进销存管理系统')
ELSE
  MESSAGEBOX('注册成功!',64,'进销存管理系统')
  WRITESERIALNO(AAA)
ENDIF
THISFORM.RELEASE

注册界面——
IF CHECKSERIALNO()
  AAA = READSERIALNO()
  thisform.TEXT4.VALUE = SUBSTR(AAA,1,4)
  thisform.TEXT5.VALUE = SUBSTR(AAA,5,4)
  thisform.TEXT6.VALUE = SUBSTR(AAA,9,4)
  thisform.TEXT4.ENABLED = .F.
  thisform.TEXT5.ENABLED = .F.
  thisform.TEXT6.ENABLED = .F.
  thisform.LABEL2.CAPTION = '您的软件序列号:'
  thisform.LABEL3.CAPTION =  ;
    '注册成功，您已成为本软件的合法用户！'
  thisform.确定1.VISIBLE = .F.
  thisform.取消1.CAPTION = '确定(\<T)'
ENDIF
ASTRING = GETCURRENTSERIALNO()
thisform.TEXT1.VALUE = SUBSTR(ASTRING,1,4)
thisform.TEXT2.VALUE = SUBSTR(ASTRING,5,4)
thisform.TEXT3.VALUE = SUBSTR(ASTRING,9,4)

不知道是否能编注册机出来，如何编写，请大家多多帮忙了！
不胜感激~~~~

注册算法应该就在PASSTOPASS这个过程（函数）中，楼主既已反出，再找一下这个过程就行了！

帮帮忙，顶起来啊！
求助~~~~~~~