تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] امن المعلومات
#1
سلام عليكم ...اذا ممكن مساعدة انا عندي تطبيق عملي في ال vb.net لتطبيق شفرة قيصر لتشفير البيانات وما اعرف الكود الها ياريت تساعدوني لان محتاجتها في مشروع تخرجي ...ومشكورين


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
في برامج جاهزة تقوم بمهمة امن البرنامج وتشفير اكواده اما كود لا اعلم

مثل برنامج سمارت اسمبلي . وغيره
الرد }}}
تم الشكر بواسطة: shatha alward
#3
بسم الله الرحمن الرحيم

اختى العزيزة اولا كل عام وانتى بخير

اولا هذة وظيفة التشفير بشفرة قيصر

كود :
Public Function Encipher(ByVal plainText As String) As String
        Dim cipherText As String = String.Empty
        Dim cipherInChars(plainText.Length) As Char
        For i As Integer = 0 To plainText.Length - 1
            cipherInChars(i) = _
               Convert.ToChar((Convert.ToInt32(
               Convert.ToChar(plainText(i))) + Me.ShiftCount))
        Next
        cipherText = New String(cipherInChars)
        Return cipherText
    End Function

ثانيأ هذة وظيفة فك تشفير شفرة قيصر

كود :
Public Function Decipher(ByVal cipherText As String) As String
        Dim plainText As String = String.Empty
        Dim cipherInChars(cipherText.Length) As Char
        For i As Integer = 0 To cipherText.Length - 1
            cipherInChars(i) = _
               Convert.ToChar((Convert.ToInt32(
               Convert.ToChar(cipherText(i))) - Me.ShiftCount))
        Next
        plainText = New String(cipherInChars)
        Return plainText
    End Function

ولاى استفسار اخر فى التشفير انا تحت امرك

-----------------------
Software Developer

Microsoft Partner

الرد }}}
تم الشكر بواسطة: shatha alward , الشاكي لله , sooriaty03
#4
السلام عليكم و رحمة الله و بركاته

ماذا يعني me.ShiftCount

السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#5
اخى العزيز السلام عليكم ورحمة الله وبركاتة

me.sheftcount

هذة خاصية يتم انشائها من النوع integer لتمرير رقم قوة التشفير اليها

كود :
Public Property ShiftCount() As Integer
        Get
            Return _shiftCount
        End Get
        Set(ByVal value As Integer)
            _shiftCount = value
        End Set
    End Property

  
    Public Sub New()
        Me.New(3)
    End Sub

  
    Public Sub New(ByVal shiftCount As Integer)
        Me.ShiftCount = shiftCount
    End Sub

اظن الفكرة وصلت

-----------------------
Software Developer

Microsoft Partner

الرد }}}
تم الشكر بواسطة: shatha alward , تركي قرمزلي
#6
اولا كل عام وانتم بخير ....اخواني لكم جزيل الشكر لانكم افدتوني فعلا جزاكم الله خير اسال الله لكم التوفيق والمزيد من التالق في عالم البرمجة .....
الرد }}}
تم الشكر بواسطة:
#7
وانتى بالصحة والسلامة ياشذى واحنا فى الخدمة فى اى وقت

-----------------------
Software Developer

Microsoft Partner

الرد }}}
تم الشكر بواسطة: shatha alward
#8
السلام عليكم و رحمة الله و بركاته
الفكرة وصلت و الف شكر ، على حسب ما فهمت أنه كلما كانت القيمة كبيرة كلما كان التشفير قويا
السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#9
تمام يا استاذ تركى .. وانا فى الخدمة فى اى شئ يخص التشفير والحماية

-----------------------
Software Developer

Microsoft Partner

الرد }}}
تم الشكر بواسطة: tarek , الشاكي لله
#10
جزاك الله خيرا
ممكن شرح الاكواد السابقة لان فيها أشياء لا اعرفها مثل
Me.New(3
و
Property
و
Get
و جزاك الله خيرا
الرد }}}
تم الشكر بواسطة: الشاكي لله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التعديل على كود لقرائة باقي المعلومات من قاعدة البيانات khairallah 2 2,406 05-06-21, 11:21 PM
آخر رد: samirmondy2@gmail.com
  [VB.NET] كيف يتم تخزين المعلومات الموجودة في الداتا قريد غير متصلة بقاعدة البيانات rochdi191 8 3,144 16-05-20, 08:23 AM
آخر رد: عبدالله الدوسري
  [VB.NET] تصدير المعلومات الى اكسل khairallah 2 1,522 16-06-19, 12:39 PM
آخر رد: khairallah
Question [VB.NET] طريقة نقل المعلومات من DataGridView1 إلى DataGridView2 والحفظ dell 14 5,235 27-07-18, 01:36 AM
آخر رد: dell
  كيفية تحديث المعلومات في المشروع بمفتاح Refresh khaled12345 2 1,812 28-05-17, 11:49 PM
آخر رد: khaled12345
  كيفيةاعادة المعلومات الي الجدول بعد مسح ما بداخل RichTextBox khaled12345 3 2,059 23-05-17, 12:37 AM
آخر رد: khaled12345
  تضبيط ادخال المعلومات من Rich box الي ال ListBox khaled12345 2 1,875 22-05-17, 08:50 AM
آخر رد: khaled12345
  [سؤال] كيف احدث المعلومات في الداتا جريد abumuhannadzym 5 3,053 12-10-16, 11:22 PM
آخر رد: abumuhannadzym
  [سؤال] برنامج محل تجاري ( لتقنية المعلومات ) 2010 Vb-Oman 1 3,945 03-04-14, 01:44 AM
آخر رد: bumb
  سحب و افلات و استخراج المعلومات mohssan 8 4,150 16-03-14, 03:04 PM
آخر رد: mohssan

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


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