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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 148 منذ 1 ساعه مضت
آخر رد: محمد بوقزاحة
  [VB.NET] مساعدة لنشر موقعي safa 1 43 أمس, 11:11 AM
آخر رد: أبو عمر
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 105 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [اقتراح] كيف ممنكن اتجاوز برنامج التجريبي 3asfa~mdmra 10 222 15-01-17, 04:00 AM
آخر رد: الماجيك مسعد
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 161 13-01-17, 10:44 AM
آخر رد: 0theghost0
  برنامج شبية بالـTeemView Basil Abdallah 21 430 11-01-17, 11:05 PM
آخر رد: Basil Abdallah
  [VB.NET] برنامج يقوم بالفحص عن الجروبات المشترك فيها muhnnad002016 1 66 06-01-17, 02:19 PM
آخر رد: Basil Abdallah
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 0 82 05-01-17, 09:50 AM
آخر رد: malek369
  [VB.NET] تصميم برنامج معامل engmedomed@gmail.com 1 111 03-01-17, 03:51 PM
آخر رد: thevirus
  [سؤال] مشكلة في انشاء مشروع عبدالرحمن المكاوي 4 113 01-01-17, 02:44 PM
آخر رد: عبدالرحمن المكاوي

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


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