none
Descriptogrando Dados para String RRS feed

  • Pergunta

  • Boa noite, eu estou em duvida se é possivel descriptografar um arquivo ja criptografado usando esse tuturial Como criptografar e descriptografar arquivos, mas ao invez de gerar um txt do arquivo descriptografado ele enviar esse resultado para uma string, isso é possivel?, se sim quais alteraçoes no codigo seriam necessarias....

    Obrigado pelas respostas....

    quarta-feira, 29 de janeiro de 2014 00:44

Respostas

  • Na hora de descriptografa, ele lê o texto primeiro antes de gravar no arquivo nessa linha:

      fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)

    Para você pegar em uma variável sting nesse momento basta colocar assim:

    Dim texto As String
    'Aqui lê o arquivo
    texto = New StreamReader(cryptostreamDecr).ReadToEnd
    'Aqui Grava
    fsDecrypted.Write(texto)


    Bruno Ferreira de Souza
    MVP - Microsoft Valuable Professional
    MCTS .NET Framework - Windows Applications
    MCPD .NET Framework - Windows Applications
    www.maestrodotnet.com.br
    @BrunoMaestro

    • Sugerido como Resposta Giovani Cr quarta-feira, 29 de janeiro de 2014 13:44
    • Marcado como Resposta TheKr4tosD quarta-feira, 29 de janeiro de 2014 20:06
    quarta-feira, 29 de janeiro de 2014 06:49

Todas as Respostas

  • Na hora de descriptografa, ele lê o texto primeiro antes de gravar no arquivo nessa linha:

      fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)

    Para você pegar em uma variável sting nesse momento basta colocar assim:

    Dim texto As String
    'Aqui lê o arquivo
    texto = New StreamReader(cryptostreamDecr).ReadToEnd
    'Aqui Grava
    fsDecrypted.Write(texto)


    Bruno Ferreira de Souza
    MVP - Microsoft Valuable Professional
    MCTS .NET Framework - Windows Applications
    MCPD .NET Framework - Windows Applications
    www.maestrodotnet.com.br
    @BrunoMaestro

    • Sugerido como Resposta Giovani Cr quarta-feira, 29 de janeiro de 2014 13:44
    • Marcado como Resposta TheKr4tosD quarta-feira, 29 de janeiro de 2014 20:06
    quarta-feira, 29 de janeiro de 2014 06:49
  • Mas ainda ele criar o txt o que eu tenho que alterar nesse codigo?

    Sub DecryptFile(ByVal sInputFilename As String, _
            ByVal sKey As String)
            sKey = "{?L?????"
            Dim texto As String
            Dim DES As New DESCryptoServiceProvider()
            DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
            DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
            Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
            Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
            Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
            Dim fsDecrypted As New StreamWriter("C:\Users\TheKr4tosD\Documents\Visual Studio 2013\Projects\test001\test001\file001.txt")
            texto = New StreamReader(cryptostreamDecr).ReadToEnd
            fsDecrypted.Write(texto)
            fsDecrypted.Flush()
            fsDecrypted.Close()
            form1.Label3.Text = texto
    

    quarta-feira, 29 de janeiro de 2014 23:53
  • Se você não quiser que ele grave basta tirar o código

     fsDecrypted.Write(texto)
            fsDecrypted.Flush()
            fsDecrypted.Close()

    e remover a variável fsDecrypted


    Bruno Ferreira de Souza
    MVP - Microsoft Valuable Professional
    MCTS .NET Framework - Windows Applications
    MCPD .NET Framework - Windows Applications
    www.maestrodotnet.com.br
    @BrunoMaestro

    quinta-feira, 30 de janeiro de 2014 00:31