FoxPro Tutorial & Source Code
* 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))
Also download:
|
|
