تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فك تشفير md5
#1
Rainbow 
مرحبا
اعمل على برنامج واحتاج اشفر النصوص فيه
بحثت ما وجدت الا تشفير اما فك التشفير فما وجدت عنه شي
وهذا هو كود التشفير واحتاج كود فك التشفير
وشكرا

كود :
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
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي
 DarkUpload - ArabLike 
الرد
تم الشكر بواسطة:
#2
توضيح اكتر اخي
الرد
تم الشكر بواسطة:
#3
اخي اسامi انا محتاج كود فك تشفير ال md5
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي
 DarkUpload - ArabLike 
الرد
تم الشكر بواسطة:
#4
راجع الرابط التالى

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: DK-x
#5
اشكرك اخي elgokr
جربته سابقا لكن ما نفع
عموما شكرا Heart
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي
 DarkUpload - ArabLike 
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
http://vb4arb.com/vb/showthread.php?tid=10461
الرد
تم الشكر بواسطة: elgokr , elgokr , DK-x , DK-x
#7
قمت بعمل مراجعة كاملة عن عن تشفير MD5
يبدو حتى هذا اليوم لم يتم الكشف على فك هذا التشفير
ولكن سبب عدم اعتماد هذا التشفيل والعمل عليه الان بصورة امنة
يرجه لامر الموقع الوحيد المخصص فى اجراء تشفير وفك التشفير والموقع هو 

جميع الاكواد التى تنتشر فى الموقع عن تشفير وفك التشفير
ما هى الى فكرة تشابهي فقط وليس تشفير الـ 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
رابط التوضيح للامر من خلال الرابط التالى

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

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


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

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

تحياتىلك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: DK-x , DK-x
#8
اشكرك اخي 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
على العموم اشكرك جزيل الشكر Heart
هم يسرقون والقانون كتب لنا...
بعض اسهاماتي
 DarkUpload - ArabLike 
الرد
تم الشكر بواسطة:
#9
طبيعى يا اخى الفنكشن الى كاتبها تطلب 2 فاليو
الاول بايت والثانى استرنج
كود :
(ByRef B() As Byte, ByVal Pass As String)
الرد
تم الشكر بواسطة: elgokr
#10
كما ذكر لك الاخ العزيز mero5000

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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: DK-x


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad محتاج برنامج تشفير قوى Mohamed Magdy 4 128 15-12-18, 03:40 PM
آخر رد: Mohamed Magdy
  محتاج مساعدة فى تشفير برنامجي تشفير قوى Mohamed Magdy 2 70 27-11-18, 09:15 PM
آخر رد: mero5000
  [سؤال] بخصوص تشفير ملف txt Mohamed20 12 1,009 07-11-18, 02:58 AM
آخر رد: asemshahen5
  [نقاش] فك تشفير نص الكاتب 1 136 17-10-18, 01:30 AM
آخر رد: الكاتب
  تشفير البيانات الموجودة في الداتا قرد فيو mawadaalmogrbi 1 164 05-06-18, 03:55 PM
آخر رد: mrnooo2000
  [VB.NET] برنامج تشفير النص rootkit 8 548 08-04-18, 04:53 PM
آخر رد: rootkit
  [سؤال] نرجو الإفادة بخصوص تشفير متغير ثابت سعود الشامان 0 133 12-02-18, 12:05 AM
آخر رد: سعود الشامان
Star سؤال عن كيفية تشفير ووضع ملفات الوورد في قادة بيانات saed aldaly 1 157 08-02-18, 03:57 PM
آخر رد: محمود صالح
Photo [مشروع] مساعدة في مشروع برنامج يفك تشفير الفيديو المسجل من رسيفر لتشغيلها على الحاسب mohammedvego 12 649 07-11-17, 09:47 AM
آخر رد: mohammedvego
  كيفية تشفير نص مثل %u0647%u0647%u0647%u0647%u0647 الماجيك مسعد 4 455 16-10-17, 10:42 PM
آخر رد: a.ahmed

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم