home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST102.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  799 b   |  35 lines
  1. **********************
  2.  
  3. FUNCTION Decrypt
  4.  
  5.    PARAMETERS _temp, _seed
  6.  
  7.    * _temp is the character string to be encrypted
  8.    * _padback is the length of the _temp string
  9.    * _retchr is the final decrypted string to be returned
  10.    * _qaz is the counter
  11.  
  12.    IF EMPTY(PCOUNT())
  13.       RETURN("")
  14.    ELSEIF TYPE("_temp") != "C"
  15.       RETURN("")
  16.    ELSEIF PCOUNT() = 1
  17.       _seed = 104
  18.    ELSEIF TYPE("_seed") != "N"
  19.       RETURN("")
  20.    ENDIF
  21.  
  22.    _seed = IF(_seed > 128, _seed % 128, _seed)
  23.  
  24.    PRIVATE _padback, _retchr, _qaz
  25.  
  26.    _padback = LEN(_temp)
  27.    _retchr   = ""
  28.    _temp  = LTRIM(TRIM(_temp))
  29.    FOR _qaz = LEN(_temp) TO 1 STEP -1
  30.       _retchr = _retchr + CHR(ASC(SUBSTR(_temp, _qaz, 1)) - _seed)
  31.    NEXT
  32.    RETURN(FILL_OUT(_retchr, _padback))
  33.  
  34. * End of File
  35.