+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب شرح كود (/showthread.php?tid=21986)
طلب شرح كود - kero4000 - 04-10-17
أساتذتى الكرام
السلام عليكم ورحمه الله
لدى كود واحتاج الى تعديل عليه وشرحه لى حيث اننى مبتدىء بالفيجوال بيزك
قمت بتفكيك أحد برامج الانترنت المصنوعه بالفيجوال بيزك باستخدام 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 FunctionRE: طلب شرح كود - a.ahmed - 05-10-17
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
RE: طلب شرح كود - kero4000 - 05-10-17
أ/ أحمد
أشكر مرور حضرتك الكريم
ولكن ظهر خطأ مره أخرى لا أدرى لماذا ؟؟