تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 44 1,356 منذ 1 ساعه مضت
آخر رد: tryold
  ارسال ايميل في vb.net مساعدة nabilelk 1 36 أمس, 11:48 PM
آخر رد: ابراهيم النعيمي
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 58 07-12-16, 12:20 AM
آخر رد: amgad525
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 131 05-12-16, 03:09 PM
آخر رد: thevirus
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 97 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 103 04-12-16, 12:37 AM
آخر رد: ali.alfoly
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 48 03-12-16, 06:59 PM
آخر رد: sal.softip
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 58 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 67 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram

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


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