الأوامر في شفرة سيزر ؟؟؟


(system) #1

السلام عليكم ,أرجو مساعدتكم … عندي مشروع صغير هو شفرة سيزر اني ااستخدمها في الفيجوال بيسك انا فاهمة طريقة عمل شفر سيزر وعندي البرنامج والاكواد جاهزة
بس اللي اطلبه اني أفهم معنى الأكواد اللي بالفيجوال بيسك كل أمر وشنو معناه لاني ماعندي أي خلفية بالفيجوال بيسك
أتمنى الرد والمساعدة
هذه هي الاكواد الموجودة بالفيجوال أبي أعرف كل أمر ومعناه
Dim y As Integer
Dim n As Integer
Dim x As String
Public Function CaesarShiftEncr(Text As String, Difference As Integer) As String
On Error GoTo errorhandler
While Difference > 26
Difference = Difference - 26
Wend
Reset
Dim iLoop As Integer, tAsc As String, endtext As String
For iLoop = 1 To Len(Text)
tAsc = Mid$(Text, iLoop, 1)
If tAsc <> " " Then
If tAsc = LCase$(tAsc) Then
If Asc(tAsc) + Difference > 122 Then tAsc = Chr$(96 + ((Asc(tAsc) + Difference) - 122)) Else tAsc = Chr$(Asc(tAsc) + Difference)
ElseIf tAsc = UCase$(tAsc) Then
If Asc(tAsc) + Difference > 90 Then tAsc = Chr$(64 + ((Asc(tAsc) + Difference) - 90)) Else tAsc = Chr$(Asc(tAsc) + Difference)
End If
End If
endtext = endtext & tAsc
Next
CaesarShiftEncr = endtext
errorhandler:
Reset
Exit Function
End Function
Public Function CaesarShiftDecr(Text As String, Difference As Integer) As String
On Error GoTo errorhandler
While Difference > 26
Difference = Difference - 26
Wend
Reset
Dim iLoop As Integer, tAsc As String, endtext As String
For iLoop = 1 To Len(Text)
tAsc = Mid$(Text, iLoop, 1)
If tAsc <> " " Then
If tAsc = LCase$(tAsc) Then
If Asc(tAsc) - Difference < 97 Then tAsc = Chr$(122 + ((Asc(tAsc) - Difference) - 96)) Else tAsc = Chr$(Asc(tAsc) - Difference)
ElseIf tAsc = UCase$(tAsc) Then
If Asc(tAsc) - Difference < 65 Then tAsc = Chr$(90 + ((Asc(tAsc) - Difference) - 64)) Else tAsc = Chr$(Asc(tAsc) - Difference)
End If
End If
endtext = endtext & tAsc
Next
CaesarShiftDecr = endtext
errorhandler:
Reset
Exit Function
End Function

Private Sub Command1_Click()
y = Val(Text3.Text)
x = CaesarShiftEncr(Text1.Text, y)
Label5.Caption = x

End Sub
Private Sub Command2_Click()
n = Val(Text5.Text)
z = CaesarShiftDecr(Text4.Text, n)
Label6.Caption = z
End Sub