15-10-13, 02:10 PM
سلام عليكم ...اذا ممكن مساعدة انا عندي تطبيق عملي في ال vb.net لتطبيق شفرة قيصر لتشفير البيانات وما اعرف الكود الها ياريت تساعدوني لان محتاجتها في مشروع تخرجي ...ومشكورين
الصفحات : 1 2
15-10-13, 02:10 PM
16-10-13, 10:05 PM
في برامج جاهزة تقوم بمهمة امن البرنامج وتشفير اكواده اما كود لا اعلم
مثل برنامج سمارت اسمبلي . وغيره
مثل برنامج سمارت اسمبلي . وغيره
16-10-13, 11:14 PM
بسم الله الرحمن الرحيم
اختى العزيزة اولا كل عام وانتى بخير
اولا هذة وظيفة التشفير بشفرة قيصر
ثانيأ هذة وظيفة فك تشفير شفرة قيصر
ولاى استفسار اخر فى التشفير انا تحت امرك
اختى العزيزة اولا كل عام وانتى بخير
اولا هذة وظيفة التشفير بشفرة قيصر
كود :
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ولاى استفسار اخر فى التشفير انا تحت امرك
17-10-13, 01:26 AM
السلام عليكم و رحمة الله و بركاته
ماذا يعني me.ShiftCount
السلام عليكم و رحمة الله و بركاته
ماذا يعني me.ShiftCount
السلام عليكم و رحمة الله و بركاته
17-10-13, 01:44 AM
اخى العزيز السلام عليكم ورحمة الله وبركاتة
me.sheftcount
هذة خاصية يتم انشائها من النوع integer لتمرير رقم قوة التشفير اليها
اظن الفكرة وصلت
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اظن الفكرة وصلت
17-10-13, 02:48 AM
اولا كل عام وانتم بخير ....اخواني لكم جزيل الشكر لانكم افدتوني فعلا جزاكم الله خير اسال الله لكم التوفيق والمزيد من التالق في عالم البرمجة .....
17-10-13, 02:59 AM
وانتى بالصحة والسلامة ياشذى واحنا فى الخدمة فى اى وقت
17-10-13, 03:00 AM
السلام عليكم و رحمة الله و بركاته
الفكرة وصلت و الف شكر ، على حسب ما فهمت أنه كلما كانت القيمة كبيرة كلما كان التشفير قويا
السلام عليكم و رحمة الله و بركاته
الفكرة وصلت و الف شكر ، على حسب ما فهمت أنه كلما كانت القيمة كبيرة كلما كان التشفير قويا
السلام عليكم و رحمة الله و بركاته
17-10-13, 03:06 AM
تمام يا استاذ تركى .. وانا فى الخدمة فى اى شئ يخص التشفير والحماية
17-10-13, 03:34 PM
جزاك الله خيرا
ممكن شرح الاكواد السابقة لان فيها أشياء لا اعرفها مثل
Me.New(3
و
Property
و
Get
و جزاك الله خيرا
ممكن شرح الاكواد السابقة لان فيها أشياء لا اعرفها مثل
Me.New(3
و
Property
و
Get
و جزاك الله خيرا
الصفحات : 1 2