[DK-x]

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

كود :

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

[اسامه الهرماوي]

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

[DK-x]

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

[elgokr]

راجع الرابط التالى

https://stackoverflow.com/questions/3065...a-md5-hash

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

تحياتى لك

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

[DK-x]

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

[mero5000]

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

[elgokr]

قمت بعمل مراجعة كاملة عن عن تشفير 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 كلياً

تحياتىلك

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

[DK-x]

اشكرك اخي 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)

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

   

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

[mero5000]

طبيعى يا اخى الفنكشن الى كاتبها تطلب 2 فاليو
الاول بايت والثانى استرنج

كود :

(ByRef B() As Byte, ByVal Pass As String)

[elgokr]

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

يجب ان تكون الهيئة النهاية على هذا النحو

كود :

tryDecryptBytes(Byte(), String)

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

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

PHP كود :

tryEncryptBytes
و
tryDecryptBytes 


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

كود :

Dim Encryptor As
Dim Decryptor As

تحياتى لك

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