منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] امن المعلومات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] امن المعلومات (/showthread.php?tid=552)

الصفحات: 1 2

امن المعلومات - shatha alward - 15-10-13

سلام عليكم ...اذا ممكن مساعدة انا عندي تطبيق عملي في ال vb.net لتطبيق شفرة قيصر لتشفير البيانات وما اعرف الكود الها ياريت تساعدوني لان محتاجتها في مشروع تخرجي ...ومشكورين

RE: امن المعلومات - m0075 - 16-10-13

في برامج جاهزة تقوم بمهمة امن البرنامج وتشفير اكواده اما كود لا اعلم

مثل برنامج سمارت اسمبلي . وغيره

RE: امن المعلومات - sherif khalid - 16-10-13

بسم الله الرحمن الرحيم

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

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

كود :
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

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


RE: امن المعلومات - تركي قرمزلي - 17-10-13

السلام عليكم و رحمة الله و بركاته

ماذا يعني me.ShiftCount

السلام عليكم و رحمة الله و بركاته

RE: امن المعلومات - sherif khalid - 17-10-13

اخى العزيز السلام عليكم ورحمة الله وبركاتة

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

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

RE: امن المعلومات - shatha alward - 17-10-13

اولا كل عام وانتم بخير ....اخواني لكم جزيل الشكر لانكم افدتوني فعلا جزاكم الله خير اسال الله لكم التوفيق والمزيد من التالق في عالم البرمجة .....

RE: امن المعلومات - sherif khalid - 17-10-13

وانتى بالصحة والسلامة ياشذى واحنا فى الخدمة فى اى وقت

RE: امن المعلومات - تركي قرمزلي - 17-10-13

السلام عليكم و رحمة الله و بركاته
الفكرة وصلت و الف شكر ، على حسب ما فهمت أنه كلما كانت القيمة كبيرة كلما كان التشفير قويا
السلام عليكم و رحمة الله و بركاته

RE: امن المعلومات - sherif khalid - 17-10-13

تمام يا استاذ تركى .. وانا فى الخدمة فى اى شئ يخص التشفير والحماية

RE: امن المعلومات - ali.alfoly - 17-10-13

جزاك الله خيرا
ممكن شرح الاكواد السابقة لان فيها أشياء لا اعرفها مثل
Me.New(3
و
Property
و
Get
و جزاك الله خيرا