vfp encryption decryption | vfp encry decry | foxpro encryption decrypti...

LIB.PRG  CODE

***Start of LIB.prg file

function enfunc(cToencrypt)

content=""

FOR e=1 to LEN(cToencrypt)

    m.ch = SUBSTR(cToencrypt,e,1)

    IF ASC(m.ch) < 123

         Content = Content + CHR(ASC(m.ch)+100)

      ELSE

        Content = Content + m.ch

      ENDIF

NEXT

return content

function defunc(cTodecrypt)

content=""

FOR e=1 to LEN(cTodecrypt)

    m.ch = SUBSTR(cTodecrypt,e,1)

    IF ASC(m.ch) > 123

         Content = Content + CHR(ASC(m.ch)-100)

      ELSE

        Content = Content + m.ch

      ENDIF

NEXT

return content

***End of LIB.prg file

LST.PRG  CODE

*Start of LST.prg file

CLOSE TABLES ALL

SET LIBRARY TO LIB

USE USERDET

CLEAR 

GO TOP 

DO WHILE !EOF()

SELECT USERDET

?USERDET.USERID +"----"+DEFUNC(USERDET.USERPASS) FONT "ARIAL",18

SELECT USERDET 

SKIP

enddo

*End of LST.prg file