(08-04-18, 04:15 AM)silverlight كتب : يمكنك استخدام الدالة التالية
وهي تستخدم للتشفيير و أيضا تستخدم في فك التشفيير

PHP كود :

   Private Function Vigenere(data As String, password As String, encrypt As Boolean) As String

        For i As Integer = 0 To password.Length - 1
            If Not Char.IsLetter(password(i)) Then
                Return Nothing
            End If
        Next

        Dim result As String = String.Empty
        Dim count As Integer = 0

        For i As Integer = 0 To data.Length - 1
            If Char.IsLetter(data(i)) Then
                Dim IsUpper As Boolean = Char.IsUpper(data(i))
                Dim index As Integer = Convert.ToInt32(If(IsUpper, "A"c, "a"c))
                Dim passwordIndex As Integer = (i - count) Mod password.Length
                Dim j As Integer = Convert.ToInt32(If(IsUpper, Char.ToUpper(password(passwordIndex)), Char.ToLower(password(passwordIndex)))) - index
                j = If(encrypt, j, -j)
                Dim a As Integer = ((Convert.ToInt32(data(i)) + j) - index)
                Dim b As Integer = 26
                Dim c As Integer = (a Mod b + b) Mod b
                Dim chr As Char = ChrW(c + index)
                result += chr
            Else
                result += data(i)
                count += 1
            End If
        Next

        Return result
    End Function 


التشفيير

PHP كود :

       Dim txt As String = "Visual Basic For Arab"
        Dim password As String = "password"
        Dim encrypted As String = Me.Vigenere(txt, password, True) 


فك التشفيير

PHP كود :

       Dim decrypted = Me.Vigenere(encrypted, password, False) 


(08-04-18, 03:29 PM)silverlight كتب : بالرغم ان الموضوع اصبح سهلا لك لكي تتطبق التشفيير
وتسطيع ان تكتب المثال بنفسك

انا باستخدم الفيجوال نسخة 2015 ان كان هذا مناسب لك ابلغني و سوف اكتب لك المثال

(08-04-18, 03:56 PM)silverlight كتب : الملف بالمرفقات

(08-04-18, 04:32 PM)rootkit كتب :

(08-04-18, 03:56 PM)silverlight كتب : الملف بالمرفقات

شكرا لك بس بدي افهم هلنقطة مثلا مش لازم لما ادخل مثلا جملة معينة ويتم تشفيرها من ثم لما اجي افك تشفيرها يتم ارجاع جملة الاصلية

(08-04-18, 04:46 PM)silverlight كتب : طبعا كلامك مظبوط
و الدالة بتعمل ده بشكل صحيح

انا قسمت المشروع في المرفقات لجزئين
في الجزء الأول الخاص بالتشفيير
اكتب اسمك في التكست بوكس 1
وفي التكست بوكس 2 ادخل الباسوورد بشرط انها تكون حروف
اضغط الباتون تشفيير
المفروض تظهر النتيجة في التكست بوكس 3

اما في الجزء الثاني
يتم ادخال التكست الذي تم تشفييره الي التكست بوكس 4
ادخال نفس كلمة السر في التكست بوكس 5
اضغط فك التشفيير
الكلمة الاصلية ستظهر لك في التكست بوكس 6

ملحوظة
التشفيير الذي طلبته انت لا يصلح غير مع الحروف و الكلمات الانجليزية فقط
لأن من كتب فكرته شخص فرنساي من 200 سنة تقريبا

لكن لو عايز تشفر عربي و اجنبي فيه موضوع في قسم المقالات عن التشفيير سوف يفيدك
راجع الرابط التالي

الرابط