Clipper On Line • Ver Tópico - CRIPTOGRAFIA

CRIPTOGRAFIA

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

CRIPTOGRAFIA

Mensagempor EANDRIOLI » 16 Jun 2017 17:58

Boa tarde mestres...

Gostaria de tirar uma dúvida. No fonte abaixo temos o retorno de somente os caracteres que fazem parte do dado gravado em arquivo, por exemplo as letras "AEI".

Ocorre que se esse dado gravado seja do tamanho 5 (físico), a rotina quando mostrada na tela, só deixa fazer alterações num tamanho 3 (que é o tamanho da informação do dado).

Vejam o fonte que lê e retorna na tela o dado DESCRIPTOGRAFADO:

*------------------------------
function decodifica( _txtcrip_ )
*------------------------------
  _texto_ := ''
  for i = 1 to len(alltrim(_txtcrip_))
    _texto_ := _texto_ + chr(asc(substr(_txtcrip_,i,1))-130)
  next
return _texto_


Qual a mudança a ser feita para que o GET/READ seja de tamanho 5, inclusive mostrando o dado gravado, que no exemplo acima, são as letras "AEI" ?

Saudações.

ERASMO ANDRIOLI
Avatar de usuário

EANDRIOLI
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 107
Data de registro: 22 Jun 2007 18:31
Cidade/Estado: Sorriso-MT
Curtiu: 0 vez
Mens.Curtidas: 0 vez

CRIPTOGRAFIA

Mensagempor JoséQuintas » 16 Jun 2017 18:46

Que tal aproveitar e simplificar a rotina?

FUNCTION Decodifica( cOrigem )

   LOCAL cDestino := "", cLetra
   
   FOR EACH cLetra IN Trim( cOrigem )
      cDestino += Chr( Asc( cLetra ) - 130 )
   NEXT
   
   RETURN Pad( cDestino, 5 )
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9419
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 548 vezes




Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro