تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خوارزمية التشفير RC6
#1
السلام عليكم ورحمة الله وبركاته
انا اعمل على خوارزمية RC6 ,وهي خوارزمية جميلة وسريعة جدا
هذه صورة الخوارزمية


صنعت فنكشنات كثيرة وفقط اقوم بالاستدعاء لهذه الفنكشنات حتى يسهل العمل
فنكشن لتوليد المفاتيح
فنكشن تحويل البايتات الى ورد
فنكشن التدوير لليمين واليسار
فنكشن حشو النص اذا كان ناقص
فنكشن تشفير وفك شفرة بلوك واحد
فنكشن تشفير وفك شفرة اكثر من بلوك  Cool
---
لكن المشكلة  Undecided  عندي بالاستدعاء داخل زر البتوم
كل مرة اكتب الاستداعء يكون عندي مشاكل مو مشكلة وحدة

هذا هو التصميم الذي اريده ان يعمل

يعني بالتكست بوك الاول يدخل النص المشفر وعند الضغط على زر ENCRYPTION
يتشفر النص ويظهر الناتج بزر التكست بوكس الثاني وعند الضغط على زر DECRYPTION
يعود النص الاصلي في التكست بوك الثالث

هذا هو الكود كامل للخوارزمية
كود :
Public Class Form1
   Private Shared w As Integer = 32, r As Integer = 20
   Private Shared ReadOnly e As Double = Math.E
   Private Const goldenRatio As Double = 1.61803398874965
   Private Shared Pw As Integer = CInt(&HB7E15163), Qw As Integer = CInt(&H9E3779B9)
   Private Shared S As Integer()
   Private Shared Function convBytesWords(key As SByte(), u As Integer, c As Integer) As Integer()
       Dim tmp As Integer() = New Integer(c - 1) {}
       Dim i As Integer
       For i = 0 To tmp.Length - 1
           tmp(i) = 0
       Next
       i = 0
       Dim off As Integer = 0
       While i < c
           tmp(i) = ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF)) Or ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 8) Or ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 16) Or ((key(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 24)
           i += 1
       End While
       Return tmp
   End Function
   Private Shared Function generateSubkeys(key As SByte()) As Integer()
       Dim u As Integer = w \ 8
       Dim c As Integer = key.Length \ u
       Dim t As Integer = 2 * r + 4
       Dim L As Integer() = convBytesWords(key, u, c)
       Dim S As Integer() = New Integer(t - 1) {}
       S(0) = Pw
       For i As Integer = 1 To t - 1
           S(i) = S(i - 1) + Qw
       Next
       Dim A As Integer = 0
       Dim B As Integer = 0
       Dim k As Integer = 0, j As Integer = 0
       Dim v As Integer = 3 * Math.Max(c, t)
       For i As Integer = 0 To v - 1
           A = InlineAssignHelper(S(k), RotateLeft((S(k) + A + B), 3))
           B = InlineAssignHelper(L(j), RotateLeft(L(j) + A + B, A + B))
           k = (k + 1) Mod t
           j = (j + 1) Mod c
       Next
       Return S
   End Function
   Private Shared Function paddingKey(key As SByte()) As SByte()
       Dim l As Integer = key.Length Mod 4
       For i As Integer = 0 To l - 1
           key(key.Length + i) = 0
       Next
       Return key
   End Function
   Private Shared Function deletePadding(input As SByte()) As SByte()
       Dim count As Integer = 0
       Dim i As Integer = input.Length - 1
       While input(i) = 0
           count += 1
           i -= 1
       End While
       Dim tmp As SByte() = New SByte(input.Length - count - 2) {}
       Array.Copy(input, 0, tmp, 0, tmp.Length)
       Return tmp
   End Function
   Public Shared Function RotateLeft(value As Integer, count As Integer) As Integer
       Dim val As UInteger = CUInt(value)
       Return CInt((val << count) Or (val >> (32 - count)))
   End Function
   Public Shared Function RotateRight(value As Integer, count As Integer) As Integer
       Dim val As UInteger = CUInt(value)
       Return CInt((value >> count) Or (value << (32 - count)))
   End Function
   Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
       target = value
       Return value
   End Function
   Private Shared Function decryptBloc(input As SByte()) As SByte()
       Dim tmp As SByte() = New SByte(input.Length - 1) {}
       Dim t As Integer, u As Integer
       Dim aux As Integer
       Dim data As Integer() = New Integer(input.Length \ 4 - 1) {}
       For i As Integer = 0 To data.Length - 1
           data(i) = 0
       Next
       Dim off As Integer = 0
       For i As Integer = 0 To data.Length - 1
           data(i) = ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF)) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 8) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 16) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 24)
       Next
       Dim A As Integer = data(0), B As Integer = data(1), C As Integer = data(2), D As Integer = data(3)
       C = C - S(2 * r + 3)
       A = A - S(2 * r + 2)
       For i As Integer = r To 1 Step -1
           aux = D
           D = C
           C = B
           B = A
           A = aux
           u = RotateLeft(D * (2 * D + 1), 5)
           t = RotateLeft(B * (2 * B + 1), 5)
           C = RotateRight(C - S(2 * i + 1), t) Xor u
           A = RotateRight(A - S(2 * i), u) Xor t
       Next
       D = D - S(1)
       B = B - S(0)
       data(0) = A
       data(1) = B
       data(2) = C
       data(3) = D
       For i As Integer = 0 To tmp.Length - 1
           tmp(i) = CSByte(CInt(CUInt(data(i \ 4)) >> (i Mod 4) * 8) And &HFF)
       Next
       Return tmp
   End Function
   Private Shared Function encryptBloc(input As SByte()) As SByte()
       Dim tmp As SByte() = New SByte(input.Length - 1) {}
       Dim t As Integer, u As Integer
       Dim aux As Integer
       Dim data As Integer() = New Integer(input.Length \ 4 - 1) {}
       For i As Integer = 0 To data.Length - 1
           data(i) = 0
       Next
       Dim off As Integer = 0
       For i As Integer = 0 To data.Length - 1
           data(i) = ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF)) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 8) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 16) Or ((input(System.Math.Max(System.Threading.Interlocked.Increment(off), off - 1)) And &HFF) << 24)
       Next
       Dim A As Integer = data(0), B As Integer = data(1), C As Integer = data(2), D As Integer = data(3)
       B = B + S(0)
       D = D + S(1)
       For i As Integer = 1 To r
           t = RotateLeft(B * (2 * B + 1), 5)
           u = RotateLeft(D * (2 * D + 1), 5)
           A = RotateLeft(A Xor t, u) + S(2 * i)
           C = RotateLeft(C Xor u, t) + S(2 * i + 1)
           aux = A
           A = B
           B = C
           C = D
           D = aux
       Next
       A = A + S(2 * r + 2)
       C = C + S(2 * r + 3)
       data(0) = A
       data(1) = B
       data(2) = C
       data(3) = D
       For i As Integer = 0 To tmp.Length - 1
           tmp(i) = CSByte(CInt(CUInt(data(i \ 4)) >> (i Mod 4) * 8) And &HFF)
       Next
       Return tmp
   End Function
   Public Function encrypt(data As SByte(), key As SByte()) As SByte()
       Dim bloc As SByte() = New SByte(15) {}
       key = paddingKey(key)
       S = generateSubkeys(key)
       Dim lenght As Integer = 16 - data.Length Mod 16
       Dim padding As SByte() = New SByte(lenght - 1) {}
       padding(0) = CSByte(&H80)
       For i As Integer = 1 To lenght - 1
           padding(i) = 0
       Next
       Dim count As Integer = 0
       Dim tmp As SByte() = New SByte(data.Length + (lenght - 1)) {}
       Dim j As Integer
       For j = 0 To data.Length + (lenght - 1)
           If j > 0 AndAlso j Mod 16 = 0 Then
               bloc = encryptBloc(bloc)
               Array.Copy(bloc, 0, tmp, j - 16, bloc.Length)
           End If
           If j < data.Length Then
               bloc(j Mod 16) = data(j)
           Else
               bloc(j Mod 16) = padding(count)
               count += 1
               If count > lenght - 1 Then
                   count = 1
               End If
           End If
       Next
       bloc = encryptBloc(bloc)
       Array.Copy(bloc, 0, tmp, j - 16, bloc.Length)
       Return tmp
   End Function
   Public Shared Function decrypt(data As SByte(), key As SByte()) As SByte()
       Dim tmp As SByte() = New SByte(data.Length - 1) {}
       Dim bloc As SByte() = New SByte(15) {}
       key = paddingKey(key)
       S = generateSubkeys(key)
       Dim i As Integer
       For i = 0 To data.Length - 1
           If i > 0 AndAlso i Mod 16 = 0 Then
               bloc = decryptBloc(bloc)
               Array.Copy(bloc, 0, tmp, i - 16, bloc.Length)
           End If
           If i < data.Length Then
               bloc(i Mod 16) = data(i)
           End If
       Next
       bloc = decryptBloc(bloc)
       Array.Copy(bloc, 0, tmp, i - 16, bloc.Length)
       tmp = deletePadding(tmp)
       Return tmp
   End Function
 
