مثال كامل على انشاء اسم المستخدم وكلمة المور باستخدام الملفات النصية

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

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

وكل عام وانت بالف خير اخي الكريم

وبارك الله فيك على مجهودك ونحن بانتظار المزيد إن شاء الله

اخوك

م.محمد نفاع

الله يجزاك خير

مجهوووود رائع

ننتظر ابداعاتك

السلام عليكم

درس جميل لكن كسر البرنامج سهلة جدا

لذى اقترح انشاء classe مثلا pass

namespace pass
 {

	 class Per
	 {
		 private string vuser = "";
		 private string vpass = "";

		 public string GetSetuser
		 {
			 get { return vuser; }
			 set { vuser = value; }
		 }

		 public string GetSetpass
		 {
			 get { return vpass; }
			 set { vpass = value; }
		 }



	 }
 }

ثم حفظ الشئ او الكائن في ملف نصي على شكل سلسة حروف

ويتم استرجاع السلسلة وتحويلها الى كائن

لست ادري الفكرة قابة للتنفيد ام لا ارجو المساعدة

شكرا

using System.IO;


 namespace pass
 {
	 public partial class Form1 : Form
	 {
		 public Form1()
		 {
			 InitializeComponent();
		 }

		 private void button1_Click(object sender, EventArgs e)
		 {
			 Per vper = new Per(); 
			 StreamReader vreadeader=  new StreamReader(@"C:\Documents and Settings\azekiri\Bureau\ala.txt");
			 textBox1.Text = vreadeader.ReadToEnd();
			 /*
						 ?????????????????????????????????
						 vper = ( ?? )   vreadeader.ReadLine();
						 textBox2.Text = vper.GetSetuser();
						 textBox3.Text = vper.GetSetpass(); 

			  */
			 vreadeader.Close();
		 }

		 private void Form1_Load(object sender, EventArgs e)
		 {

		 }

		 private void button2_Click(object sender, EventArgs e)
		 {
			 Per vper = new Per();
			 StreamWriter vwriter = new StreamWriter(@"C:\Documents and Settings\azekiri\Bureau\ala.txt");
			 vper.GetSetuser = "ala";
			 vper.GetSetpass = "ala1";
			 vwriter.WriteLine(vper);
			 vwriter.Close();
		 }
	 }
 }

او بالطريقة

using System.Runtime.Serialization.Formatters;

namespace pass
{
	public partial class Form1 : Form
	{
		public Form1()
		{
			InitializeComponent();
		}

		private void button1_Click(object sender, EventArgs e)
		{
			FileStream fs = new FileStream(@"C:\Documents and Settings\azekiri\Bureau\ala.txt", FileMode.Open);
			SoapFault sf = new SoapFault();
			Per vper = (Per)sf.Deserialize(fs);
			textBox1.Text = vper.GetSetpass;
			fs.Close();
		}

		private void Form1_Load(object sender, EventArgs e)
		{

		}

		private void button2_Click(object sender, EventArgs e)
		{
			Per vper = new Per();
			vper.GetSetpass = "eeeeeeee";

			FileStream fs = new FileStream(@"C:\Documents and Settings\azekiri\Bureau\ala.txt", FileMode.Open);
			SoapFault sf = new SoapFault();
			sf.Serialize(fs, vper);
			fs.Close();		
		}
	}
}

السلام عليكم

المثال الدي كتبت لا يعل كنت اقصد الفكرة فقط

فهل من من يساعدنا في تشغيل المثال الاخير

لاني اجد الخطا في SoapFault

جزاء الله ألف خير يا أخي على هاد المثال الجميل ,,

بس بصراحة أنا نظرت إلى الكلاس بس ما عرفت كيف أصحح الخطأ :(

بس مشكووووور

اخي الكريم حصان -

هل ممكن تعمل البرنامج على قاعدة بينات اكسل - لأني محتاجه بارك الله فيك

جزاك الله خير وموضوع مهم

جارى النظر في المثال ..

يمكن عمل ذلك بناء عبر الفئات Classes فنحصل على نتيجة أفضل وسأضع هنا فئة تجريبية توضح الفكرة التي أريدها

حيث قمت بتخزين اسم المستخدم وكلمة السر مشفرة في الحقول الخاصة بالفئة وفي الملف الذي سيحفظ المعلومات على القرص من أجل السرية

ولكن في البداية أحب أن أنوه أن مثالي يحتاج لبعض الاستيرادات الإضافية

Imports System.Runtime.Serialization
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Soap

وإليكم الفئة كاملة مدعمة ببعض التعليقات التوضيحية

<Serializable()> _
Public Class ProgramPass
	' The Class Must Implements ISerializable Interface
	Implements ISerializable

	' UserName & Password Fields
	Private _UserName As String
	Private _Password As String

	' Encription/Decryption Function
	' Simple XOR based Encryption
	Private Function EncrDecr(ByVal Pass As String, _
				Optional ByVal Cyp As Char = "Í") As String

		Dim Temp(Pass.Length - 1) As Char
		For i As Integer = 0 To Pass.Length - 1
			Temp(i) = Chr(Asc(Pass(i)) Xor Asc(Cyp))
		Next
		Return Temp
	End Function


	' Return True if the UserName & Passward passed 
	' Matching ones that stored in the class
	Public Function IsCredentialOK(ByVal User As String, _
				ByVal pass As String) As Boolean

		If EncrDecr(_UserName) = User AndAlso EncrDecr(_Password) = pass Then
			Return True
		Else
			Return False
		End If
	End Function

	' UserName Property
	Public Property UserName() As String
		Get
			' Decrypt before Return
			Return EncrDecr(_UserName)
		End Get
		Set(ByVal value As String)
			' Encrypt Before Save
			_UserName = EncrDecr(value)
		End Set
	End Property

	' Password WriteOnly Property
	Public WriteOnly Property Password() As String
		Set(ByVal value As String)
			' Encrypt Before Save
			_Password = EncrDecr(value)
		End Set
	End Property

	' ISerializable Interface Procedure for Identifying Data
	' to be serialized
	Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, _
				ByVal context As System.Runtime.Serialization.StreamingContext) _
				Implements System.Runtime.Serialization.ISerializable.GetObjectData

		' Adding Data that Will be Saved
		info.AddValue("UserName", _UserName)
		info.AddValue("Password", _Password)

	End Sub

	' Empty Constructor
	Public Sub New()

	End Sub

	' Special Constructor for serialization
	' Called by formatter when object graph is being deseralized. 
	Private Sub New(ByVal si As SerializationInfo, ByVal ctx As StreamingContext)
		_UserName = si.GetString("UserName")
		_Password = si.GetString("Password")
	End Sub

End Class

ومثال تجريبي على الفئة المذكورة

Imports System.Runtime.Serialization
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Soap

Public Class Form1
	Private Sf As New SoapFormatter
	Private PassFileName As String = "d:\Security.xml"

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim p As New ProgramPass()
		p.UserName = Me.TextBox1.Text
		p.Password = Me.TextBox2.Text
		Using St As New FileStream(PassFileName, FileMode.Create, FileAccess.Write)
			Sf.Serialize(St, p)
		End Using

	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		' Deserialize.
		Dim p As New ProgramPass
		Using St As New FileStream(PassFileName, FileMode.Open, FileAccess.Read)
			p = CType(Sf.Deserialize(St), ProgramPass)
		End Using

		If p.IsCredentialOK(Me.TextBox3.Text, Me.TextBox4.Text) Then
			MsgBox("Access Granted")
		Else
			MsgBox("Access Denied")
		End If
	End Sub
End Class

مرفق المثال كاملا VB2005

TestPassword.zip