[سعود]

يوجد تحقق ناقص في التحديث الاخير وهو يخص ملف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 


---

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

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

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

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

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

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

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

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