home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST39.PRG < prev    next >
Encoding:
Text File  |  1989-08-30  |  1.0 KB  |  48 lines
  1. ********************
  2.  
  3. FUNCTION Chkpass
  4.  
  5.    PARAMETERS _ckrow, _ckcol
  6.  
  7.    PRIVATE _oldcolor, _inpass, _chk, _t
  8.  
  9.    IF TYPE("scrtimes") = "U"
  10.       RETURN(.T.)
  11.    ENDIF
  12.    IF scrtimes = 0
  13.       RETURN(.T.)
  14.    ENDIF
  15.  
  16.    scrshow  = IF( (TYPE("scrshow") = "U"), .T., scrshow)
  17.    scrcolor = IF( (TYPE("scrcolor") = "U"), SETCOLOR(), scrcolor)
  18.    scrtimes = IF( (TYPE("scrtimes") = "U"), 0, scrtimes)
  19.    _inpass  = ""
  20.  
  21.    _oldcolor = SETCOLOR()
  22.    IF !scrshow
  23.       SETCOLOR(HIDEGET(_oldcolor))
  24.    ENDIF
  25.  
  26.    _showcolor = SETCOLOR()
  27.  
  28.    Windowpush(_ckrow-3, _ckcol-5, _ckrow+3, _ckcol+34)
  29.  
  30.    SETCOLOR(_showcolor)   && This is for the get working with the window logic.
  31.  
  32.    FOR _ckx = 1 to scrtimes
  33.       _inpass = SPACE(15)
  34.       @ _ckrow, _ckcol SAY "Password --> " GET _inpass PICT "XXXXXXXXXXXXXXX"
  35.       READ
  36.       IF !EMPTY(_inpass)
  37.          _t = GENPASS(_inpass)
  38.          IF _t = scrpass
  39.             _ckx = 1000
  40.          ENDIF
  41.       ENDIF
  42.    NEXT
  43.    Windowpop()
  44.    SETCOLOR(_oldcolor)
  45.    RETURN(_ckx > 101)
  46.  
  47. * End of File
  48.