[rootkit]

مرحبا اخواني اريد برنامج يكون فيه خوارزمية vigenere يكون مثلا اضع فيه اي نص يكون فيه زرين زر تشفير وزر فك تشفير

[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) 


[rootkit]

(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) 


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

[silverlight]

بالرغم ان الموضوع اصبح سهلا لك لكي تتطبق التشفيير
وتسطيع ان تكتب المثال بنفسك

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

[rootkit]

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

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

شكرا لك اخي الكريم على مساعدة مش مشكلة انا بفعل استخدم الفيجول نسخة 2015

[silverlight]

الملف بالمرفقات

[rootkit]

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

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

---

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

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

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

سؤال اخر اخي اسف على اطالة لماذا يجب استخدام حروف وليس ارقام لماذا ما بزبط استخدم حروف وارقام معا

[silverlight]

طبعا كلامك مظبوط
و الدالة بتعمل ده بشكل صحيح

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

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

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

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

الرابط

[rootkit]

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

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

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

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

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

الرابط
 

فهمت الفكرة الان شكرا لك على مجهودك رائع