منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
فك تشفير md5 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فك تشفير md5 (/showthread.php?tid=27665)

الصفحات: 1 2

فك تشفير md5 - DK-x - 26-11-18

مرحبا
اعمل على برنامج واحتاج اشفر النصوص فيه
بحثت ما وجدت الا تشفير اما فك التشفير فما وجدت عنه شي
وهذا هو كود التشفير واحتاج كود فك التشفير
وشكرا

كود :
Public Shared Function getMD5Hash(ByVal strToHash As String) As String
        Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

        bytesToHash = md5Obj.ComputeHash(bytesToHash)

        Dim strResult As String = ""
        Dim b As Byte

        For Each b In bytesToHash
            strResult += b.ToString("x2")
        Next

        Return strResult
    End Function

RE: فك تشفير md5 - اسامه الهرماوي - 26-11-18

توضيح اكتر اخي

RE: فك تشفير md5 - DK-x - 26-11-18

اخي اسامi انا محتاج كود فك تشفير ال md5


RE: فك تشفير md5 - elgokr - 27-11-18

راجع الرابط التالى
https://stackoverflow.com/questions/30659239/how-to-decrypt-a-md5-hash

ستجد به كود تشفير وفك التشفيل 

تحياتى لك
وتمنياتى لك التوفيق


RE: فك تشفير md5 - DK-x - 27-11-18

اشكرك اخي elgokr
جربته سابقا لكن ما نفع
عموما شكرا Heart


RE: فك تشفير md5 - mero5000 - 27-11-18

http://vb4arb.com/vb/showthread.php?tid=10461

RE: فك تشفير md5 - elgokr - 27-11-18

قمت بعمل مراجعة كاملة عن عن تشفير MD5
يبدو حتى هذا اليوم لم يتم الكشف على فك هذا التشفير
ولكن سبب عدم اعتماد هذا التشفيل والعمل عليه الان بصورة امنة
يرجه لامر الموقع الوحيد المخصص فى اجراء تشفير وفك التشفير والموقع هو 
https://www.md5online.org

جميع الاكواد التى تنتشر فى الموقع عن تشفير وفك التشفير
ما هى الى فكرة تشابهي فقط وليس تشفير الـ MD5

ستجد الجميع يستخدم نوعية
PHP كود :
Encoding.ASCII 

وما يشابه به لتمويه فكرة التشفير فقط وينطبق الامر حتى فى مثال الاخ سعود

الكود الصحيح لاتمام تشفير هو انشاء الـ التالى
كود :
   Public Function EnMd5Hash(ByVal String2Hash As String) As String
       Try
           Dim MD5Hasher As New Security.Cryptography.MD5CryptoServiceProvider()
           Dim oEncoder As New Text.ASCIIEncoding()
           Dim bytes As Byte() = oEncoder.GetBytes(String2Hash)
           Dim myHash As Byte() = MD5Hasher.ComputeHash(bytes)
           Dim myCapacity As Integer = 7
           Dim sb As Text.StringBuilder = New System.Text.StringBuilder(myCapacity)
           Dim I As Integer
           For I = 0 To myHash.Length - 1
               sb.Append(BitConverter.ToString(myHash, I, 1))
           Next I
           Return sb.ToString().TrimEnd(New Char() {" "c})
       Catch ex As Exception
           Return "0"
       End Try
   End Function

ويتم الاستخدام على هذا النحو
كود :
TextBox2.Text = EnMd5Hash(TextBox1.Text)

جرب اختبار الكود مع عمل تشفير اما من خلال Cpanel أو من خلال الموقع الذى تم ذكره بالاعلى
ستجد ان كود التشفير لـ MD5 صحيح كلياً

طيب حتى الان الامور جميل فكيف تحويل التشفير الى النص الافتراضى اى فك التشفير
للاسف حتى الان الموقع لم يذكر الفكرة او يوجد اى شرح للامر حتى هذا اليوم
لكن الموقع يقدم خصية اتمام فك التشفير يمكن استخدامه فى الموقع الالكتروني أو البرامج العامة
ويتم ذلك من خلال api ولكن يبدو لاتمام ذلك يتطلب اشتراك شهري لتتمكن من امتلاك key
رابط التوضيح للامر من خلال الرابط التالى
https://www.md5online.org/vip/main.php?page=api

