none
Salvar em *.ini criptografado RRS feed

  • 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
    quarta-feira, 24 de fevereiro de 2016 23:46

Respostas

  • OI Amigo boa tarde ! Bom usando md5, base64, des, xor, cr4, etc..

    ex projecto = http://www.macoratti.net/12/03/net_prot1.htm

    • Sugerido como Resposta Marcos SJ terça-feira, 1 de março de 2016 20:17
    • Marcado como Resposta Marcos SJ quarta-feira, 2 de março de 2016 17:56
    segunda-feira, 29 de fevereiro de 2016 17:35

Todas as Respostas