中国杂志管理系统之简单获取用户名和密码！
首先，我知道这个软件不用注册。而且作者也在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
*------