PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 25 → Descripitografar arquivo
Descripitografar arquivo
Iniciado por Marcos Roberto, mar., 04 2015 4:20 PM - Sem resposta
#1
Membro registado
11 mensagems
Publicado em março, 04 2015 - 4:20 PM
Caros colegas. Tenho um arquivo em txt que o conteudo do mesmo e criptografado assim:

xCodigo = Crypt(sXML,"07217566000119",cryptSecure)


Isso no windev 19

Entaum crio um arquivo txt cujo o conteudo estah criptografado. Blza ateh ai tudo bem. Depois eu importo esse arquivo txt para o windev mobile 19 conforme o codigo abaixo:

IF fFileExist(sArqDestino) = True THEN
XMLSource = fLoadText(sArqDestino)
sXML = XMLSource //XMLExtractString(XMLSource, "codigo")
Info(sXML) // Aqui eu tenho o conteudo do campo criptografado
IF sXML = "" THEN
Info("Não foi possivel baixar o codigo de ativacao."+CRLF+"Tente novamente mais tarde.")
ReturnToCapture(EDT_CNPJEmpresa)
END
sXML = Uncrypt(sXML,"07217566000119",cryptSecure)
Info(sXML) // Aqui o a variavel vem vazia e deveria vim com o conteudo descriptografado.
sXMLCNPJ = Middle(sXML,1,14)
sXMLReset = Middle(sXML,16,10)
Info("CNPJ: "+sXMLCNPJ+CRLF+"RESET: "+sXMLReset)
IF RemoveCar(EDT_CNPJEmpresa) <> sXMLCNPJ THEN
Info("Codigo de ativacao nao pertence a este CNPJ/CPF")
ReturnToCapture(EDT_CNPJEmpresa)
END

EDT_CNPJEmpresa = sXMLCNPJ
EDT_DataReset = StringToDate(sXMLReset)
fDelete(sArqDestino)
ELSE
Info("Não foi possivel ativar o app via internet. É necessário digitar a senha para ativar.")
ReturnToCapture(EDT_SenhaAcesso)
END

Entaum acontece que a leitura do conteudo do txt eh lido mas n se consegue descriptografa-lo.

O que estou fazendo errado.

Marcos Roberto
→ Voltar para WINDEV 25