Function to encrypt / decrypt text For String in FoxPro

Simple Password Program written in FoxPro

 Author      : Team of Pelagian Softwares
* Date        : 19/07/2007
* Source      : dec.prg
* Description : Function to encrypt / decrypt text


* usage to decrypt:  deCrypt ( text/variable/fields, any number number )
* usage to encrypt:  enCrypt ( text/variable/fields, number used in deCrypt )

accept "Enter any text to decrypt/encrypt: " to mytext
input  "Enter any number: " to enc_number



decTxt = enCrypt( mytext, enc_number)
encTxt = decCrypt( decTxt, enc_number)

?"Your Text : ",mytext
?"Your encrypted Text :", decTxt
?"Now decrypted Text :", encTxt

FUNCTION enCrypt
 
   PARAMETER val1, val2
   cVal = ""
   FOR i = 1 to Len(val1)
    cVal = cVal + CHR(ASC(SUBS(val1,i,1))+val2)
   NEXT i

reTurn LEFT(cVal,Len(val1))


FUNCTION decCrypt
 
   PARAMETER val1, val2
   cVal = ""
   FOR i = 1 to Len(val1)
    cVal = cVal + CHR(ASC(SUBS(val1,i,1))-val2)
   NEXT i

reTurn LEFT(cVal,Len(val1))