• 标 题:中国杂志管理系统之简单获取用户名和密码! (1千字)
  • 作 者:小球
  • 时 间:2001-3-13 22:43:08
  • 链 接:http://bbs.pediy.com

中国杂志管理系统之简单获取用户名和密码!
首先,我知道这个软件不用注册。而且作者也在readme中告诉我们初始用户名和密码。
只不过我想试试unfoxall的功能!呵呵!!!
它是用fox编的,当然用unfoxall来反编译!
用unfoxal打开中国杂志管理系统的主程序:cmmis.exe
然后选择反编译,指定一个目录。
在其目录中你会发现mima这个windows脚本部件。打开它你会看到如下:
PROCEDURE Click
IF  .NOT. EMPTY(THISFORM.TEXT1.VALUE) AND  .NOT. EMPTY(THISFORM.TEXT2.VALUE)
IF ALLTRIM(THISFORM.TEXT1.VALUE) = 'zmlm0k' AND  ; *这是另一个用户名。    
ALLTRIM(THISFORM.TEXT2.VALUE) = '88488341'          *和密码
  THISFORM.RELEASE
CLOSE DATABASES
DO mainmenu.mpr
ELSE
LOCATE FOR THISFORM.TEXT1.VALUE = PWDMAN.NAME AND THISFORM.TEXT2.VALUE = PWDMAN.PASSWD
IF  .NOT. EOF()
  THISFORM.RELEASE
CLOSE DATABASES
DO mainmenu.mpr
ELSE
CMESSAGETITLE = '提示信息'
CMESSAGETEXT = '密码错误,要重新输入吗?'
NDIALOGTYPE = 36
NANSWER = MESSAGEBOX(CMESSAGETEXT,NDIALOGTYPE,CMESSAGETITLE)
DO CASE
CASE NANSWER = 6
THISFORM.TEXT2.VALUE = ''
  THISFORM.TEXT1.SETFOCUS
CASE NANSWER = 7
CMESSAGETITLE = '警告信息'
CMESSAGETEXT = '密码错误,你不能进入本系统!'
  MESSAGEBOX(CMESSAGETEXT,0,CMESSAGETITLE)
  THISFORM.RELEASE
QUIT
ENDCASE
ENDIF
ENDIF
ELSE
WAIT WINDOW NOWAIT '未输入合法用户名或密码!'
ENDIF
ENDPROC
*------
PROCEDURE Destroy
&&----无事件!
ENDPROC      O
PROCEDURE LostFocus
CNAME = ALLTRIM(THISFORM.TEXT1.VALUE)
ENDPROC
*------      Q
PROCEDURE LostFocus
CPASSWD = ALLTRIM(THISFORM.TEXT2.VALUE)
ENDPROC
*------      R
PROCEDURE Click
  THISFORM.RELEASE
CLOSE DATABASES
QUIT
ENDPROC
*------