تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في انشاء برنامج التشفير
#1
السلام عليكم ورحمة الله وبركاته ،،
اخواني اريد صنع برنامج يشفر الارقام السري مثل من اسم ورقم الى utf-5 التشفير المشهور واريد العكس ايضا يفك التشفير من utf-5 الى النص مع الارقام ..

هل يوجد مثال ،،،

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

اتمني تساعدوني في المثال .
الرد }}}}
تم الشكر بواسطة:
#2
يوجد سؤال لى عن نفس الطلب وفى نهاية السئال تقريبا فى الصفحة الثانية رد للاخ سجاد فيه المراد كما تريد بالضبط
الان النت بطئ جدا لو لم تجده انتظر غدا باذن الله
الرد }}}}
تم الشكر بواسطة:
#3
تفضل على هذا الرابط فى المشاركة رقم 10
الرد }}}}
تم الشكر بواسطة:
#4
ali.alfoly كتب :تفضل على هذا الرابط فى المشاركة رقم 10

شكرا لك ،، وجاري التجربة
الرد }}}}
تم الشكر بواسطة:
#5
اخي ما قصدته في الموضوع فك تشفير UTF-8 او UTf-5 يعني اسم التشفيره لها MD5 والبرنامج لا يفك ويستخدم تشفير MD5 ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#6
وايضا لاحظ هذا الموقع القوي في التشفير وفك التشفير http://ar.freemd5.com/
الرد }}}}
تم الشكر بواسطة:
#7
اه انا اسف انا فهمت خطاء
والله تمنيت لو انى اعرف كيف اساعدك
ولاكن سامحنى
وان شاء الله الاخوه ما يقصرو ونستفيد جميعا
الرد }}}}
تم الشكر بواسطة:
#8
ali.alfoly كتب :اه انا اسف انا فهمت خطاء
والله تمنيت لو انى اعرف كيف اساعدك
ولاكن سامحنى
وان شاء الله الاخوه ما يقصرو ونستفيد جميعا


شكرا لك اخي ما قصرت يكفي انك حاولت تساعد ،،
اتمنى من الاخوان المساعدة
الرد }}}}
تم الشكر بواسطة:
#9
فيه دالتين Encrypt and Decrypt
كود :
Public Function Encrypt(ByVal text As String, ByVal key As String) As String        Try
            Dim crp As New TripleDESCryptoServiceProvider
            Dim uEncode As New UnicodeEncoding
            Dim bytPlainText() As Byte = uEncode.GetBytes(text)
            Dim stmCipherText As New MemoryStream
            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
            Dim pdb As New Rfc2898DeriveBytes(key, slt)
            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)


            crp.Key = bytDerivedKey
            crp.IV = pdb.GetBytes(8)


            Dim csEncrypted As New CryptoStream(stmCipherText, crp.CreateEncryptor(), CryptoStreamMode.Write)


            csEncrypted.Write(bytPlainText, 0, bytPlainText.Length)
            csEncrypted.FlushFinalBlock()
            Return Convert.ToBase64String(stmCipherText.ToArray())
        Catch ex As Exception
            Throw
        End Try
    End Function
    Function Decrypt(ByVal text As String, ByVal key As String) As String


        Dim crp As TripleDESCryptoServiceProvider
        Try
            crp = New TripleDESCryptoServiceProvider
            Dim uEncode As New UnicodeEncoding
            Dim bytCipherText() As Byte = Convert.FromBase64String(text)
            Dim stmPlainText As New MemoryStream
            Dim stmCipherText As New MemoryStream(bytCipherText)
            Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
            Dim pdb As New Rfc2898DeriveBytes(key, slt)
            Dim bytDerivedKey() As Byte = pdb.GetBytes(24)
            crp.Key = bytDerivedKey
            crp.IV = pdb.GetBytes(8)


            Dim csDecrypted As New CryptoStream(stmCipherText, crp.CreateDecryptor(), CryptoStreamMode.Read)
            Dim sw As New StreamWriter(stmPlainText)
            Dim sr As New StreamReader(csDecrypted)
            sw.Write(sr.ReadToEnd)
            sw.Flush()
            csDecrypted.Clear()
            crp.Clear()
            Return uEncode.GetString(stmPlainText.ToArray())
        Catch ex As Exception
            Throw
        End Try


    End Function

لاتنسى
كود :
Imports System.Security.Cryptography
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#10
هذا موضوع اجنبي يمثل لنا بمشروع لحل سؤالي ،،، يقول ان المشروع يحولها الى MD5 ويفك تشفيرة MD5 لكن لا ارى ذلك ،، خذوه ممكن يساعدنا
http://competefornothing.com/?p=639
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب مساعدة في اصلاح بعض الاخطاء trakktour 18 153 منذ 2 ساعة مضت
آخر رد: trakktour
  طلب مساعدة في اضافة save & restore trakktour 8 136 اليوم, 03:16 AM
آخر رد: trakktour
  [سؤال] انشاء ازرار مع تعيين حدث النقر لكل زر bidaya 7 131 25-02-17, 10:06 PM
آخر رد: bidaya
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 53 25-02-17, 06:31 PM
آخر رد: khodor1985
  كيف يمككني انشاء الحدث KeyPress IBCompany 5 91 24-02-17, 08:03 PM
آخر رد: مساعدة
  [سؤال] فكرة عمل برنامج تنبيهات abdulla2 1 86 20-02-17, 12:47 AM
آخر رد: EnormousSoft
  [كود] كود برنامج chat متعدد المستخدمين YazanOtoum 2 70 17-02-17, 11:54 PM
آخر رد: احمد مهران
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 147 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  تصميم برنامج امتحان الاوفيس والويندوز القيصر بيلا 0 62 12-02-17, 03:07 PM
آخر رد: القيصر بيلا
  طلب برنامج لزيادة دقة الصور احمد علي احمد سلمان 1 84 10-02-17, 05:33 PM
آخر رد: مساعدة

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


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