تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برمجة الاحتمالات في الفيجوال samira20 4 138 02-05-19, 05:58 PM
آخر رد: ابراهيم ايبو
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 171 29-04-19, 03:04 PM
آخر رد: alsouf
  [VB.NET] تشغيل السكانر من داخل فيجوال بيسك khairallah 5 192 20-04-19, 07:35 AM
آخر رد: elgokr
  بخصوص ادوات فيجوال بيسك 2010 السائل 5 156 02-04-19, 12:10 AM
آخر رد: elgokr
  ممكن مساعدة في حل بحث عن الفجوال بيسك A12 1 89 29-03-19, 01:22 AM
آخر رد: عبد العزيز البسكري
  استفساربخصوص الفجوال بيسك 2017 سمير جمال 1 86 28-03-19, 02:23 AM
آخر رد: Amir_Alzubidy
  [VB.NET] بخصوص ادوات فيجوال بيسك 2010 السائل 1 90 27-03-19, 12:57 AM
آخر رد: asemshahen5
  سؤال فى الفيجوال والاكسيس احمد خطاب 9 225 24-03-19, 01:28 AM
آخر رد: احمد خطاب
  كتب فى الرسم بالفجول بيسك 2010 Lathe1 0 101 22-03-19, 12:27 PM
آخر رد: Lathe1
  كيفية رسم الاشكال الهندسية بالفجول بيسك Lathe1 0 80 22-03-19, 12:25 PM
آخر رد: Lathe1

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


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