تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[نقاش] سؤال فى مشاركة احد الاعضاء ؟!
#1
لقد كنت ابحث عن طريقة لتشفير النصوص فوجدت مثال رائع للاخ RaggiTech و هو قام مشكورا بصنع ملف dll ليقوم بتشفير النصوص ومن امكانيات هذا الملف انة عندما يتم التشفير على جهاز لا يستطيع جهاز اخر فك التشفير سؤالى هو كيف تكون هذة ميزة و انا شفرت مثلا كلمة مرور او اى شيئ و اود ان اقوم بفك التشفير على جهاز العميل ليستخدم البرنامج كلمة المرور المشفرة اذا كنت مخطئ او فهمت الموضوع بطريقة خاطئة ارجو التوضيح من الاخوة و هذا رابط المشاركة فى قسم المقالات http://vb4arb.com/vb/thread-4723.html
الرد }}}}
تم الشكر بواسطة:
#2
ما تقوله معناه ان هناك خطا في اسلوب التشفير
وأرد عليك وأقول أين ستكون الفائدة هنا من التشفير .... فأنت هكذا تقوم بتشفير البيانات لنفسك فقط و مع ذلك كل شئ يمكن ان يتم فك التشفير الخاص به لكنك ليس لديك اصل الكود الذي قام بالتشفير

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

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


الكود التالي موجود علي النت و يمكن ان تستخدمه و تطور فيه
انا عن نفسي توقفت عن استخدام Cryptography و بأقوم بالتشفير بأساليب اخري
PHP كود :
Imports System.Text
Imports System
.Security.Cryptography
Imports System
.IO

Public Class StringCipher

    Private Sub 
New()
 
   End Sub
    
' This constant is used to determine the keysize of the encryption algorithm in bits.
    ' 
We divide this by 8 within the code below to get the equivalent number of bytes.
 
   Private Const Keysize As Integer 256

    
' This constant determines the number of iterations for the password bytes generation function.
    Private Const DerivationIterations As Integer = 1000

    Public Shared Function Encrypt(plainText As String, passPhrase As String) As String
        ' 
Salt and IV is randomly generated each timebut is preprended to encrypted cipher text
        
' so that the same Salt and IV values can be used when decrypting.  
        Dim saltStringBytes = Generate256BitsOfRandomEntropy()
        Dim ivStringBytes = Generate256BitsOfRandomEntropy()
        Dim plainTextBytes = Encoding.UTF8.GetBytes(plainText)
        Using password = New Rfc2898DeriveBytes(passPhrase, saltStringBytes, DerivationIterations)
            Dim keyBytes = password.GetBytes(Keysize \ 8)
            Using symmetricKey = New RijndaelManaged()
                symmetricKey.BlockSize = 256
                symmetricKey.Mode = CipherMode.CBC
                symmetricKey.Padding = PaddingMode.PKCS7
                Using encryptor = symmetricKey.CreateEncryptor(keyBytes, ivStringBytes)
                    Using memoryStream = New MemoryStream()
                        Using cryptoStream = New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write)
                            cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length)
                            cryptoStream.FlushFinalBlock()
                            ' 
Create the final bytes as a concatenation of the random salt bytesthe random iv bytes and the cipher bytes.
 
                           Dim cipherTextBytes saltStringBytes
                            cipherTextBytes 
cipherTextBytes.Concat(ivStringBytes).ToArray()
 
                           cipherTextBytes cipherTextBytes.Concat(memoryStream.ToArray()).ToArray()
 
                           memoryStream.Close()
 
                           cryptoStream.Close()
 
                           Return Convert.ToBase64String(cipherTextBytes)
 
                       End Using
                    End Using
                End Using
            End Using
        End Using
    End 
Function

 
   Public Shared Function Decrypt(cipherText As StringpassPhrase As String) As String
        
' Get the complete stream of bytes that represent:
        ' 
[32 bytes of Salt] + [32 bytes of IV] + [n bytes of CipherText]
 
       Dim cipherTextBytesWithSaltAndIv Convert.FromBase64String(cipherText)
 
       ' Get the saltbytes by extracting the first 32 bytes from the supplied cipherText bytes.
        Dim saltStringBytes = cipherTextBytesWithSaltAndIv.Take(Keysize \ 8).ToArray()
        ' 
