GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Descripitografar arquivo
Descripitografar arquivo
Iniciado por MarcosRoberto, mar., 04 2015 4:20 PM - Sem resposta
Conecte-se…
MarcosRoberto
#1
Membro registado
11 mensagems
Popularité : +2 (2 votes)
Publicado em março, 04 2015 - 4:20 PM
Caros colegas. Tenho um arquivo em txt que o conteudo do mesmo e criptografado assim:
x
Codigo
=
Crypt
(
s
XML
,
"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
(
s
ArqDestino
) =
True
THEN
XMLSource
=
fLoadText
(
s
ArqDestino
)
s
XML
=
XMLSource
//XMLExtractString(XMLSource, "codigo")
Info
(
s
XML
)
// Aqui eu tenho o conteudo do campo criptografado
IF
s
XML
=
""
THEN
Info
(
"Não foi possivel baixar o codigo de ativacao."
+
CRLF
+
"Tente novamente mais tarde."
)
ReturnToCapture
(
EDT_
CNPJEmpresa
)
END
s
XML
=
Uncrypt
(
s
XML
,
"07217566000119"
,
cryptSecure
)
Info
(
s
XML
)
// Aqui o a variavel vem vazia e deveria vim com o conteudo descriptografado.
s
XMLCNPJ
=
Middle
(
s
XML
,
1
,
14
)
s
XMLReset
=
Middle
(
s
XML
,
16
,
10
)
Info
(
"CNPJ: "
+
s
XMLCNPJ
+
CRLF
+
"RESET: "
+
s
XMLReset
)
IF
RemoveCar
(
EDT_
CNPJEmpresa
) <
>
s
XMLCNPJ
THEN
Info
(
"Codigo de ativacao nao pertence a este CNPJ/CPF"
)
ReturnToCapture
(
EDT_
CNPJEmpresa
)
END
EDT_
CNPJEmpresa
=
s
XMLCNPJ
EDT_
DataReset
=
StringToDate
(
s
XMLReset
)
fDelete
(
s
ArqDestino
)
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
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto