Aplicativo para encriptar y desencriptar TXT generado por VFP

Hola tengo un programa que encripta los TXT que exporta, al decompilar la aplicación encontré este paso:

PROCEDURE decodifyFile
LOCAL sfilecontents AS ;
STRING
LOCAL breturnedvalue AS ;
BOOLEAN
LOCAL nencryptedfilehandle ;
AS NUMBER
WITH this
IF .NOT. ;
DIRECTORY(.destinationfilepath)
MD (.destinationfilepath)
ENDIF
breturnedvalue = .F.
sfilecontents = ""
sdecodedfilepart1 = ""
sdecodedfilepart2 = ""
iencodedfilemarkposition = ;
0
sencryptedfullname = ADDBS(.sourcefilepath) + ;
.sourcefilename
sdecryptedfullname = ADDBS(.destinationfilepath) + ;
.sourcefilename
_**BA=?? 616
this.flatfiletostr(sencryptedfullname, ;
@sfilecontents, ;
@nencryptedfilehandle)
IF SUBSTR(sfilecontents, ;
1, LEN('V' + CHR(91) + ;
'q' + CHR(179) + ;
CHR(22) + '96' + ;
CHR(240) + 'r' + ;
CHR(93))) = 'V' + ;
CHR(91) + 'q' + ;
CHR(179) + CHR(22) + ;
'96' + CHR(240) + ;
'r' + CHR(93)
iencodedfilemarkposition = ;
1
ELSE
iencodedfilemarkposition = ;
0
ENDIF
IF iencodedfilemarkposition > ;
0
sdecodedfile = STRCONV(SUBSTR(sfilecontents, ;
LEN('V' + ;
CHR(91) + ;
'q' + ;
CHR(179) + ;
CHR(22) + ;
'96' + ;
CHR(240) + ;
'r' + ;
CHR(93)) + ;
1), ;
14)
ifileid = FCREATE(sdecryptedfullname)
IF ifileid <> -1
FWRITE(ifileid, ;
sdecodedfile)
FCLOSE(ifileid)
breturnedvalue = ;
.T.
ENDIF
ELSE
= FCLOSE(nencryptedfilehandle)
COPY FILE ;
(sencryptedfullname) ;
TO ;
(sdecryptedfullname)
breturnedvalue = .T.
ENDIF
!_err=0xBB_! TO ;
oexception 725
IF oexception.errorno = ;
43 .OR. ;
oexception.errorno = ;
11
= FCLOSE(nencryptedfilehandle)
COPY FILE ;
(sencryptedfullname) ;
TO ;
(sdecryptedfullname)
breturnedvalue = .T.
ELSE
breturnedvalue = .F.
ENDIF
!_err=0xBE_!
.sivigilacryptostatus = ;
breturnedvalue
ENDWITH
ENDPROC

Me pueden ayudar a generar una aplicación sencilla de escritorio que permita encriptar y desencriptar este tipo de archivo.