home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / clipper / nannws24.arc / SHOW_ENC.PRG < prev   
Text File  |  1988-05-18  |  626b  |  39 lines
  1. * Program: SHOW_ENC.PRG
  2. * Author:  Bao Hoang
  3. * Version: Clipper Summer '87
  4. * Notes:   Example program to illustrate ENCRYPT()
  5. * Copyright (c) 1988 Nantucket Corp.
  6. *
  7. * initialize variables
  8. VAR1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  9. KEY  = "HI"
  10. VAR2 = SPACE(LEN(VAR1))
  11. VAR3 = VAR2
  12.  
  13. * encrypt the data
  14. ENCRYPT(VAR1, KEY, VAR2)
  15.  
  16. * display results
  17. CLEAR
  18. ? VAR1
  19. ? KEY
  20. ? VAR2
  21.  
  22. * wait to let the eye and brain catch up
  23. WAIT
  24.  
  25. * un-encrypt the data
  26. ENCRYPT(VAR2, KEY, VAR3)
  27.  
  28. * display un-encrypted results
  29. ? VAR2
  30. ? KEY
  31. ? VAR3
  32. ? VAR1 == VAR3
  33.  
  34. * wait to let the eye and brain catch up
  35. WAIT
  36.  
  37. * buy by.
  38. QUIT
  39.