Código: Selecionar todos
*-----------------------------------------------------------------------------*
* Rotina CRIPTOGRAFAR uma string
*-----------------------------------------------------------------------------*
FUNCTION F_RM_Criptografa( wTexto )
LOCAL iTam, wCodifica, wTam, wI, wResult, sSChar
wTam := LEN( wTexto )
iTam := 1
wResult := ""
for wI=1 to wTam
iTam := IIF(iTam>6,1,iTam++)
sSChar := SUBSTR( wTexto, wI, 1 )
wResult := wResult + CHR( ( ASC( sSChar ) * 2 ) + iTam )
next
RETURN( wResult )
*-----------------------------------------------------------------------------*
* Rotina CRIPTOGRAFAR uma string (REVERSO)
*-----------------------------------------------------------------------------*
FUNCTION F_RM_Cript_Reverse( wTexto )
LOCAL iTam, wCodifica, wTam, wI, wResult, sSChar
wTam := LEN( wTexto )
iTam := 1
wResult := ""
for wI=1 to wTam
iTam := IIF(iTam>6,1,iTam++)
sSChar := SUBSTR( wTexto, wI, 1 )
wResult := wResult + CHR( ( ASC( sSChar ) + (iTam*(-1)) ) / 2 )
next
RETURN( wResult )