中國雜誌管理系統之簡單獲取使用者名稱和密碼！
首先，我知道這個軟體不用註冊。而且作者也在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
*------