User Function Exemplo()
local cContent := "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque odio mauris, cursus consectetur egestas eu, fermentum sit amet felis. Cras eget ante vel odio sodales suscipit. Donec eget quam sit amet quam dapibus dapibus eget ut diam. Etiam pretium iaculis justo in sagittis. Suspendisse mattis semper urna, a mollis nibh faucibus sed. Etiam laoreet at tellus vitae lobortis. Praesent convallis feugiat lacus at viverra."
local cCripContent
local cDecripContent
cCripContent := WebEncript(cContent, .F.)
cDecripContent := WebEncript(cCripContent, .T.)
if cDecripContent == cContent
ConOut("Conteudos são iguais")
endif
Return
|