تشفير النصوص باستخدام لغة الفيجوال بيسك

تشفير النصوص باستخدام لغة الفيجوال بيسك

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

السلام عليكم ورحمه الله وبركاته
كيف الحال إن شاء الله بصحة وعافيه
VB.NET درس اليوم هو تشفير النص باستخدام لغة البرمجة
طبعا تعمل بجميع إصداراتها 2003 & 2005 & 2008 & 2010 وغير كده
ما يحتاج انك تكون متقدم في البرمجة عادي تعلم هذا وغيره وأي شيء تشوفه
مع الأيام إن شاء الله تحصل نفسك تحسن ما عليه بالتوفيق نخش في الدرس

أولا : إنشاء مشروع جديد
 ثانيا : نضيف الادوات الآتية 

TextBox1

Button1

Button2

  ثالثا:- دبل كلك على الفورم1 او عرض الكود
طبعا علينا الاستدعاء كل من
1- الحمايه
2- النصوص
· ملاحظه مااقدر اترجم كل شويه حاول ان تتعلم بالانجليزيه افضل
1- Security
2- Text
 الاستدعاء دائما يكون خارج فورم1 كلاس
مثال :-

Imports System.Security.Cryptography

Imports System.Text

Public Class Form1

End Class

ننشأ وظيفه جديده وهي تقوم بالتشفير و من ثم ننشأ وظيفه جديده لفك التشغير
طبعا ننشأ داخل الفورم1 أي مكان تحب مادام انه في حدود الفورم

Public Class Form1

هنا الشغل كله
End Class
وظيفه التشفير :-

Private Function SystemLock(ByVal Sufe As String) As String
Try
Dim GetEncrptedData As New SHA1Managed
Convert.ToBase64String(GetEncrptedData.ComputeHash (Encoding.ASCII.GetBytes(Sufe)))
Dim EncrptedData() As Byte = ASCIIEncoding.ASCII.GetBytes(Sufe)
Dim EncrptedInfo As String = Convert.ToBase64String(EncrptedData)
SystemLock = EncrptedInfo
Catch
End Try
End Function

وظيفه فك التشفير:-

Private Function SystemUnLock(ByVal Sufe As String) As String
Try
Dim UEncrptedData() As Byte = Convert.FromBase64String(Sufe)
Dim UEncrptedInfo As String = ASCIIEncoding.ASCII.GetString(UEncrptedData)
SystemUnLock = UEncrptedInfo
Catch
End Try
End Function

لم يبقى سوى أن  اضافة اخر سطر هو تشفير و الزر   button2 نضيف فيه سطرلفك التشفير

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = SystemLock(TextBox1.Text)
End Sub

زر فك التشفير

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = SystemUnLock(TextBox1.Text)

End Sub

اتمنى من الله أن يكون الشرح قد نال اعجابكم

 السلام عليكم ورحمه الله وبراكاته

تعديل المقال