ai esta a função ela foi usando no exemplo do controle finaceiro da minigui 1.08 feita por Humberto Fornazier
Function Decripta( cPalavra )
Local nTam := 0
Local cChave := "@#$%*"
Local cCripitado := ""
Local i :=0
cPalavra := Iif( Empty( cPalavra ), "Ze Coolmeia", cPalavra )
nTam := Len( cPalavra )
Do While Len( cChave ) < nTam
cChave += cChave
EndDo
cCripitado := ""
For i := 1 To nTam
cCripitado += Chr( Asc( SubStr( cPalavra, i, 1 ) ) - Asc( SubStr( cChave, i, 1 ) ) )
Next
Return cCripitado
/*
*/
Function Encripta( cPalavra )
Local nTam := 0
Local cChave := "@#$%*"
Local cCripitado := ""
Local i :=0
cPalavra := Iif( Empty( cPalavra ), "Ze Coolmeia", cPalavra )
nTam := Len( cPalavra )
Do While Len( cChave ) < nTam
cChave += cChave
EndDo
cCripitado := ""
For i := 1 To nTam
cCripitado += Chr( Asc( SubStr( cPalavra, i, 1 ) ) + Asc( SubStr( cChave, i, 1 ) ) )
Next
Return cCripitado