End Class

اذا الكود فيه خلل ,, ممكن مساعدة في تصحيحه
او اذا اي احد عندة كود جاهز لهذه الخوارزمية بالفجول دوت نت ممكن المساعدة
Confused
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التشفير -Decryptor Kian Tech 1 96 02-09-16, 04:06 PM
آخر رد: Kian Tech
  [VB.NET] خوارزمية للترخيص مساعدة Mohaisen 2 175 21-01-16, 09:49 PM
آخر رد: Mohaisen
  التشفير حرف بحرف moha11 5 337 21-09-15, 04:44 PM
آخر رد: silverlight
  [سؤال] جل إحترامي للجميع تشفير خوارزمية RSA ليلى 3 1,992 15-02-14, 09:22 AM
آخر رد: vbnet
  [سؤال] استفسار بخصوص دوال التشفير وفك التشفير mazen55 5 1,433 21-11-13, 11:42 PM
آخر رد: mamas1
  مساعدة في انشاء برنامج التشفير shado1796 34 3,278 23-05-13, 12:34 PM
آخر رد: hoob computer
  بخصوص التشفير مبتدئ 5 448 03-02-13, 06:04 AM
آخر رد: مبتدئ
  ما هو افضل برنامج لى التشفير مبتدئ 4 575 21-12-12, 02:12 PM
آخر رد: FFF

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم