首页
社区
课程
招聘
[旧帖] [求助]小弟不懂VF,我把它UNFOX,请VF高手帮忙看一下! 0.00雪花
发表于: 2007-7-3 11:41 5019

[旧帖] [求助]小弟不懂VF,我把它UNFOX,请VF高手帮忙看一下! 0.00雪花

2007-7-3 11:41
5019
小弟不懂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)

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

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (3)
雪    币: 145
活跃值: (59)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
小弟不懂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)

不知道是否能编注册机出来,如何编写,请大家多多帮忙了!
不胜感激~~~~
2007-7-3 16:34
0
雪    币: 200
活跃值: (13)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
注册算法应该就在PASSTOPASS这个过程(函数)中,楼主既已反出,再找一下这个过程就行了!
2007-7-3 16:42
0
雪    币: 145
活跃值: (59)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
帮帮忙,顶起来啊!
求助~~~~~~~
2007-7-4 17:48
0
游客
登录 | 注册 方可回帖
返回
//