home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
clipper
/
nannws24.arc
/
SHOW_ENC.PRG
< prev
Wrap
Text File
|
1988-05-18
|
626b
|
39 lines
* Program: SHOW_ENC.PRG
* Author: Bao Hoang
* Version: Clipper Summer '87
* Notes: Example program to illustrate ENCRYPT()
* Copyright (c) 1988 Nantucket Corp.
*
* initialize variables
VAR1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
KEY = "HI"
VAR2 = SPACE(LEN(VAR1))
VAR3 = VAR2
* encrypt the data
ENCRYPT(VAR1, KEY, VAR2)
* display results
CLEAR
? VAR1
? KEY
? VAR2
* wait to let the eye and brain catch up
WAIT
* un-encrypt the data
ENCRYPT(VAR2, KEY, VAR3)
* display un-encrypted results
? VAR2
? KEY
? VAR3
? VAR1 == VAR3
* wait to let the eye and brain catch up
WAIT
* buy by.
QUIT