Get the IV bytes by extracting the next 32 bytes from the supplied cipherText bytes.
 
       Dim ivStringBytes cipherTextBytesWithSaltAndIv.Skip(Keysize 8).Take(Keysize 8).ToArray()
 
       ' Get the actual cipher text bytes by removing the first 64 bytes from the cipherText string.
        Dim cipherTextBytes = cipherTextBytesWithSaltAndIv.Skip((Keysize \ 8) * 2).Take(cipherTextBytesWithSaltAndIv.Length - ((Keysize \ 8) * 2)).ToArray()

        Using password = New Rfc2898DeriveBytes(passPhrase, saltStringBytes, DerivationIterations)
            Dim keyBytes = password.GetBytes(Keysize \ 8)
            Using symmetricKey = New RijndaelManaged()
                symmetricKey.BlockSize = 256
                symmetricKey.Mode = CipherMode.CBC
                symmetricKey.Padding = PaddingMode.PKCS7
                Using decryptor = symmetricKey.CreateDecryptor(keyBytes, ivStringBytes)
                    Using memoryStream = New MemoryStream(cipherTextBytes)
                        Using cryptoStream = New CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read)
                            Dim plainTextBytes = New Byte(cipherTextBytes.Length - 1) {}
                            Dim decryptedByteCount = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length)
                            memoryStream.Close()
                            cryptoStream.Close()
                            Return Encoding.UTF8.GetString(plainTextBytes, 0, decryptedByteCount)
                        End Using
                    End Using
                End Using
            End Using
        End Using
    End Function

    Public Shared Function CalculateKey(value As String) As String
        Dim result As String = CType(Nothing, String)
        Using ms As MemoryStream = New MemoryStream()
            Using hash As HashAlgorithm = New SHA256CryptoServiceProvider()
                result = Convert.ToBase64String(hash.ComputeHash(ms)).ToUpper
            End Using
        End Using
        Return result
    End Function

    Private Shared Function Generate256BitsOfRandomEntropy() As Byte()
        Dim randomBytes = New Byte(31) {}
        ' 
32 Bytes will give us 256 bits.
 
       Using rngCsp = New RNGCryptoServiceProvider()
 
           ' Fill the array with cryptographically secure random bytes.
            rngCsp.GetBytes(randomBytes)
        End Using
        Return randomBytes
    End Function

End Class 
الرد }}}}
تم الشكر بواسطة:
#3
(25-01-16, 01:12 PM)silverlight كتب : ما تقوله معناه ان هناك خطا في اسلوب التشفير
وأرد عليك وأقول أين ستكون الفائدة هنا من التشفير .... فأنت هكذا تقوم بتشفير البيانات لنفسك فقط و مع ذلك كل شئ يمكن ان يتم فك التشفير الخاص به لكنك ليس لديك اصل الكود الذي قام بالتشفير

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

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


الكود التالي موجود علي النت و يمكن ان تستخدمه و تطور فيه
انا عن نفسي توقفت عن استخدام Cryptography و بأقوم بالتشفير بأساليب اخري
PHP كود :
Imports System.Text
Imports System
.Security.Cryptography
Imports System
.IO

Public Class StringCipher

    Private Sub 
New()
 
   End Sub
    
' This constant is used to determine the keysize of the encryption algorithm in bits.
    ' 
We divide this by 8 within the code below to get the equivalent number of bytes.
 
   Private Const Keysize As Integer 256

    
' This constant determines the number of iterations for the password bytes generation function.
    Private Const DerivationIterations As Integer = 1000

    Public Shared Function Encrypt(plainText As String, passPhrase As String) As String
        ' 
Salt and IV is randomly generated each timebut is preprended to encrypted cipher text
        
' so that the same Salt and IV values can be used when decrypting.  
        Dim saltStringBytes = Generate256BitsOfRandomEntropy()
        Dim ivStringBytes = Generate256BitsOfRandomEntropy()
        Dim plainTextBytes = Encoding.UTF8.GetBytes(plainText)
        Using password = New Rfc2898DeriveBytes(passPhrase, saltStringBytes, DerivationIterations)
            Dim keyBytes = password.GetBytes(Keysize \ 8)
            Using symmetricKey = New RijndaelManaged()
                symmetricKey.BlockSize = 256
                symmetricKey.Mode = CipherMode.CBC
                symmetricKey.Padding = PaddingMode.PKCS7
                Using encryptor = symmetricKey.CreateEncryptor(keyBytes, ivStringBytes)
                    Using memoryStream = New MemoryStream()
                        Using cryptoStream = New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write)
                            cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length)
                            cryptoStream.FlushFinalBlock()
                            ' 
