Foro de elhacker.net

Estoy diseñando una clase que guarda información en un archivo y utiliza DeflateStream como método de compresión, no hay casi información de como comprimir datos en forma de Bytes(), hay mucha documentación de ir directamente al trabajo con archivos, entonces diseñe esta función que al parecer funciona correctamente, pero se pierden algunos Bytes del final de la información comprimida y no encuentro el error por ningún lado, quizás es mal uso de DeflateStream.

Para probar la perdida de los datos hice esta prueba:

Imports System.IO, System.IO.Compression, System.Text, System.Security.Cryptography
 
Module Module1
 
#Region " Algoritmo de DeCompresión Deflate "
 
    Public Function DeflateDeCompress(ByVal Data As Byte(), _
                                      ByVal Action As CompressionMode) As Byte()
 
        DeflateDeCompress = Nothing
 
        Dim ResultStream As MemoryStream = Nothing
        Dim DeCompresser As DeflateStream = Nothing
        Dim A As Integer, B As New List(Of Byte)
 
        Try
 
            If Action = CompressionMode.Compress Then
                ResultStream = New MemoryStream
                DeCompresser = New DeflateStream(ResultStream, CompressionMode.Compress)
                DeCompresser.Write(Data, 0, Data.Length)
                ResultStream.Position = 0
                DeflateDeCompress = ResultStream.ToArray
            Else
                ResultStream = New MemoryStream(Data)
                ResultStream.Position = 0
                DeCompresser = New DeflateStream(ResultStream, CompressionMode.Decompress)
                DeflateDeCompress = New Byte() {}
 
                DeCompresser.ReadByte() : A = DeCompresser.ReadByte
 
                While A <> -1
                    B.Add(CByte(A))
                    A = DeCompresser.ReadByte
                End While
 
                DeflateDeCompress = B.ToArray : B.Clear()
 
            End If
 
            If DeCompresser IsNot Nothing Then
                DeCompresser.Dispose()
            End If
 
            If ResultStream IsNot Nothing Then
                ResultStream.Dispose()
            End If
 
        Catch ex As Exception
            Return Nothing
        End Try
 
    End Function
 
#End Region
 
    Public Function MD5_String(ByVal Data As Byte()) As String
 
        Return BitConverter.ToString(MD5.Create.ComputeHash(Data)).Replace("-", "").ToLower
 
    End Function
 
    Sub Main()
 
        Dim x As String = "C:\ejemplo.txt"
        Dim y As Byte() = File.ReadAllBytes(x)
        Dim z As Byte() = DeflateDeCompress(y, CompressionMode.Compress)
        Dim a As Byte() = DeflateDeCompress(z, CompressionMode.Decompress)
 
        Console.WriteLine("Archivo de Entrada: {0}", x)
        Console.WriteLine("Tamaño de Entrada: {0} bytes", y.Length)
        Console.WriteLine("MD5-{0}", MD5_String(y))
        Console.WriteLine()
        Console.WriteLine("Tamaño Comprimido: {0} bytes ({1}%)", z.Length, Math.Round(z.Length / y.Length * 100 - 100, 2))
        Console.WriteLine("MD5-{0}", MD5_String(z))
        Console.WriteLine()
        Console.WriteLine("Tamaño Descomprimido: {0} bytes", a.Length)
        Console.WriteLine("MD5-{0}", MD5_String(a))
        Console.WriteLine()
        Console.WriteLine("Perdida de {0} bytes", y.Length - a.Length)
 
        Erase y, z, a
 
        Console.Read()
 
    End Sub
 
End Module
 

Gracias de antemano :)