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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف احدث المعلومات في الداتا جريد abumuhannadzym 5 159 12-10-16, 11:22 PM
آخر رد: abumuhannadzym
  [سؤال] برنامج محل تجاري ( لتقنية المعلومات ) 2010 Vb-Oman 1 1,141 03-04-14, 01:44 AM
آخر رد: bumb
  سحب و افلات و استخراج المعلومات mohssan 8 1,041 16-03-14, 03:04 PM
آخر رد: mohssan
  تخزين المعلومات داخل ال سيرفر tecno2012 1 304 02-06-13, 11:17 AM
آخر رد: tecno2012
  البرنامج أصبح بطيء جدا بعد حوالي 500 سطر من المعلومات Hicham 1 385 01-05-13, 05:20 PM
آخر رد: Sajad
  كيف اسحب المعلومات الموجودة في ال datagridview zeus 5 807 20-02-13, 08:17 PM
آخر رد: Sajad
  مشكلة بسيطة في نقل جميع المعلومات من ليست فيو الى تكست بوكس shado1796 15 1,034 21-12-12, 11:50 AM
آخر رد: shado1796
  اختفاء شريط المعلومات ؟ kslawy 3 579 15-11-12, 02:34 PM
آخر رد: ربيع
  للنقاش: برمجة من اجل سحب او استخلاص كل المعلومات من الموقع vb4arab مصعب عبدالرحمن 10 7,112 25-09-12, 02:39 AM
آخر رد: مصعب عبدالرحمن

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


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