اذا ممكن برنامج تشفير بلغه الفيجوال بيسك

Private Function Encrypt(sText As String, iFactor As Long) As String
	Dim I As Integer
	Dim Result As String
	For I = 1 To Len(sText)
		Result = Result & Chr(Asc(Mid(sText, I, 1)) Xor iFactor)
	Next
	Encrypt = Result
End Function

...

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

تحايتي لك وان شاء الله اتمكن من رد جميلك

مرحبا

اذا امكن كود التشفير لانه مشروعي نفس مشروعك وانا عندي مشكلة في التشفير

شكراااااااااااااا

المبرمج أحمد كتب:

Private Function Encrypt(sText As String, iFactor As Long) As String
	Dim I As Integer
	Dim Result As String
	For I = 1 To Len(sText)
		Result = Result & Chr(Asc(Mid(sText, I, 1)) Xor iFactor)
	Next
	Encrypt = Result
End Function

...

وما هذا؟

مرحبا

اذا امكن توضيح على هذا الكود

لانه انا مشروعي تشفير 3 بت و3بت و2 بت بطرق مختلفة

اذا امكن تساعدوني

شكرااااااااااااااا

مرحباااااااااااااااااا

يا اخ

acker

بدي اطلب منك طلب اذا ممكن لا نفسي يتحقق

بدي كود على الفيجوال بيسيك يشفر اي ملف ويفك تشفير بحيث مايكون التشفير بالقفل برمز سري لا ان يكون بتغير مسار المجلد ((مثلا :في مجلد عندي اسمه "اغاني" وانا شفرته على البرنامج ايش يصير انا راح اقولك انا بدي اذا فتحته يحولني الى جهاز الكمبيوتر او الي اي مجل آخ زي مجلد الطابعات والفاكسات او يحولني على الدي او على السي عااادي اي شي بس يكون بالبرنامج خيارات تحويل الملف الى اي شي ويكون في فك التحويل مش بس تحويل طبعا))

يااااااااااااااااااااااااااااااااريت اذا ممكن وانا طالبك هالطلب يكون كود على برنامج الفيجوال بيسيك