كيف يمكن صنع برنامج بالفيجول يقوم بتحويل الحروف للنظام الثنائي أو العشري

هل يمكن ذلك ؟!!!

اقتباس

يعني شغل تبادل رسائل بالشفرات laugh.gif

هل تريد ال ascii code اذا كان كذالك فهذا ليس شفرة

السلام عليكم...

رغم عدم وضوح السؤال كما أشار الأخ "حريف برمجة" لكني أقدم هنا - للفائدة - دالتين بسيطتين تستعملان العامل XOR، الأولى لتشفير النص باستعمال رقم تشفير (أي عدد صحيح)، و الثانية لفك تشفير النص المشفر باستعمال نفس رقم التشفير المستخدم:

' دالة التشفير:
Public Function EncodeString(ByVal Text As String, ByVal CodeNumber As Long) As String
	Dim AResult As String
	Dim cOneChar As String * 1
	Dim iCntr As Long
	Dim wCharNum As Long
	Dim wCharCode As Long

	AResult = ""
	For iCntr = 1 To Len(Text)
		cOneChar = Mid(Text, iCntr, 1)
		wCharNum = Asc(cOneChar)
		wCharCode = wCharNum Xor CodeNumber
		AResult = AResult & CStr(wCharCode) & ";"
	Next iCntr
	EncodeString = AResult
End Function

' دالة التشفير:
Public Function DecodeString(ByVal Text As String, ByVal CodeNumber As Long) As String
	Dim sGivenText As String, sCharCodeStr As String, AResult As String
	Dim wCharCode As Long
	Dim bCharNum As Byte
	Dim iPos As Long

	sGivenText = Text
	AResult = ""
	Do While sGivenText <> ""
		iPos = InStr(sGivenText, ";")
		If iPos > 1 Then
			sCharCodeStr = Left(sGivenText, iPos - 1)
			wCharCode = CLng(sCharCodeStr)
			bCharNum = CByte(wCharCode Xor CodeNumber)
			AResult = AResult & Chr(bCharNum)
			sGivenText = Mid(sGivenText, iPos + 1, Len(sGivenText))
		End If
	Loop
	DecodeString = AResult
End Function

فإذا كان النص مثلاً هو "ArabTeam2000" و استعملنا الرقم 573 كرقم تشفير فإن النص المشفر يكون هكذا:

636;591;604;607;617;600;604;592;527;525;525;525;

نرجو الاستفادة و السلام.

عفواً...

الدالة الثانية في الكود السابق هي دالة "فك التشفير" و ليست دالة التشفير كما وقع سهواً. أرجو المعذرة.

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

ماقصرتوا وجزيل الكر على تفاعلكم وعطاءكم :wub:

اعذروني إذا قصرت في التوضيح ما هو المطلوب ..

الطلب من العنوان نفسه .. تحويل الحروف للنظام الثنائي ( الصفر والواحد )

ومن ثم العكس ( النظام الثنائي لحروف مفهومة )

صباح الخير ..

هل مازال الموضوع قائماً ؟!!!

أشكرك أخي .. بس كنت حاب تحويل الأحرف وليس الأرقام :wink:

استخدم الدالة asc

("ch = Asc("m

هذا مثال