والفكرة من هذا سيكون الامر على هذا النحو

إقتباس :http://www.md5online.org/api.php?h=d3c8e06e57cc1af7ebdba01427e62bc2&p=XXX&d=1


حيث ما هو باللون الاحمر يعبر عن كود التشفير
والـ XXX المشير اليه باللون الازرق وهو يعبر عن المفتاح الخاص بعضويتك

خلاف ذلك لا يوجد اى كود او اى سورس حتى هذه اللحظة
تفيد عن فك التشفير ببيئة الـ .NET كلياً

تحياتىلك
وتمنياتى لك التوفيق


RE: فك تشفير md5 - DK-x - 27-11-18

اشكرك اخي elgokr على كل شيء
انا بحثت بهذا الخصوص ووجدت

كود :
Imports System.Security.Cryptography

Public Class RijCrypto

   Public Shared LastErr as String

   Public Shared Function tryEncryptBytes(ByRef B() As Byte, ByVal Pass As String) As Boolean
       Try
           Dim PassMD5Bytes() As Byte
           Dim MD5 As New MD5CryptoServiceProvider
           PassMD5Bytes = MD5.ComputeHash(System.Text.Encoding.ASCII.GetBytes(Pass))
           Dim Rij As New RijndaelManaged
           Rij.Mode = CipherMode.ECB
           Rij.Key = PassMD5Bytes
           Dim Encryptor As ICryptoTransform = Rij.CreateEncryptor
           B = Encryptor.TransformFinalBlock(B, 0, B.Length)
           Return True
       Catch ex As Exception
           LastErr = ex.ToString
           Return False
       End Try
   End Function

   Public Shared Function tryDecryptBytes(ByRef B() As Byte, ByVal Pass As String) As Boolean
       Try
           Dim PassMD5Bytes() As Byte
           Dim MD5 As New MD5CryptoServiceProvider
           PassMD5Bytes = MD5.ComputeHash(System.Text.Encoding.ASCII.GetBytes(Pass))
           Dim Rij As New RijndaelManaged
           Rij.Mode = CipherMode.ECB
           Rij.Key = PassMD5Bytes
           Dim Decryptor As ICryptoTransform = Rij.CreateDecryptor
           B = Decryptor.TransformFinalBlock(B, 0, B.Length)
           Return True
       Catch ex As Exception
           LastErr = ex.ToString
           Return False
       End Try
   End Function

End Class


ويتم الاستخدام


كود :
TextBox2.Text = tryDecryptBytes(TextBox1.Text)


لكن بعد الاستخدام يظهر خطأ

[attachment=20226]

لا اعرف السبب لكني متاكد من وجود حل لاني سبق ورأيت برنامج بلغة الفيجوال بيسك خاص بشفير وفك تشفير Md5
على العموم اشكرك جزيل الشكر Heart


RE: فك تشفير md5 - mero5000 - 27-11-18

طبيعى يا اخى الفنكشن الى كاتبها تطلب 2 فاليو
الاول بايت والثانى استرنج
كود :
(ByRef B() As Byte, ByVal Pass As String)


RE: فك تشفير md5 - elgokr - 28-11-18

كما ذكر لك الاخ العزيز mero5000

يجب ان تكون الهيئة النهاية على هذا النحو
كود :
tryDecryptBytes(Byte(), String)

دون ان ادخل فى تفاصيل الفكرة من الكود الذى ذكرته

لكن ابسط ما يمكننى قوله هل تلاحظ فرق بين كلاً من Function الخاص بـ
PHP كود :
tryEncryptBytes
و
tryDecryptBytes 

مش ملاحظ ان الكودين واحد مع اختلاف فقط بداية كلا من هذه الاسطر
كود :
Dim Encryptor As
Dim Decryptor As

تحياتى لك
وتمنياتى لك التوفيق