تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التشفير ------حد فاهم حاجة 2
#1
كاتب الموضوع : !TheCodeOfSilence


بسم الله الرحمن الرحيم

فى الموضوع الاول تكلمنا عن انواع التشفير
اما فى هذا الموضوع سنتكلم عن One-Way Hashing
فى هذا النوع يمكن تشفير النص لكن لا يمكن ارجاع النص المشفر الى النص الاصلى
لذلك هو مناسب لكلمات السر
يتم تشفير كلمه السر وحفظها داخل قاعدة البيانات
وعند قيام المستخدم بادخال الرقم السرى يتم تشفيره ومقارنته مع النص الموجود داخل قاعدة البيانات
اذا قام اى شخص بفتح قاعدة البيانات فانه لن يتمكن من معرفه كلمه السر لانها مشفرة ولا يمكن ارجاعها الى نص اصلى

SHA1
MD5
SHA1 تم كسرها من قبل القراصنه
المهم
سوف نقوم باستخدام MD5

اولا نقوم باستيراد الاتى


كود :
Imports System.Security.Cryptography
ثم نقوم بالاتى

Dim MD As New MD5CryptoServiceProvider
ComputeHash(PlainText)

ِComputeHash
تقوم باخذ النص الاصلى على هيئه مصفوفه من نوع بايت وتعيد النص المشفر على هيئه مصفوفة من نوع بايت
لذا علينا تحويل النص الاصلى PlainText من String الى مصفوفه من نوع Byte
Dim bytSource() As Byte

سنقوم باستخدام الشفرة الموحدة Unicode لكى تعيد لنا الرقم المميز لكل حرف
Dim uEncode As New System.Text.UnicodeEncoding

نقوم بتحويل النص الاصلى من String الى مصفوفه من نوع Byte
bytSource = uEncode.GetBytes(PlanText)

نقوم بتعريف متغير لكى نضع فية لبنص بعد تشفيره
Dim bytHash() As Byte

الان نقوم بالتشفير النص الاصلى يسمى PlainText
bytHash = MD.ComputeHash(bytSource)

الان نقوم بالتحويل من مصفوفه من نوع Byte الى String
Convert.ToBase64String(bytHash)

الكود
انا قمت بعمل دالة تاخذ النص الاصلى و نوع التشفير وتقوم بارجاع النص النشفر على هيئة String



كود :
Private Function CreatHash(ByVal PlanText As String, ByVal Mode As HashAlgorithm) As String

Dim bytHash() As Byte
Dim uEncode As New System.Text.UnicodeEncoding

Dim bytSource() As Byte
bytSource = uEncode.GetBytes(PlanText)


bytHash = Mode.ComputeHash(bytSource)


Return Convert.ToBase64String(bytHash)
End Function
المشروع فى المرفقات


الملفات المرفقة
.rar   Test SHA1.rar (الحجم : 43.23 ك ب / التحميلات : 61)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مجموعة التشفير في إتجاه واحد silverlight 2 380 15-05-16, 05:01 PM
آخر رد: CLARO
  [VB.NET] التشفير باستخدام خوارزمية rsa alking-0999 10 1,340 08-07-15, 04:24 PM
آخر رد: مبرمج بلا حدود
  التشفير Huthefa 4 875 25-05-13, 01:06 PM
آخر رد: shaker.soft
  التشفير ---------- حد فاهم حاجة RaggiTech 0 822 15-10-12, 10:13 AM
آخر رد: RaggiTech
  التشفير بإستخدام Rijndael RaggiTech 0 729 02-10-12, 10:34 AM
آخر رد: RaggiTech
  Private Text Encryption -خدمة للمبرمجين في جديد عالم التشفير- RaggiTech 0 491 01-10-12, 06:36 PM
آخر رد: RaggiTech
  Private Text Encryption -خدمة للمبرمجين في جديد عالم التشفير- مبرمج أوتار 0 324 28-09-12, 01:50 PM
آخر رد: مبرمج أوتار
  ضغط وفك ضغط الملفات (RAR/ZIP) من خلال مكتبة Dll تدعم تشفير وفك التشفير بال(Passwords) m.sami.ak 2 868 15-09-12, 02:18 PM
آخر رد: m.sami.ak

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


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