home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / rlib / rl_decry.prg < prev    next >
Encoding:
Text File  |  1989-02-18  |  387 b   |  19 lines
  1. * Function: DECRYPTED
  2. * Author..: Richard Low
  3. * Syntax..: DECRYPTED()
  4. * Returns.: Un-encrypted character string encrypted with ENCRYPTED(exp<C>)
  5. *
  6.  
  7. FUNCTION DECRYPTED
  8. PARAMETER p_string
  9. PRIVATE f_temp, f_length, f_x
  10.  
  11. f_temp = ''
  12. f_length  = LEN(p_string)
  13.  
  14. FOR f_x = 1 TO f_length
  15.    f_temp = f_temp + CHR(ASC(SUBSTR(p_string,f_x,1))-101-f_x)
  16. NEXT f_x
  17.  
  18. RETURN (f_temp)
  19.