تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار بخصوص دوال التشفير وفك التشفير
#1
انا استخدم عدة دوال تشفير واشفر النص عادي وافك التشفير عادي بشرط يكون انجليزي ولكن عند استخدام اللغة العربية في النص المشفر ينقلب النص الي علامات استفهام

ما الحل او الطريقة الصحيحة لتشفير وفك تشفير نص باللغة العربية والانجليزية معا
الرد }}}}
تم الشكر بواسطة:
#2
بالنسبه لي فأستخدم كلاس سهل خاص للتشفير

كود :
Public Class Security
    Public Shared trip As New System.Security.Cryptography.TripleDESCryptoServiceProvider
    Public Shared md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
    Public Shared Function utf(ByVal V As String) As Byte()
        Return md5.ComputeHash(System.Text.ASCIIEncoding.UTF8.GetBytes(V))
    End Function
    Public Shared Function cod(ByVal str As String, ByVal key As String) As String
        On Error Resume Next
        trip.Key = utf(key)
        trip.Mode = System.Security.Cryptography.CipherMode.ECB
        Dim Buffer As Byte() = System.Text.ASCIIEncoding.UTF8.GetBytes(str)
        Return Convert.ToBase64String(trip.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
    End Function
    Public Shared Function uncod(ByVal str As String, ByVal key As String) As String
        On Error Resume Next
        trip.Key = utf(key)
        trip.Mode = System.Security.Cryptography.CipherMode.ECB
        Dim byt() As Byte = Convert.FromBase64String(str)
        Return System.Text.ASCIIEncoding.UTF8.GetString(trip.CreateDecryptor().TransformFinalBlock(byt, 0, byt.Length))
    End Function
End Class

ايضآآ ممكن تغير من نوع التشفير
الفكرة تعتمد على الكلمة الي تريد تشفرها+كلمة السر لفك تشفير الكلمة ضع زر بوتون وضع هذا الكود

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = Security.cod("فيجوال بيسك", "123")
        MsgBox(a)
        Dim b As String = Security.uncod(a, "123")
        MsgBox(b)
    End Sub
الرد }}}}
تم الشكر بواسطة:
#3
جزاك اللة كل خير اخي ولكن يحدث مشكلة بالرغم من استدعائي لهذة الدوال


كود :
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography

المشكلة بهذا الجزء خصوصا
GetString(trip.CreateDecryptor().TransformFinalBl​ock(byt, 0, byt.Length)

وهل يشفر النص بالغة العربية
الرد }}}}
تم الشكر بواسطة:
#4
هل يمكن ان تضع صورة الخطأ
الرد }}}}
تم الشكر بواسطة:
#5
    هذة صورة بالخطا
الرد }}}}
تم الشكر بواسطة:
#6
- هذا مثال على ذلك
- تحياتي Angel


الملفات المرفقة
.zip   Encrypting.zip (الحجم : 33.56 ك ب / التحميلات : 110)
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار كيفية تحزيم مجلد من خلال الفيجول بيسك Marwan9990 3 108 29-07-17, 07:15 PM
آخر رد: Marwan9990
  [سؤال] استفسار مشكلة في كود الستعلام Marwan9990 1 71 27-07-17, 06:44 PM
آخر رد: Marwan9990
  استفسار بما يخص مشاركة قاعدة البيانات من نوع SQLServer hitman48 4 126 24-07-17, 10:56 PM
آخر رد: Adrees
  [VB.NET] لدي سؤال بخصوص Code يتواصل مع الطابعة 0theghost0 0 59 23-07-17, 06:21 PM
آخر رد: 0theghost0
  استفسار عن كود تصدير بيانات داتا قريد الى اكسل وورود Marwan9990 4 123 23-07-17, 05:00 PM
آخر رد: Marwan9990
  بخصوص مشروع محول الصوتيات غزوان خليل 6 174 23-07-17, 09:26 AM
آخر رد: غزوان خليل
  [سؤال] استفسار عن امكانية مشاركة برامج فيجول بيسك بين اكثر من حاسوب Marwan9990 7 170 21-07-17, 12:49 AM
آخر رد: أبوبكر سويدان
  [سؤال] استفسار عن تحويل كود طباعة داتا قريد فيو من اليسار لليمين Marwan9990 12 324 20-07-17, 01:48 AM
آخر رد: ابو ليلى
  استفسار عن service Mohamed20 1 75 15-07-17, 11:47 AM
آخر رد: أبوبكر سويدان
  [VB.NET] استفسار وشكر فراس الغزي 11 316 15-07-17, 11:44 AM
آخر رد: أبوبكر سويدان

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


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