ط®ظˆط§ط±ط²ظ…ظٹط© ط§ظ„طھط´ظپظٹط± ظˆظپظƒ ط§ظ„طھط´ظپظٹط± ط¨ط§ظ„ظپظٹط¬ظˆظ„ ط¨ظٹط³ظƒ





السلام عليكم ورحمه الله وبركاته




بصراحة محتاسه بكود code التشفير وفك التشفير


ولقيت هالكود code بالنت لكن مااشتغل معاي لما اجي اسوي استدعاء Function ماقدر استدعيه

اذا احد عنده خلفيه ياليت يقول وين المشكله ولا يعدل على الكود code

ماعندي اي خلفيه عن التشفير في الفيجوال بيسك.نت

والفكره اضع جمله واحولها الى مشفره ومن ثم ارجعها الى اصلها


كود code خوارزمية التشفير :

رمز PHP:
<code style="white-space:nowrap"> <code>
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
</code> </code>

كود code خوارزمية فك التشفير:


رمز PHP:
<code style="white-space:nowrap"> <code>
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
</code> </code>


* حيث أن (Text) يساوي النص المراد تشفيره و (Difference) يساوي المفتاح أو مقدار الإزاحة .


___________


دمتوو بخير






التعديل الأخير كان بواسطة (¯·_(الامل)_·¯); 24 - 11 - 2014 الساعة 22:17





©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى©