IF CRIPTOGRAFADO

MARCELOFAZAN 21/07/2010 22:34:57
#348083
Pessoal encriptei dessa forma

Print #1, CriptografarTexto(Format(Date, [Ô]dd/mm/yyyy[Ô]), [Ô]a[Ô])

e desencriptar dessa forma

StrTexto = DescriptografarTexto(Input(FileLen([Ô]C:\WINDOWSegist.txf[Ô]), #1), [Ô]a[Ô])


Só que nesse código esses campos tem um IF fiz tudo que é sintax mais nada que arrendondo

If DateDiff([Ô]d[Ô], StrTexto, Format(Date, [Ô]dd/mm/yyyy[Ô])) Then

como encaixar o criptografa e se necessita mesmo para fazer esse if rodar ?

o erro é Type mistach error 13

Alguem ?
Abs
Marcelo Fazan
JSFF77 22/07/2010 06:55:16
#348084 Resposta escolhida
Bom dia, amigo.

Faça um pequeno ajuste nessa linha 
If DateDiff([Ô]d[Ô], StrTexto, Format(Date, [Ô]dd/mm/yyyy[Ô])) Then
para que fique assim:
If DateDiff([Ô]d[Ô], CDate(StrTexto), Format(Date, [Ô]dd/mm/yyyy[Ô])) Then

Até breve.


JSFF77
MARCELOFAZAN 22/07/2010 11:32:20
#348121
Ok amigo deu certo
If DateDiff([Ô]d[Ô], CDate(Left(StrTexto, 10)), Format(Date, [Ô]dd/mm/yyyy[Ô])) Then

agora preciso o seguinte

Essas 2 partes parecem estar certas o Descriptografar

Text2.Text = DescriptografarTexto(ReadINI([Ô]serial[Ô], [Ô]control[Ô], [Ô]C:\WINDOWS\Tmp.txf[Ô]), [Ô]b[Ô])
Text3.Text = DescriptografarTexto(ReadINI([Ô]acessos[Ô], [Ô]Contador[Ô], [Ô]C:\WINDOWS\Tmp.txf[Ô]), [Ô]b[Ô])

Só que pra criptografar nao da erro mais nao criptografa

Call WriteINI([Ô]acessos[Ô], [Ô]Contador[Ô], CriptografarTexto(Text3.Text, [Ô]b[Ô]) - 1, [Ô]C:\WINDOWS\Tmp.txf[Ô])

Alguem saberia o que Nao grava criptografado

Abs
Marcelo Fazan
Tópico encerrado , respostas não são mais permitidas
Voltar