what is wrong with my rc6 code in vb.net

Public Class Form1
    Private Shared w As Integer = 32, r As Integer = 20
    Private Shared ReadOnly e As Double = Math.E
    Private Const goldenRatio As Double = 1.61803398874965
    Private Shared Pw As Integer = CInt(&HB7E15163), Qw As Integer = CInt(&H9E3779B9)
    Private Shared S As Integer()
    Public Shared Function convBytesWords(key As SByte(), u As Integer, c As Integer) As Integer()
        Dim i As Integer
        Dim tmp As Integer() = New Integer(c - 1) {}
        For i = 0 To tmp.Length - 1
            tmp(i) = 0
        Next
        i = 0
        Dim off As Integer = 0
        While i < c
            tmp(i) = ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF)) Or ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 8) Or ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 16) Or ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 24)
            i += 1
        End While
        Return tmp
    End Function
    Public Shared Function generateSubkeys(key As SByte()) As Integer()
        Dim u As Integer = w \ 8
        Dim c As Integer = key.Length \ u
        Dim t As Integer = 2 * r + 4
        Dim L As Integer() = convBytesWords(key, u, c)
        Dim S As Integer() = New Integer(t - 1) {}
        S(0) = Pw
        For i As Integer = 1 To t - 1
            S(i) = S(i - 1) + Qw
        Next
        Dim A As Integer = 0
        Dim B As Integer = 0
        Dim k As Integer = 0, j As Integer = 0
        Dim v As Integer = 3 * Math.Max(c, t)
        For i As Integer = 0 To v - 1
            A = InlineAssignHelper(S(k), RotateLeft((S(k) + A + B), 3))
            B = InlineAssignHelper(L(j), RotateLeft(L(j) + A + B, A + B))
            k = (k + 1) Mod t
            j = (j + 1) Mod c
        Next
        Return S
    End Function
    Public Shared Function paddingKey(key As SByte()) As SByte()
        Dim l As Integer = key.Length Mod 4
        For i As Integer = 0 To l - 1
            key(key.Length + i) = 0
        Next
        Return key
    End Function
    Public Shared Function deletePadding(input As SByte()) As SByte()
        Dim count As Integer = 0
        Dim i As Integer = input.Length - 1
        While input(i) = 0
            count += 1
            i -= 1
        End While
        Dim tmp As SByte() = New SByte(input.Length - count - 2) {}
        Array.Copy(input, 0, tmp, 0, tmp.Length)
        Return tmp
    End Function
    Public Shared Function RotateLeft(value As Integer, count As Integer) As Integer
        Dim val As UInteger = CUInt(value)
        Return CInt((val << count) Or (val >> (32 - count)))
    End Function
    Public Shared Function RotateRight(value As Integer, count As Integer) As Integer
        Dim val As UInteger = CUInt(value)
        Return CInt((value >> count) Or (value << (32 - count)))
    End Function
    Public Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
    Public Shared Function decryptBloc(input As SByte()) As SByte()
        Dim tmp As SByte() = New SByte(input.Length - 1) {}
        Dim t As Integer, u As Integer
        Dim aux As Integer
        Dim data As Integer() = New Integer(input.Length \ 4 - 1) {}
        For i As Integer = 0 To data.Length - 1
            data(i) = 0
        Next
        Dim off As Integer = 0
        For i As Integer = 0 To data.Length - 1
            data(i) = ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF)) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 8) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 16) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 24)
        Next
        Dim A As Integer = data(0), B As Integer = data(1), C As Integer = data(2), D As Integer = data(3)
        C = C - S(2 * r + 3)
        A = A - S(2 * r + 2)
        For i As Integer = r To 1 Step -1
            aux = D
            D = C
            C = B
            B = A
            A = aux
            u = RotateLeft(D * (2 * D + 1), 5)
            t = RotateLeft(B * (2 * B + 1), 5)
            C = RotateRight(C - S(2 * i + 1), t) Xor u
            A = RotateRight(A - S(2 * i), u) Xor t
        Next
        D = D - S(1)
        B = B - S(0)
        data(0) = A
        data(1) = B
        data(2) = C
        data(3) = D
        For i As Integer = 0 To tmp.Length - 1
            tmp(i) = CSByte(CInt(CUInt(data(i \ 4)) >> (i Mod 4) * 8) And &HFF)
        Next
        Return tmp
    End Function
    Public Shared Function encryptBloc(input As SByte()) As SByte()
        Dim tmp As SByte() = New SByte(input.Length - 1) {}
        Dim t As Integer, u As Integer
        Dim aux As Integer
        Dim data As Integer() = New Integer(input.Length \ 4 - 1) {}
        For i As Integer = 0 To data.Length - 1
            data(i) = 0
        Next
        Dim off As Integer = 0
        For i As Integer = 0 To data.Length - 1
            data(i) = ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF)) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 8) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 16) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 24)
        Next
        Dim A As Integer = data(0), B As Integer = data(1), C As Integer = data(2), D As Integer = data(3)
        B = B + S(0)
        D = D + S(1)
        For i As Integer = 1 To r
            t = RotateLeft(B * (2 * B + 1), 5)
            u = RotateLeft(D * (2 * D + 1), 5)
            A = RotateLeft(A Xor t, u) + S(2 * i)
            C = RotateLeft(C Xor u, t) + S(2 * i + 1)
            aux = A
            A = B
            B = C
            C = D
            D = aux
        Next
        A = A + S(2 * r + 2)
        C = C + S(2 * r + 3)
        data(0) = A
        data(1) = B
        data(2) = C
        data(3) = D
        For i As Integer = 0 To tmp.Length - 1
            tmp(i) = CSByte(CInt(CUInt(data(i \ 4)) >> (i Mod 4) * 8) And &HFF)
        Next
        Return tmp
    End Function
    Public Function encrypt(data As SByte(), key As SByte()) As SByte()
        Dim bloc As SByte() = New SByte(15) {}
        key = paddingKey(key)
        S = generateSubkeys(key)
        Dim lenght As Integer = 16 - data.Length Mod 16
        Dim padding As SByte() = New SByte(lenght - 1) {}
        padding(0) = CSByte(&H80)
        For i As Integer = 1 To lenght - 1
            padding(i) = 0
        Next
        Dim count As Integer = 0
        Dim tmp As SByte() = New SByte(data.Length + (lenght - 1)) {}
        'afiseazaMatrice(S);
        Dim j As Integer
        For j = 0 To data.Length + (lenght - 1)
            If j > 0 AndAlso j Mod 16 = 0 Then
                bloc = encryptBloc(bloc)
                Array.Copy(bloc, 0, tmp, j - 16, bloc.Length)
            End If
            If j < data.Length Then
                bloc(j Mod 16) = data(j)
            Else
                bloc(j Mod 16) = padding(count)
                count += 1
                If count > lenght - 1 Then
                    count = 1
                End If
            End If
        Next
        bloc = encryptBloc(bloc)
        Array.Copy(bloc, 0, tmp, j - 16, bloc.Length)
        Return tmp
    End Function
    Public Shared Function decrypt(data As SByte(), key As SByte()) As SByte()
        Dim tmp As SByte() = New SByte(data.Length - 1) {}
        Dim bloc As SByte() = New SByte(15) {}
        key = paddingKey(key)
        S = generateSubkeys(key)
        Dim i As Integer
        For i = 0 To data.Length - 1
            If i > 0 AndAlso i Mod 16 = 0 Then
                bloc = decryptBloc(bloc)
                Array.Copy(bloc, 0, tmp, i - 16, bloc.Length)
            End If
            If i < data.Length Then
                bloc(i Mod 16) = data(i)
            End If
        Next
        bloc = decryptBloc(bloc)
        Array.Copy(bloc, 0, tmp, i - 16, bloc.Length)
        tmp = deletePadding(tmp)
        Return tmp
    End Function

  

End Class