Usuário com melhor resposta
Salvar em *.ini criptografado

Pergunta
-
Olá
Gente, eu salvo e abro informações salvas em meu ini usando:
Module modINI Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Public Sub SalvarIni(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamVal As String) Dim Result As Integer = WritePrivateProfileString(Section, ParamName, ParamVal, iniFileName) End Sub Public Function LerIni(ByVal IniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String Dim ParamVal As String = Space$(1024) Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), IniFileName) LerIni = Left$(ParamVal, LenParamVal) End Function End Module
Para carregar uso:
txtArquivo1.Text = LerIni("C:\file.ini", "Grupo", "Nome", "")
Para salvar uso:
SalvarIni("C:\file.ini", "Grupo", "0000000045", txtArquivo1.text)
Funciona perfeitamente.
No entanto como eu posso adaptar a este código para salvar os dados "criptografados" e descriptografar para ler?
Desde já agradeço.
- Editado Eliseu5 quarta-feira, 24 de fevereiro de 2016 23:47
Respostas
Todas as Respostas
-
Aqui neste site, tem uma função para criptografar e descriptografar um arquivo.
Acho que é perfeitamente adaptável ao seu código.
How to encrypt and decrypt a file by using Visual C#
Antero Marques
-
-
OI Amigo boa tarde ! Bom usando md5, base64, des, xor, cr4, etc..
ex projecto = http://www.macoratti.net/12/03/net_prot1.htm