[kero4000]

أساتذتى الكرام

السلام عليكم ورحمه الله

لدى كود واحتاج الى تعديل عليه وشرحه لى حيث اننى مبتدىء بالفيجوال بيزك
قمت بتفكيك أحد برامج الانترنت المصنوعه بالفيجوال بيزك باستخدام vbdecompiler
بغرض التعلم من الاكواد داخل التطبيق
ولكن ما تم استخراجه فى حاله تطبيقه على الفيجوال استوديو يعطى خطأ 
هو عباره عن داله تشفير 
هل من مساعده ؟؟؟
مرق لحضراتكم الكود فى انتظار رد اساتذتى

وشكرا

كود :

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