[سعود]

إقتباس :خحجهيث كذاذهيث زحى يححظيث نداحهيث ذا يحجاعيث

ديح غظبح يححت ضحى يححت زحات بظحج

خحجهيث كذاذهيث زحى يححظيث نداحهيث ذا يحجاعيث ، لواوهيث إحى يحغلجث ظوليث يححت بولجقت ظوليث يححت يحزساج

جهذد زحات

PHP كود :

NewLetter = Ubound(AnyArray) - Index 


فقط للاسترخاء حتى الانتهاء من المثال بعد اضافة تشفير ملفات نصية بنفس الطريقة

[سعود]

أتنقل من مشروع الى مشروع ان قصر عقلي في احدهما لاجده اجتهد في الآخر

[سعود]

أحدث نسخة محسنة شكليا بالكود المصدري طبعا.

زر العب القصد منه تجربة  حلقة Do  وكيف تتوقف وكيف تستمر

لقطة استخدام البرنامج

[سعود]

تمت اضافة ميزة استخراج ترتيبة النصوص الى ملف نصي باستخدام  ملف HtmlAgilityPack.dll لكي يسهل التصدير والاستيراد

بعد التاكد من عملها ان شاء الله ارفعه.

طبعا الاستخراج يستبدل الموجود ...  للتنبيه فقط!

[سعود]

تم اضافة ميزة استخراج النص سواء مشفر او عادي وبامتداد خاص بالبرنامج لكن اكره التعامل مع الريجستري لذلك يلزم اولا تشغيله يدويا ثم هو لاحقا يتم تشغيله بالبرنامج

بامتداد senc

سواء بالنقر عليه او سحبه و افلاته على البرنامج

قريبا ان شاء الله

[سعود]

آخر شي غيرته جعلت توليد الملف الخاص بقاعدة البيانات بالكود حتى يقلل من حجم المشروع .

أرجو ان تكون اللمسات الأخيرة قد اعجبتكم وان حدث خطأ بسبب موضوع انشاء قاعدة البيانات وقت التشغيل فارجو المعذرة والتعديل سهل لاي مبرمج

تحياتي لكم جميعا

[سعود]

يوجد تحقق ناقص في التحديث الاخير وهو يخص ملفApplicationEvents.vb ضمن حدث  MyApplication_StartupNextInstance

بعد التعديل سيكون هكذا:

PHP كود :

Private Sub MyApplication_StartupNextInstance(sender As Object, e As StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
            Try
                Dim a As String = ""
                For Each h As String In e.CommandLine
                    a &= h
                Next
                Dim txtf As String = a
                If txtf.Trim <> "" Then
                    If IO.Path.GetExtension(txtf).ToString.ToLower = ".senc" Then
                        Form1.tbody.Text = My.Computer.FileSystem.ReadAllText(txtf)
                    Else
                        MsgBox("غير مدعوم!", MsgBoxStyle.Critical, "حقيبة المشفر")
                    End If
                End If


            Catch ex As Exception
            End Try


        End Sub 


---

سؤال لمن لديه متسع من وقت (للتسلية الموضوع فقط)
اذا كانت المصفوفة بهذا الترتيب:

إقتباس :ط و ع ه ب ن خ ف س غ ز ق ت د ح ذ ج ش ص ر ي ل ظ ض ك ث م ا

فما هو النص الاصلي  للنص التالي:

إقتباس :طخرخطو ثخفهو م سدوة طخخك م ضسهطذك

قشى طخخك هخ لفس وظ طثطظ طلمطظك ثطوة مطثبطء طخوظذحى لطغة.

 علما ان مكان الحرف الجديد هو:

رقم الاندكس الاخير - الاندكس الحالي

و اعتذر لو كان الوصف غير دقيق.

[معاند الحظ]

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

هكذا :
مصفوفتك : ط و ع ه ب ن خ ف س غ ز ق ت د ح ذ ج ش ص ر ي ل ظ ض ك ث م ا
مصفوفتي :ا ب ت ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن ه و ي

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

يمكن لاني ماحاولت بجهد اكثر وتركيز

لكن احتاج منك الى تلميح وتوضيح اكثر

والف شكر على التحدي والتسلية والفائدة

[سعود]

(08-01-21, 04:54 AM)معاند الحظ كتب : والله ماقدرت افك تشفير غير حرف واحد وهو بديل حرف الواو اي الحرف ميم
برغم اني حاولت وضع مصفوفة الحروف غير المشفرة بناء على عكس المصفوفة اللي انت قدمتها

هكذا :
مصفوفتك : ط و ع ه ب ن خ ف س غ ز ق ت د ح ذ ج ش ص ر ي ل ظ ض ك ث م ا
مصفوفتي :ا ب ت ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن ه و ي

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

يمكن لاني ماحاولت بجهد اكثر وتركيز

لكن احتاج منك الى تلميح وتوضيح اكثر

والف شكر على التحدي والتسلية والفائدة

الله يسعدك و يبارك فيك .
طبعا بالكود [لا تكون تحاول بشكل يدوي]
يعني كأن السؤال يقول  أكتب خوارزما كذا كذا ...الخ.
اول حرف من الكلام المشفر تنظر الى مكانه بالمصفوفة كم رقمه ثم  تطرحه من 27 ويكون مكان حرف آخر.
على كل حال جزاك الله خير اللي اهتميت للتحدي.
تدري؟   جا على بالي اضيف امكانية اضافة مصفوفة محدودة البعد (أقصد من حيث قلة عدد الحروف لان الشرط يساعد على ذلك) كـ [ا ب ج د ه و ز] فقط. 
وتكون النتيجة على مسؤولية المستخدم النهائي.
صبحكم الله بالخير جميعا دقائق ويؤذن للفجر.

---

هذه النتيجة مصورة

حب يزحج يحراو بيخهطذه يث ذات يلق يظهذيق ظيقزب حت يثت يظهذيق

الترتيب العادي من ا الى ي

وبالترتيب الابجدي[ابجدهوز ....]

فث غمفع غفاقظ ثغصزحلز غس لقخ غشذ غنزلغذ نغذمث فخ غسخ غنزلغذ

---

الصورة التالية توضح كيفية وضع المصفوفة في الملف المخصص وفي قاعدة البيانات

 لا يوجد فراغ لا في البداية ولا في النهاية لان الفرق ولو كان بسيطا يؤثر و قد اتعبني كثيرا.

---

جربت وضع حروف معدودة
س ع ف ص ق ر ش ت ث خ ذ ض ظ غ
تشفير السلام عليكم ====الغلام ظليكم //// هههههههههه

[معاند الحظ]

إقتباس :طبعا بالكود [لا تكون تحاول بشكل يدوي]

اكيد حاولت في البداية نظريا او بدون استخدام البرمجة لاني مافهمت قصدك في المشاركة قبل الاخيرة لك
لكن الان اتضحت الصورة

جاري المحاولة ...

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