Помощь в VB.NET код ниже кода ecryption

---

Здравствуйте дорогие
ям Керо ,

iam begginer at vb.net кодирование и мне нужна ваша помощь, чтобы сбросить этот код
я получаю этот код из программы, созданной vb.net и я получаю код с помощью
code reflector 9.0 и iam с использованием vb express 2008

любой может помочь мне, как использовать этот код
и как им воспользоваться

спасибо и с наилучшими пожеланиями
Керо

;

Friend Shared Function TripleDESEncryptTo46StringBase(ByVal [text] As String) As String
    Dim buffer As Byte()
    Dim buffer2 As Byte()
    Dim buffer3 As Byte()
    Dim stream As MemoryStream
    Dim provider As TripleDESCryptoServiceProvider
    Dim stream2 As CryptoStream
    Dim str As String
    buffer = Encoding.UTF8.GetBytes([text])
    buffer2 = Encoding.UTF8.GetBytes("SmartSolutions_AhmedSaid")
    buffer3 = Encoding.UTF8.GetBytes("Abu_Said")
    stream = New MemoryStream
    provider = New TripleDESCryptoServiceProvider
    stream2 = New CryptoStream(stream, provider.CreateEncryptor(buffer2, buffer3), 1)
    stream2.Write(buffer, 0, CInt(buffer.Length))
    stream2.FlushFinalBlock
    str = Convert.ToBase64String(stream.ToArray)
Label_0070:
    Return str
End Function

Что я уже пробовал:

Friend Shared Function TripleDESEncryptTo46StringBase(ByVal [text] As String) As String
    Dim buffer As Byte()
    Dim buffer2 As Byte()
    Dim buffer3 As Byte()
    Dim stream As MemoryStream
    Dim provider As TripleDESCryptoServiceProvider
    Dim stream2 As CryptoStream
    Dim str As String
    buffer = Encoding.UTF8.GetBytes([text])
    buffer2 = Encoding.UTF8.GetBytes("SmartSolutions_AhmedSaid")
    buffer3 = Encoding.UTF8.GetBytes("Abu_Said")
    stream = New MemoryStream
    provider = New TripleDESCryptoServiceProvider
    stream2 = New CryptoStream(stream, provider.CreateEncryptor(buffer2, buffer3), 1)
    stream2.Write(buffer, 0, CInt(buffer.Length))
    stream2.FlushFinalBlock
    str = Convert.ToBase64String(stream.ToArray)
Label_0070:
    Return str
End Function

---