CRIPTOGRAFAR ARQUIVO TXT
Olá pessoal. tenho uma função de grava e lê uma data em txt no diretório X
como faço pra criptografar essa data..
e queria esconder melhor essa informação...
[ô]Cria o Arquivo Saso não exista, e substitui caso Exista
Open [Ô]C:\WINDOWS\system32\Importa.txt[Ô] For Output As #1
Print #1, Format(Date, [Ô]dd/mm/yyyy[Ô])
[ô]Fecha o arquivo
Close #1
[ô]Lê o Arquivo Registrado
Open [Ô]C:\WINDOWS\system32\Importa.txt[Ô] For Input As #1
StrTexto = Input(FileLen([Ô]C:\WINDOWS\system32\Importa.txt[Ô]), #1)
Close #1
[ô]Verifica qual a Data Registrada
If StrTexto > [Ô]19/09/2010[Ô] Then
MsgBox [Ô]Entre em Contato com o Administrador do Sistema - (000) 0000-000 :-: 0000-0000 [Ô] & vbCrLf & [Ô]O Aplicativo não poderá ser aberto.[Ô] & vbCrLf & [Ô]e-mail : edjmp@hotmail.com [Ô], vbCritical, [Ô]ATENÇÃO[Ô]
Unload Me [ô]Cancela o Sistema
Exit Sub
End If
como faço pra criptografar essa data..
e queria esconder melhor essa informação...
[ô]Cria o Arquivo Saso não exista, e substitui caso Exista
Open [Ô]C:\WINDOWS\system32\Importa.txt[Ô] For Output As #1
Print #1, Format(Date, [Ô]dd/mm/yyyy[Ô])
[ô]Fecha o arquivo
Close #1
[ô]Lê o Arquivo Registrado
Open [Ô]C:\WINDOWS\system32\Importa.txt[Ô] For Input As #1
StrTexto = Input(FileLen([Ô]C:\WINDOWS\system32\Importa.txt[Ô]), #1)
Close #1
[ô]Verifica qual a Data Registrada
If StrTexto > [Ô]19/09/2010[Ô] Then
MsgBox [Ô]Entre em Contato com o Administrador do Sistema - (000) 0000-000 :-: 0000-0000 [Ô] & vbCrLf & [Ô]O Aplicativo não poderá ser aberto.[Ô] & vbCrLf & [Ô]e-mail : edjmp@hotmail.com [Ô], vbCritical, [Ô]ATENÇÃO[Ô]
Unload Me [ô]Cancela o Sistema
Exit Sub
End If
Segue em Anexo uma Classe que pode te ajudar nisso.
Tópico encerrado , respostas não são mais permitidas