Marcos_Antonio

Visual Basic 2010 express seria uma boa pra você

Olá a todos Membros do fórum, Sou novo aqui e gostaria de uma ajuda de vocês, vou explicar minha situação Estou com um programa em Visual Basic 6.0 aqui. que tem que ler um determinado arquivo "config.txt" só que esse arquivo vai estar criptografado, e se ele não estiver ele teria que me dar a informação de que não esta criptografado, e me dar a opção de criptografar "a opção de criptografia pode ser opcional, o importante é só informar que não esta criptografado, só isso seria de grande ajuda.", Bom vou mostrar como o código esta. Estou usando uma Classe de Form com o Nome Huffman.cls que é aonde ta o código da codificação e decodificação. Código abaixo 'Codificação de Huffman e Decodificação bolNomeServidor = True Call objHuffman.DecodeFile(App.Path & "\Config.txt", App.Path & "\Config.txt") strNomeServidorEHost = objHuffman.ConfigDescriptografado strNomeServidorEHostLimpo = Empty bolAgoraSoNum = False ContadorHost = 0 'Aqui ele vai verificar se o que esta escrito esta descriptografado e vai compor letra por letra, e virgula até completar o que estará no arquivo.txt se não estiver criptografado que seria o arquivo config.txt For ContadorHost = 1 To Len(Trim(strNomeServidorEHost)) If bolAgoraSoNum = True Then If IsNumeric(Mid(strNomeServidorEHost, ContadorHost, 1)) = False And Mid(strNomeServidorEHost, ContadorHost, 1) <> " " Then Exit For End If End If strNomeServidorEHostLimpo = strNomeServidorEHostLimpo & Mid(strNomeServidorEHost, ContadorHost, 1) If Mid(strNomeServidorEHost, ContadorHost, 1) = "," Then bolAgoraSoNum = True End If Next ContadorHost strNomeServidorEHost = strNomeServidorEHostLimpo 'strNomeServidorEHost = lerPrimeiraLinha(App.Path & "\Config.txt") 'Call Huffman.EncodeFile(App.Path & "\Config.txt", App.Path & "\Config.txt") Set objHuffman = Nothing Agradeço a ajuda de vocês desde já! Só pra lembrar ele teria que verificar se esta criptografado o arquivo config.txt e se não estiver ele teria q criptografar o arquivo config.txt.