اريد تطبيقا لتشفير النص

شدعوه محد رد علي

وين مساعدتكم للحين مابدا رمضان

نفس الطريقة كما بالنسبة للصور. استعمال Random Bit Stream Generator لن يعطينا نفس التكرار و يمكنك تشفير النص بمتتالية من المفاتيح لزيادة قوة التشفير و عمل العكس لاستعادة البيانات.

تحياتي...

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

يمكنك استخدام هذا الكود لتشفير وفك تشفير البيانات

Imports System.IO
Imports System.Security.Cryptography

Public Class Form1

	Dim key As String = "12345678"

	Private Function Encrypt(ByVal txt As String) As String
		Try
			Dim inArr(txt.Length) As Byte
			Dim k() As Byte = System.Text.Encoding.UTF8.GetBytes(key)
			Dim v() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
			inArr = System.Text.Encoding.UTF8.GetBytes(txt)
			Dim DES As DESCryptoServiceProvider = New DESCryptoServiceProvider
			Dim fStream As New MemoryStream
			Dim cStream As New CryptoStream(fStream, _
												 DES.CreateEncryptor(k, v), _
												 CryptoStreamMode.Write)
			cStream.Write(inArr, 0, inArr.Length)
			cStream.FlushFinalBlock()
			Return System.Convert.ToBase64String(fStream.ToArray())
		Catch ex As Exception
			Return ""
		End Try
	End Function

	Private Function Decrypt(ByVal txt As String) As String
		Try
			Dim inArr(txt.Length) As Byte
			Dim k() As Byte = System.Text.Encoding.UTF8.GetBytes(key)
			Dim v() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
			inArr = System.Convert.FromBase64String(txt)
			Dim DES As DESCryptoServiceProvider = New DESCryptoServiceProvider
			Dim fStream As New MemoryStream
			Dim cStream As New CryptoStream(fStream, _
												 DES.CreateDecryptor(k, v), _
												 CryptoStreamMode.Write)
			cStream.Write(inArr, 0, inArr.Length)
			cStream.FlushFinalBlock()
			Dim Enc As System.Text.Encoding = System.Text.Encoding.UTF8
			Return Enc.GetString(fStream.ToArray())
		Catch e As Exception
			Return ""
		End Try
	End Function

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

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

مشكووووووور اخوي على الرد

يعطيكم العافيه

بس ممكن شرح الكود ::: للتوضيح اكثر

جعله ربي في ميزان حسناتك:)

وينك اخوي محتاجتك بليز

صاير لي غير معرف un declare

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

أعتذر عن تأخرى فى الرد

الكود يقوم بتشفير النص باستخدام إحدى خوارزميات التشفير وهى DES أو Data Encryption Standard

تجد هنا موضوع بعنوان درس فى التشفير فى قسم الدروس والمواضيع المتميزة

أما إن أردت شرح خوارزمية التشفير فهذا هو الرابط على ويكى

http://en.wikipedia.org/wiki/Data_Encryption_Standard

أتمنى أن تفيدك الروابط وإن وجدت شيئا غامضا فلا تتردد فى السؤال وإن شاء الله تجد الإجابة ,,