[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

[a.ahmed]

TripleDESCryptoServiceProvider

PHP كود :

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 IO.MemoryStream
    Dim provider As Security.Cryptography.TripleDESCryptoServiceProvider
    Dim stream2 As Security.Cryptography.CryptoStream
    Dim str As String
    buffer = System.Text.Encoding.UTF8.GetBytes([text])
    buffer2 = System.Text.Encoding.UTF8.GetBytes("SmartSolutions_AhmedSaid")
    buffer3 = System.Text.Encoding.UTF8.GetBytes("Abu_Said")
    stream = New IO.MemoryStream
    provider = New Security.Cryptography.TripleDESCryptoServiceProvider
    stream2 = New Security.Cryptography.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 


[kero4000]

أ/ أحمد
أشكر مرور حضرتك الكريم
ولكن ظهر خطأ مره أخرى لا أدرى لماذا ؟؟