pcsoft.br.windevCopyright 2026, PC SOFT4 Mar 2015 16:20:05 Z4 Mar 2015 16:20:05 ZCaros colegas. Tenho um arquivo em txt que o conteudo do mesmo e criptografado assim: [code:wl] xCodigo = Crypt(sXML,"07217566000119",cryptSecure) [/code] 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: [code:wl] 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 [/code] Entaum acontece que a leitura do conteudo do txt eh lido mas n se consegue descriptografa-lo. O que estou fazendo errado. Marcos Roberto30WEBDEVpt_BRhttps://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/146-descripitografar-arquivo/read.awpmoderateur@pcsoft.fr (Le modérateur)webmaster@pcsoft.fr (Le Webmaster)