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

اللينك

تحديدا الأسلوب السادس
الذي عليك أن تحلطه مع الأسلوب الرابع
Retired
الرد
تم الشكر بواسطة:
#3
شكرا أخي   

و لو يوجد أشياء أدوات أخرى ممكن ترسلها
الرد
تم الشكر بواسطة:
#4
للتشفيير و فك التشفيير بطريقة قيصر
يمكنك استخدام الداول التالية

PHP كود :
   Private Function EncryptChar(chr As Charshift As Integer) As Char
        If Not Char
.IsLetter(chrThen
            Return chr
        End 
If
 
       Dim i As Integer Convert.ToInt32(If(Char.IsUpper(chr), "A"c"a"c))
 
       Return ChrW((((Convert.ToInt32(chr) + shift) - iMod 26) + i)
 
   End Function

 
   Private Function Encrypt(As Stringshift As Integer) As String
        Dim result 
As String String.Empty
 
       Dim i As Integer 0
        While i 
s.Length
            result 
+= EncryptChar(s(i), shift)
 
           i += 1
        End 
While
 
       Return result
    End 
Function

 
   Private Function Decrypt(As Stringshift As Integer) As String
        Return Encrypt
(s26 shift)
 
   End Function 

كيفية إستخدام الدوال


PHP كود :
       Label1.Text Encrypt("Visual Basic"5)
 
       Label2.Text Decrypt(Label1.Text5


طريقة أخري مشابهة لطريقة قيصر
ستجدها في الكلاس التالي

PHP كود :
Public Class Obfuscation

    Private _source 
As String
    Private _dest 
As String
    Private _valid 
As Integer
    Private _protection 
As String

    Public Sub 
New(source As String)
 
       Me.New(sourceString.Empty)
 
   End Sub

    Public Sub 
New(source As Stringprotection As String)
 
       Me._source source
        Me
._valid = If(Not String.IsNullOrEmpty(source), 10)
 
       Me._protection protection
    End Sub

    Public ReadOnly Property Text 
As String
        Get
            Me
.Obfuscate()
 
           Return _dest
        End Get
    End Property

    Private Sub Obfuscate
()
 
       If Me._valid Then
            Dim chars 
As Char() = New Char(Me._source.Length 1) {}
 
           Dim i As Integer 0
            While i 
Me._source.Length
                chars
(i) = ChrW(AscW(Me._source(i)) Xor AscW(Me._protection(i Mod Me._protection.Length)))
 
               i += 1
            End 
While
 
           Me._dest = New String(chars)
 
       End If
 
   End Sub

End 
Class 

كيفية استخدام الكلاس

PHP كود :
       Label1.Text = New Obfuscation("Visual Basic 4 Arab""1234567").Text
        Label2
.Text = New Obfuscation(Label1.Text"1234567").Text 
Retired
الرد
تم الشكر بواسطة: sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى الفيجوال والاكسيس احمد خطاب 6 107 17-03-19, 01:09 AM
آخر رد: احمد خطاب
  تكرار الصفوف في sql server والفيجوال بيسك عبدالله اااا 3 91 15-03-19, 07:55 PM
آخر رد: 5000
  [VB.NET] استخدام الأداة adodc في الفجول بيسك دوت نت معتز حسن 2 118 10-03-19, 09:09 AM
آخر رد: معتز حسن
  فيجوال بيسك 2017 لسه مبتدئ 3 79 07-03-19, 09:14 PM
آخر رد: elgokr
  فيجوال بيسك 2015 amal_ly 1 79 27-02-19, 04:11 AM
آخر رد: elgokr
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 164 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] ربط الفجوال بيسك بمكينة البصمة _M.Nasser 0 129 12-02-19, 08:13 PM
آخر رد: _M.Nasser
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 136 11-02-19, 11:39 PM
آخر رد: princelovelorn
  [VB.NET] مشكلة بعد تحويل مشروع الفيجوال بيسك لصيغة exe _M.Nasser 1 151 25-01-19, 07:44 PM
آخر رد: سعود
  [سؤال] اريد الترجمة من خلال الفيجوال بيسك هل هذا متاح ؟ dametucorazon 2 114 22-01-19, 01:06 AM
آخر رد: dametucorazon

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


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