08-04-18, 12:01 AM
08-04-18, 04:15 AM
يمكنك استخدام الدالة التالية
وهي تستخدم للتشفيير و أيضا تستخدم في فك التشفيير
التشفيير
فك التشفيير
وهي تستخدم للتشفيير و أيضا تستخدم في فك التشفيير
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, 11:25 AM
(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
بالرغم ان الموضوع اصبح سهلا لك لكي تتطبق التشفيير
وتسطيع ان تكتب المثال بنفسك
انا باستخدم الفيجوال نسخة 2015 ان كان هذا مناسب لك ابلغني و سوف اكتب لك المثال
وتسطيع ان تكتب المثال بنفسك
انا باستخدم الفيجوال نسخة 2015 ان كان هذا مناسب لك ابلغني و سوف اكتب لك المثال
08-04-18, 03:30 PM
(08-04-18, 03:29 PM)silverlight كتب : [ -> ]بالرغم ان الموضوع اصبح سهلا لك لكي تتطبق التشفيير
وتسطيع ان تكتب المثال بنفسك
انا باستخدم الفيجوال نسخة 2015 ان كان هذا مناسب لك ابلغني و سوف اكتب لك المثال
شكرا لك اخي الكريم على مساعدة مش مشكلة انا بفعل استخدم الفيجول نسخة 2015
08-04-18, 03:56 PM
الملف بالمرفقات
08-04-18, 04:32 PM
(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
طبعا كلامك مظبوط
و الدالة بتعمل ده بشكل صحيح
انا قسمت المشروع في المرفقات لجزئين
في الجزء الأول الخاص بالتشفيير
اكتب اسمك في التكست بوكس 1
وفي التكست بوكس 2 ادخل الباسوورد بشرط انها تكون حروف
اضغط الباتون تشفيير
المفروض تظهر النتيجة في التكست بوكس 3
اما في الجزء الثاني
يتم ادخال التكست الذي تم تشفييره الي التكست بوكس 4
ادخال نفس كلمة السر في التكست بوكس 5
اضغط فك التشفيير
الكلمة الاصلية ستظهر لك في التكست بوكس 6
ملحوظة
التشفيير الذي طلبته انت لا يصلح غير مع الحروف و الكلمات الانجليزية فقط
لأن من كتب فكرته شخص فرنساي من 200 سنة تقريبا
لكن لو عايز تشفر عربي و اجنبي فيه موضوع في قسم المقالات عن التشفيير سوف يفيدك
راجع الرابط التالي
الرابط
و الدالة بتعمل ده بشكل صحيح
انا قسمت المشروع في المرفقات لجزئين
في الجزء الأول الخاص بالتشفيير
اكتب اسمك في التكست بوكس 1
وفي التكست بوكس 2 ادخل الباسوورد بشرط انها تكون حروف
اضغط الباتون تشفيير
المفروض تظهر النتيجة في التكست بوكس 3
اما في الجزء الثاني
يتم ادخال التكست الذي تم تشفييره الي التكست بوكس 4
ادخال نفس كلمة السر في التكست بوكس 5
اضغط فك التشفيير
الكلمة الاصلية ستظهر لك في التكست بوكس 6
ملحوظة
التشفيير الذي طلبته انت لا يصلح غير مع الحروف و الكلمات الانجليزية فقط
لأن من كتب فكرته شخص فرنساي من 200 سنة تقريبا
لكن لو عايز تشفر عربي و اجنبي فيه موضوع في قسم المقالات عن التشفيير سوف يفيدك
راجع الرابط التالي
الرابط
08-04-18, 04:53 PM
(08-04-18, 04:46 PM)silverlight كتب : [ -> ]طبعا كلامك مظبوطفهمت الفكرة الان شكرا لك على مجهودك رائع
و الدالة بتعمل ده بشكل صحيح
انا قسمت المشروع في المرفقات لجزئين
في الجزء الأول الخاص بالتشفيير
اكتب اسمك في التكست بوكس 1
وفي التكست بوكس 2 ادخل الباسوورد بشرط انها تكون حروف
اضغط الباتون تشفيير
المفروض تظهر النتيجة في التكست بوكس 3
اما في الجزء الثاني
يتم ادخال التكست الذي تم تشفييره الي التكست بوكس 4
ادخال نفس كلمة السر في التكست بوكس 5
اضغط فك التشفيير
الكلمة الاصلية ستظهر لك في التكست بوكس 6
ملحوظة
التشفيير الذي طلبته انت لا يصلح غير مع الحروف و الكلمات الانجليزية فقط
لأن من كتب فكرته شخص فرنساي من 200 سنة تقريبا
لكن لو عايز تشفر عربي و اجنبي فيه موضوع في قسم المقالات عن التشفيير سوف يفيدك
راجع الرابط التالي
الرابط