Create the final bytes as a concatenation of the random salt bytesthe random iv bytes and the cipher bytes.
 
                           Dim cipherTextBytes saltStringBytes
                            cipherTextBytes 
cipherTextBytes.Concat(ivStringBytes).ToArray()
 
                           cipherTextBytes cipherTextBytes.Concat(memoryStream.ToArray()).ToArray()
 
                           memoryStream.Close()
 
                           cryptoStream.Close()
 
                           Return Convert.ToBase64String(cipherTextBytes)
 
                       End Using
                    End Using
                End Using
            End Using
        End Using
    End 
Function

 
   Public Shared Function Decrypt(cipherText As StringpassPhrase As String) As String
        
' Get the complete stream of bytes that represent:
        ' 
[32 bytes of Salt] + [32 bytes of IV] + [n bytes of CipherText]
 
       Dim cipherTextBytesWithSaltAndIv Convert.FromBase64String(cipherText)
 
       ' Get the saltbytes by extracting the first 32 bytes from the supplied cipherText bytes.
        Dim saltStringBytes = cipherTextBytesWithSaltAndIv.Take(Keysize \ 8).ToArray()
        ' 
Get the IV bytes by extracting the next 32 bytes from the supplied cipherText bytes.
 
       Dim ivStringBytes cipherTextBytesWithSaltAndIv.Skip(Keysize 8).Take(Keysize 8).ToArray()
 
       ' Get the actual cipher text bytes by removing the first 64 bytes from the cipherText string.
        Dim cipherTextBytes = cipherTextBytesWithSaltAndIv.Skip((Keysize \ 8) * 2).Take(cipherTextBytesWithSaltAndIv.Length - ((Keysize \ 8) * 2)).ToArray()

        Using password = New Rfc2898DeriveBytes(passPhrase, saltStringBytes, DerivationIterations)
            Dim keyBytes = password.GetBytes(Keysize \ 8)
            Using symmetricKey = New RijndaelManaged()
                symmetricKey.BlockSize = 256
                symmetricKey.Mode = CipherMode.CBC
                symmetricKey.Padding = PaddingMode.PKCS7
                Using decryptor = symmetricKey.CreateDecryptor(keyBytes, ivStringBytes)
                    Using memoryStream = New MemoryStream(cipherTextBytes)
                        Using cryptoStream = New CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read)
                            Dim plainTextBytes = New Byte(cipherTextBytes.Length - 1) {}
                            Dim decryptedByteCount = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length)
                            memoryStream.Close()
                            cryptoStream.Close()
                            Return Encoding.UTF8.GetString(plainTextBytes, 0, decryptedByteCount)
                        End Using
                    End Using
                End Using
            End Using
        End Using
    End Function

    Public Shared Function CalculateKey(value As String) As String
        Dim result As String = CType(Nothing, String)
        Using ms As MemoryStream = New MemoryStream()
            Using hash As HashAlgorithm = New SHA256CryptoServiceProvider()
                result = Convert.ToBase64String(hash.ComputeHash(ms)).ToUpper
            End Using
        End Using
        Return result
    End Function

    Private Shared Function Generate256BitsOfRandomEntropy() As Byte()
        Dim randomBytes = New Byte(31) {}
        ' 
32 Bytes will give us 256 bits.
 
       Using rngCsp = New RNGCryptoServiceProvider()
 
           ' Fill the array with cryptographically secure random bytes.
            rngCsp.GetBytes(randomBytes)
        End Using
        Return randomBytes
    End Function

End Class 

شكرا لردك اخى ارجو افادتى بالطرق التى تشفر بها وشكرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 2 59 أمس, 07:15 PM
آخر رد: khadija_seedi_ali
  سؤال حول Combobox noway 2 47 06-12-16, 04:26 AM
آخر رد: amgad525
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 114 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 122 02-11-16, 04:15 PM
آخر رد: salhigc
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 167 25-10-16, 03:20 PM
آخر رد: a_abdullah
  سؤال بسيط في فصل التاريخ عن الوقت فراس صلاح 3 134 19-10-16, 04:17 AM
آخر رد: mhmd_911
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 124 13-10-16, 04:40 AM
آخر رد: abid
  سؤال بخصوص طباعة تقرير في فيجوال بيسك 2010 haiderkh 2 103 12-10-16, 08:48 PM
آخر رد: أبو عمر
  [VB.NET] سؤال في الريبورت فيور دمعتز السمان 1 78 08-10-16, 01:52 AM
آخر رد: ابو ليلى

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


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