文字列をDES暗号化する

Sub Main()

    ' 鍵は8バイト
    Dim key() As Byte = Encoding.ASCII.GetBytes("password")

    ' 暗号化される文字列
    Dim source As Byte() = Encoding.Unicode.GetBytes("この文字列は暗号化されます。")

    ' 暗号化された後のバイト配列
    Dim encrypted As Byte()

    ' 暗号化
    encrypted = EncryptByDES(source, key)

    ' 復号化された後の文字列
    Dim decripted As Byte()

    decripted = DecryptByDES(encrypted, key)

    ' 文字列化して表示
    Console.WriteLine(Encoding.Unicode.GetString(decripted))

End Sub

' DESによってバイト配列を暗号化する
Function EncryptByDES(ByVal str As Byte(), ByVal encryptionKey() As Byte) As Byte()

    ' DESで暗号化するためのオブジェクト
    Dim des As New DESCryptoServiceProvider()

    ' 鍵は64ビット(8バイト)のバイト配列である必要がある
    des.Key = encryptionKey

    ' 初期化ベクタ(暗号化と復号化の際には同じIVを必要とする)
    des.IV = encryptionKey

    ' CryptoStreamオブジェクトを作成する
    Dim transform As ICryptoTransform = des.CreateEncryptor() ' Encryptorを作成する

    ' バイト配列を暗号化する
    Dim encrypted As Byte() = transform.TransformFinalBlock(str, 0, str.Length)

    transform.Dispose()

    Return encrypted

End Function

' DES暗号化されたバイト配列を復号化する
Function DecryptByDES(ByVal encrypted() As Byte, ByVal decryptionKey() As Byte) As Byte()

    ' DESで復号化するためのオブジェクト
    Dim des As New DESCryptoServiceProvider()

    ' 鍵は64ビット(8バイト)のバイト配列である必要がある
    des.Key = decryptionKey

    ' 初期化ベクタ(暗号化と復号化の際には同じIVを必要とする)
    des.IV = decryptionKey

    ' Decryptorを作成する
    Dim transform As ICryptoTransform = des.CreateDecryptor()

    ' バイト配列を復号化する
    Dim decrypted As Byte() = transform.TransformFinalBlock(encrypted, 0, encrypted.Length)

    transform.Dispose()

    Return decrypted

End Function

static void Main()
{
    // 鍵は8バイト
    byte[] key = Encoding.ASCII.GetBytes( "password" );

    // 暗号化される文字列
    byte[] source = Encoding.Unicode.GetBytes( "この文字列は暗号化されます。" );

    // 暗号化された後のバイト配列
    byte[] encrypted;

    // 暗号化
    encrypted = EncryptByDES( source, key );

    // 復号化された後の文字列
    byte[] decripted;

    decripted = DecryptByDES( encrypted, key );

    // 文字列化して表示
    Console.WriteLine( Encoding.Unicode.GetString( decripted ) );
}

// DESによってバイト配列を暗号化する
static byte[] EncryptByDES( byte[] str, byte[] encryptionKey )
{
    // DESで暗号化するためのオブジェクト
    DESCryptoServiceProvider des = new DESCryptoServiceProvider();

    // 鍵は64ビット(8バイト)のバイト配列である必要がある
    des.Key = encryptionKey;

    // 初期化ベクタ(暗号化と復号化の際には同じIVを必要とする)
    des.IV = encryptionKey;

    // Encryptorを作成する
    ICryptoTransform transform = des.CreateEncryptor();

    // バイト配列を暗号化する
    byte[] encrypted = transform.TransformFinalBlock( str, 0, str.Length );

    transform.Dispose();

    return encrypted;
}

// DESによってバイト配列を暗号化する
static byte[] DecryptByDES( byte[] encrypted, byte[] decryptionKey )
{
    // DESで暗号化するためのオブジェクト
    DESCryptoServiceProvider des = new DESCryptoServiceProvider();

    // 鍵は64ビット(8バイト)のバイト配列である必要がある
    des.Key = decryptionKey;

    // 初期化ベクタ(暗号化と復号化の際には同じIVを必要とする)
    des.IV = decryptionKey;

    // Decryptorを作成する
    ICryptoTransform transform = des.CreateDecryptor();

    // バイト配列を復号化する
    byte[] decrypted = transform.TransformFinalBlock( encrypted, 0, encrypted.Length );

    transform.Dispose();

    return decrypted;
}