Senha criptografada

[Vandi]

Boa noite,

Estou precisando de uma rotina exemplo para criptografar senhas, salvar em um DBF e tbém ler do DBF.
Alguém teria algo parecido que possa disponibilizar aqui no forum?

Agradecimentos,

Gilvandi

[Pablo César]

Na seção de downloads tem alguns exemplos:

https://pctoledo.org/forum/fileba ... t=s&page=1
https://pctoledo.org/forum/fileba ... t=s&page=1
https://pctoledo.org/forum/fileba ... t=s&page=1

Dê uma olhada se satisfaz.

[Imatech]

Do fundo do Baú...

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 )