ضروري

[hacker almooot]

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

 Public Function CaesarShiftEncr(Text As String, Difference As Integer) As String
On Error GoTo errorhandler
While Difference > 26
Difference = Difference - 26
Wend
Reset
Dim iLoop As Integer, tAsc As String, endtext As String
For iLoop = 1 To Len(Text)
tAsc = Mid$(Text, iLoop, 1)
If tAsc <> " " Then
If tAsc = LCase$(tAsc) Then
If Asc(tAsc) + Difference > 122 Then tAsc = Chr$(97 + ((Asc(tAsc) +  Difference) - 122)) Else tAsc = Chr$(Asc(tAsc) + Difference)
ElseIf tAsc = UCase$(tAsc) Then
If Asc(tAsc) + Difference > 90 Then tAsc = Chr$(65 + ((Asc(tAsc) +  Difference) - 90)) Else tAsc = Chr$(Asc(tAsc) + Difference)
End If
End If
endtext = endtext & tAsc
Next
CaesarShiftEncr = endtext
errorhandler:
Reset
Exit Function
End Function
End Sub

[ApOcalYpse]

كتابتك لا تضهر لي على متصفحي
انا الآن في العمل ادا تسنى لي الوقت سأرى ما المشكلة في هدا الكود

[hacker almooot]

اوك يعطيك العافية

[HACKER==MAN]

اخى الغالى وضح الكتابه كده

[AnGeL25dZ]

لا أرى خطأ في الكود !!

ممكن توضح المشكلة ؟؟ ممكن تكون في فتح الملف و قراءة النص منه قبل التشفير

فقط كملاحظة: من الأفضل استعمال البايت، يعني قراءة الملف على شكل قيم بايت(bytes) و ليس string ثم عمل التشفير عليها و إعادة كتابتها في ملف آخر على شكل بايت أيضا لأن ال string يعقد البرمجة بعض الشيء

[DZ1.618]

اعطنا رسائل الاخطاء اثناء تنفيدك للبرنامج بالكومبيلر