Encrypt Video File with Vb.net 2010 and Decrypt and Play it with Actionscript3

See more:

VB

Flash

encryption

I made application to encrypt flv & swf files with vb.net 2010 using DES Algorithm.

Now I want to Decrypt it with Actionsript3 and play it. Here is the my Vb code. I try to convert it to Actionsript3. But I cannot get good results. I am not expert about These two subjects. Please anyone can help me.

Imports System.Security
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports System.Object
Imports System.Security.Cryptography.SymmetricAlgorithm
Imports System.Security.Cryptography.DES
Imports System.Security.Cryptography.DESCryptoServiceProvider

Public Class Form1


Dim strFileToEncrypt As String
Dim strFileToDecrypt As String
Dim strOutputEncrypt As String
Dim strOutputDecrypt As String
Dim fsInput As System.IO.FileStream
Dim fsOutput As String



Dim DES1 As DESCryptoServiceProvider = New DESCryptoServiceProvider()
Dim DES1Key = ASCIIEncoding.ASCII.GetBytes("12345678")
Dim DES1IV = ASCIIEncoding.ASCII.GetBytes("12345678")
Dim encryptation1 As ICryptoTransform = DES1.CreateDecryptor(DES1Key, DES1IV)



Private Sub btnBrowseEncrypt_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles btnBrowseEncrypt.Click
    'Setup the open dialog.
    OpenFileDialog1.FileName = ""
    OpenFileDialog1.Title = "Choose a file to encrypt"
    OpenFileDialog1.InitialDirectory = "C:\"
    OpenFileDialog1.Filter = "All Files (*.*) | *.*"

    'Find out if the user chose a file.
    If OpenFileDialog1.ShowDialog = DialogResult.OK Then
        strFileToEncrypt = OpenFileDialog1.FileName
        txtFileToEncrypt.Text = strFileToEncrypt


        Dim iPosition As Integer = 0
        Dim i As Integer = 0

        'Get the position of the last "\" in the OpenFileDialog.FileName path.
        '-1 is when the character your searching for is not there.
        'IndexOf searches from left to right.
        While strFileToEncrypt.IndexOf("\"c, i) <> -1
            iPosition = strFileToEncrypt.IndexOf("\"c, i)
            i = iPosition + 1
        End While

        'Assign strOutputFile to the position after the last "\" in the path.
        'This position is the beginning of the file name.
        strOutputEncrypt = strFileToEncrypt.Substring(iPosition + 1)
        'Assign S the entire path, ending at the last "\".

        'Update buttons.
        btnEncrypt.Enabled = True
        btnChangeEncrypt.Enabled = True
    End If
End Sub


Private Sub btnChangeEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChangeEncrypt.Click
    'Setup up folder browser.
    FolderBrowserDialog1.Description = "Select a folder to place the encrypted file in."
    'If the user selected a folder assign the path to txtDestinationEncrypt.
    If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
        txtDestinationEncrypt.Text = FolderBrowserDialog1.SelectedPath 
    End If
End Sub

Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
    Try
        Dim ProcessFileStream As FileStream = New FileStream(strFileToEncrypt, FileMode.Open, FileAccess.Read)
        Dim ResultFileStream As FileStream = New FileStream(strOutputEncrypt, FileMode.Create, FileAccess.Write)

        Dim myCryptoStream As CryptoStream = New CryptoStream(ResultFileStream, encryptation1, CryptoStreamMode.Write)
        Dim bytearrayinput(ProcessFileStream.Length - 1) As Byte
        ProcessFileStream.Read(bytearrayinput, 0, bytearrayinput.Length)
        myCryptoStream.Write(bytearrayinput, 0, bytearrayinput.Length)
        myCryptoStream.Close()
        ProcessFileStream.Close()
        ResultFileStream.Close()
    Catch ex As Exception
        Console.WriteLine(ex.Message)
    End Try
    Console.ReadLine()
End Sub
End Class