converted from c# to vb.net

[VBnetster]

hihi, just a few tiny errors when i converted some code from c# to vb.net, here is the vb.net code. bugs are marked in red.

Imports System
Imports System.Security.Cryptography
Imports System.IO

Public Class Form1

    Private Function Encrypt(ByVal clearData() As Byte, ByVal Key() As Byte, ByVal IV() As Byte) As Byte()

        ' Create a MemoryStream that is going to accept the encrypted bytes 
        Dim ms As New MemoryStream()

        Dim alg As Rijndael = Rijndael.Create()
        alg.Key = Key

        alg.IV = IV
        Dim cs As New CryptoStream(ms, alg.CreateEncryptor(), CryptoStreamMode.Write)

        cs.Write(clearData, 0, clearData.Length)
        cs.Close()
        Dim encryptedData() As Byte = ms.ToArray()
        Return encryptedData
    End Function


    Public Function Encrypt(ByVal Data As String, ByVal Password As String, ByVal Bits As Integer) As String

        Dim clearBytes() As Byte = System.Text.Encoding.Unicode.GetBytes(Data)
        Dim pdb As PasswordDeriveBytes

        If Bits = 128 Then
            Dim encryptedData() As Byte = Encrypt(clearBytes, pdb.GetBytes(16), pdb.GetBytes(16))
            Return Convert.ToBase64String(encryptedData)
        ElseIf Bits = 192 Then
            Dim encryptedData() As Byte = Encrypt(clearBytes, pdb.GetBytes(24), pdb.GetBytes(16))
            Return Convert.ToBase64String(encryptedData)
        ElseIf Bits = 256 Then
            Dim encryptedData() As Byte = Encrypt(clearBytes, pdb.GetBytes(32), pdb.GetBytes(16))
            Return Convert.ToBase64String(encryptedData)
        Else
            Return String.Concat(Bits)
        End If
    End Function

    
    Private Function Decrypt(ByVal cipherData() As Byte, ByVal Key() As Byte, ByVal IV() As Byte) As Byte()

        Dim ms As New MemoryStream()
        Dim alg As Rijndael = Rijndael.Create()
        alg.Key = Key
        alg.IV = IV
        Dim cs As New CryptoStream(ms, alg.CreateDecryptor(), CryptoStreamMode.Write)
        cs.Write(cipherData, 0, cipherData.Length)
        cs.Close()
        Dim decryptedData() As Byte = ms.ToArray()
        Return decryptedData
    End Function

    Public Function Decrypt(ByVal Data As String, ByVal Password As String, ByVal Bits As Integer) As String

        Dim cipherBytes() As Byte = Convert.FromBase64String(Data)

        Dim pdb As New PasswordDeriveBytes(Password, New Byte() {&H0, &H1, &H2, &H1C, &H1D, &H1E, &H3, &H4, &H5, &HF, &H20, &H21, &HAD, &HAF, &HA4})

        If Bits = 128 Then
            Dim decryptedData() As Byte = Decrypt(cipherBytes, pdb.GetBytes(16), pdb.GetBytes(16))
            Return System.Text.Encoding.Unicode.GetString(decryptedData)
        ElseIf Bits = 192 Then
            Dim decryptedData() As Byte = Decrypt(cipherBytes, pdb.GetBytes(24), pdb.GetBytes(16))
            Return System.Text.Encoding.Unicode.GetString(decryptedData)
        ElseIf Bits = 256 Then
            Dim decryptedData() As Byte = Decrypt(cipherBytes, pdb.GetBytes(32), pdb.GetBytes(16))
            Return System.Text.Encoding.Unicode.GetString(decryptedData)
        Else
            Return String.Concat(Bits)
        End If

    End Function

    Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
        richTextBox1.Text = [COLOR="Red"]Aes.Decrypt[/COLOR](richTextBox1.Text, textBox1.Text, Integer.Parse(domainUpDown1.Text))
[COLOR="Blue"]'ERROR: Decrypt is not a member of System.Security.Cryptography.Aes[/COLOR]
    End Sub

    Private Sub button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        richTextBox1.Text = [COLOR="Red"]Aes.Encrypt[/COLOR](richTextBox1.Text, textBox1.Text, Integer.Parse(domainUpDown1.Text))
[COLOR="Blue"]'ERROR: Encrypt is not a member of System.Security.Cryptography.Aes[/COLOR]
    End Sub
End Class

well yeah 2 bugs. just not sure about how to solve them?

 

[Rocksteady]

Arn't you supposed to be using your Encrypt/Decrypt Methods?

Try Removing "Aec."

So

richTextBox1.Text = Decrypt(richTextBox1.Text, textBox1.Text, Integer.Parse(domainUpDown1.Text))