[ابو روضة]

(14-11-19, 10:47 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

تحية الك اخي ابو روضة , موضوع التشفير وخاصة للغة الفيجوال مهم جدآ خاصة اذا كنت ناوي تنشر مشروعك او تبيعه
سأروي لك ماحصل لي في الماضي وان شاء الله يكون مساعدة الك وللأخوة

قبل حوالي 8 سنوات كنت ابرمج بعض برامج تتعلق بالدردشة والشات وكانت تحتوي مسابقات
بداية البرمجة الامر طبيعي وكنت اصمم وانشر بشكل عادي لكن بعد فترة لاحظت شي .. دخلت لموقع بل واكثر من موقع ربما موقعين ورأيت شي غريب !! نفس برنامجي طبق الاصل ولكن الموقع داخل البرنامج لشخص اخر , واسم المبرمج لشخص اخر؟ استغربت وتعب المشاريع ذهب سدآ بحثت كثيرآ بهذا الموضوع واكتشفت كيف يتعامل جماعة التكريك بهذا الاسلوب واكتشفت ان الكل (وانا اقصد قبل وليس الان) لايعرفون شي عن البرمجة فقط يستطيع السرقة وتفكيك البرنامج ولكن لايعلم كيف تصمم البرنامج وهو يستخدم اسلوب الهندسة العكسية.

وبعد محاولات عملت شي والحمدلله بوقتها لم يقدر احد ان يسرق برنامجي او معلوماته قد تستغرب من الطريقة ليست بالجيدة لكن الحمدلله الامر نجح معي

اولآ قمت بحفظ هذه الفئة وهي خاصة بالتشفير لنوع MD5 تستطيع وضعها بمكتبة او مودل كما شئت
قبل ماتجرب الكود  حاول تفهم الكود اذا وجدت صعوبة فالكود جيد

كود :

Public Class ddstjgjhgftrdr
   Public Shared trip As New TripleDESCryptoServiceProvider
   Public Shared md5 As New MD5CryptoServiceProvider
   Public Shared Function utf(ByVal value As String) As Byte()
       Return md5.ComputeHash(System.Text.ASCIIEncoding.UTF8.GetBytes(value))
   End Function
   Public Shared Function cod(ByVal str As String, ByVal key As String)
       On Error Resume Next
       trip.Key = ddstjgjhgftrdr.utf(key)
       trip.Mode = CipherMode.ECB
       Dim Buffer As Byte() = System.Text.ASCIIEncoding.UTF8.GetBytes(str)
       Return Convert.ToBase64String(trip.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
   End Function
   Public Shared Function uncod(ByVal str As String, ByVal key As String) As String
       On Error Resume Next
       trip.Key = utf(key)
       trip.Mode = CipherMode.ECB
       Dim byt() As Byte = Convert.FromBase64String(str)
       Return System.Text.ASCIIEncoding.UTF8.GetString(trip.CreateDecryptor().TransformFinalBlock(byt, 0, byt.Length))
   End Function
End Class

قم بوضع هذا الكود بزر بوتون ولاحظ ماذا يكون النص المستخرج

كود :

MsgBox(ddstjgjhgftrdr.uncod("sEZSSVjIJwMcDOEu15my3Q==", ddstjgjhgftrdr.cod("AhX260Oh", "XHJDH")))

وشرح بسيط انا قمت بتشفير الكلمة + المفتاح

ان شاء الله تكون مشاركتي بها فائدة لك وللأخوة.

---

عفوآ نسيت امر
وهو استدعي مجال الاسماء

كود :

Imports System.Security.Cryptography

لكلاس التشفير

ما شاء الله طريقة جميلة لكن من أين جائت هذه الكلمة عند التشغيل vb4arb.com ؟

وكيف أشفر هذا الكود على سبيل المثال بطريقتك هذه ؟ 

وأعتذر لك لكن انا حابب أعرف فقط

---

(14-11-19, 10:53 PM)smalw كتب : جرب هذه

PHP كود :

DDim y As String = ASCIIEncoding.ASCII.GetString(Convert.FromBase64String("aHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS5lZy8="))
        Process.Start(y) 


هذا نفع فعلا أخى لكن كيف شفرت الرابط فأصبح هكذا aHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS5lZy8=  ؟