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



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


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