Diversas vezes já me deparei na situação de precisar compactar conteúdo nos sistemas .NET e sempre tive provlema para encontrar um algorítimo para fazer-lo corretamente.

Aproveito agora para compartilhar a classe de compressão para Array de Bytes que eu recentemente aperfeiçoei.

C#

using System.IO;
using System.IO.Compression;
namespace CompressorGenerico
{
    /// <summary>
    /// Classe de Compressão
    /// </summary>
    public class Compressor
    {
        /// <summary>
        /// Comprime um Array de Bytes
        /// </summary>
        /// <param name="data">Array de Bytes a ser Compactado</param>
        /// <returns>Array de Bytes Compactado</returns>
        public byte[] Compress(byte[] data)
        {
            // Cria Objetos
            MemoryStream outputMemoryStream;
            GZipStream gZipStream;
            // Inicializa MemoryStream
            using (outputMemoryStream = new MemoryStream())
            {
                // Inicializa Stream de Compressão
                using (gZipStream = new GZipStream(outputMemoryStream, CompressionMode.Compress, true))
                {
                    gZipStream.Write(data, 0, data.Length);
                }
            }
            // Retorna o Array Comprimido
            return outputMemoryStream.ToArray();
        }
        /// <summary>
        /// Descomprime um Array de Bytes
        /// </summary>
        /// <param name="data">Array de Bytes a Compactar</param>
        /// <returns>Array de Bytes Descompactado</returns>
        public byte[] Decompress(byte[] data)
        {
            // Cria Objetos
            MemoryStream inputMemoryStream;
            MemoryStream outputMemoryStream;
            GZipStream gZipStream;
            byte[] buff;
            int read;
            // Inicializa o MemoryStream de Inicialização
            using (inputMemoryStream = new MemoryStream())
            {
                // Escreve o Array de Entrada no MemoryStream
                inputMemoryStream.Write(data, 0, data.Length);
                // Ajusta Ponteiro de Posição
                inputMemoryStream.Position = 0;
                // Inicializa Stream de Descompressão
                using (gZipStream = new GZipStream(inputMemoryStream, CompressionMode.Decompress, true))
                {
                    // Inicializa Stream de Resultado
                    outputMemoryStream = new MemoryStream();
                    // Inicializa Buffer (64 Bytes)
                    buff = new byte[64];
                    // Executa 1º Leitura dos Dados para o Buffer
                    read = gZipStream.Read(buff, 0, buff.Length);
                    // Executa Enquando Ouver Dados a Serem Lidos
                    while (read > 0)
                    {
                        // Escreve o Bloco de Código Descomprimido para o Stream de Resultado
                        outputMemoryStream.Write(buff, 0, read);
                        // Executa Leituras Subsequentes.
                        read = gZipStream.Read(buff, 0, buff.Length);
                    }
                }
            }
            // Retorna o Stream Descompactado
            return outputMemoryStream.ToArray();
        }
    }
}

VB.NET

Imports System.IO.Compression
Imports System.IO
Namespace CompressorGenerico
    ''' <summary>
    ''' Classe de Compressão
    ''' </summary>
    ''' <remarks></remarks>
    Public Class Compressor
        ''' <summary>
        ''' Comprime um Array de Bytes
        ''' </summary>
        ''' <param name="data">Array de Bytes a ser Compactado</param>
        ''' <returns>Array de Bytes Compactado</returns>
        Public Function Compress(ByVal data As Byte()) As Byte()
            ' Cria Objetos
            Dim outputMemoryStream As MemoryStream
            Dim gZipStream As GZipStream
            ' Inicializa MemoryStream
            outputMemoryStream = New MemoryStream()
            Using (outputMemoryStream)
                ' Inicializa Stream de Compressão
                gZipStream = New GZipStream(outputMemoryStream, CompressionMode.Compress, True)
                Using (gZipStream)
                    gZipStream.Write(data, 0, data.Length)
                End Using
            End Using
            ' Retorna o Array Comprimido
            Return outputMemoryStream.ToArray()
        End Function
        ''' <summary>
        ''' Descomprime um Array de Bytes
        ''' </summary>
        ''' <param name="data">Array de Bytes a Compactar</param>
        ''' <returns>Array de Bytes Descompactado</returns>
        Public Function Decompress(ByVal data As Byte()) As Byte()
            ' Cria Objetos
            Dim inputMemoryStream As MemoryStream
            Dim outputMemoryStream As MemoryStream
            Dim GZipStream As GZipStream
            Dim buff As Byte()
            Dim read As Integer
            ' Inicializa o MemoryStream de Inicialização
            inputMemoryStream = New MemoryStream()
            Using (inputMemoryStream)
                ' Escreve o Array de Entrada no MemoryStream
                inputMemoryStream.Write(data, 0, data.Length)
                ' Ajusta Ponteiro de Posição
                inputMemoryStream.Position = 0
                ' Inicializa Stream de Descompressão
                GZipStream = New GZipStream(inputMemoryStream, CompressionMode.Decompress, True)
                Using (GZipStream)
                    ' Inicializa Stream de Resultado
                    outputMemoryStream = New MemoryStream()
                    ' Inicializa Buffer (64 Bytes)
                    ReDim buff(64)
                    ' Executa 1º Leitura dos Dados para o Buffer
                    read = GZipStream.Read(buff, 0, buff.Length)
                    ' Executa Enquando Ouver Dados a Serem Lidos
                    While (read > 0)
                        ' Escreve o Bloco de Código Descomprimido para o Stream de Resultado
                        outputMemoryStream.Write(buff, 0, read)
                        ' Executa Leituras Subsequentes.
                        read = GZipStream.Read(buff, 0, buff.Length)
                    End While
                End Using
            End Using
            ' Retorna o Stream Descompactado
            Return outputMemoryStream.ToArray()
        End Function
    End Class
End Namespace

Posts Relacionados:

1. Compressão de (Compactar) ViewState
2. Calculando CRC de Strings (Texto), Array’s e Arquivos
3. Converter um Array de Bytes para String e String para Array de Bytes
4. Convertendo String Delimitada por Tamanho (Trancode) em Array
5. Convertendo Caminhos Absolutos e URL’s Absolutas para Caminhos Relativos e URL’s Relativas
6. Algoritmo para Validação de CPF
7. Abrindo Arquivos de Texto e Lendo Todo o Conteúdo