تمت الإجابة طلب برنامج كشف رابط المشفر

تم تحميل الصفحة في 1,2821984 ثانية
طلب برنامج كشف رابط المشفر
الحالة
مغلق و غير مفتوح للمزيد من الردود.

wolf-sy

مُشرف قسم الهندسة العكسية
rankrank
إنضم
28 يوليو 2014
المشاركات
416
الإعجابات
597
النقاط
133
الإقامة
syria
هي ملف Form1.vb

C#:
Public Class Form1
    Dim i0 As String = ChrW(&H200E) : Dim i1$ = " "
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        i2(i1 + TextBox1.Text) ' النص المراد اخفاءه TextBox1
    End Sub
    Function i2(i3) As String
        ' فنكشن اخفاء النص
        Dim i4 As String = i3
        Dim i5 As Integer = Len(i4) : Dim i6 As String = i5 - 1
        For i7 As Integer = 0 To i6
            Dim i8 As String = i3.Chars(i7)
            For i9 As Integer = 0 To 256
                Try
                    Dim i10 As Char = Nothing
                    i10 = Chr(Asc(i10) + i9)
                    If i8 = i10 Then
                        Dim i11 = StrDup(i9, i0)
                        TextBox2.Text += i1 + i11
                        i8 = Nothing
                    End If
                Catch ex As Exception
                    Exit For
                End Try
            Next
        Next


    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click


        ' استدعاء النص TextBox2

        TextBox3.Text = GetString(i1 + TextBox2.Text)



    End Sub

    Function GetString(i12 As String) As String
        ' فنكشن اظهار النص
        Dim i13 As String = Nothing
        Dim i14 As Integer = 0
        Dim i15 As Integer = i12.Length
        For i16 As Integer = 0 To i15
            Dim i17 As String = i12.ToString : Dim i18 As Integer = Len(i17)
            If Not i18 = 0 Then
                Dim i19 As String = i12.ToString : Dim i20 As String = i1
                Dim i21 As New System.Text.RegularExpressions.Regex(i20)
                Dim i22 As System.Text.RegularExpressions.MatchCollection
                i22 = i21.Matches(i19) : Dim i27 As String = i19.Split(i1)(i22.Count.ToString())
                Dim i23 As String = i12.ToString
                Dim i24 As String = i23.LastIndexOf(i1)
                i12 = i23.Remove(i24)
                For i25 = i14 To 256
                    Try
                        Dim i26 = StrDup(i25, i0)
                        If i27 = i26 Then
                            Dim i28 As Char = Nothing
                            i28 = Chr(Asc(i28) + i25)
                            i13 = i13 + i28
                            i27 = Nothing
                        End If
                    Catch ex As Exception
                        Exit For
                    End Try
                Next
            Else
                MsgBox("end", MsgBoxStyle.Information, "123")
                Exit For
            End If
        Next
        Dim i29 As Integer = i13.Length - 2 : Dim i31 As String = Nothing
        For i30 = i29 To 0 Step -1
            Try
                Dim i32 As String = i13.Chars(i30)
                i31 = i31 + i32
            Catch ex As Exception
            End Try
        Next
        Return i31
    End Function
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox2.SelectAll()
        TextBox2.Copy()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox2.Text = Nothing
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        TextBox3.Text = Nothing

    End Sub

End Class
و هي ملف Form1.Designer.vb

C#:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(341, 40)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 7
        Me.Button1.Text = "شفر"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(341, 293)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(75, 23)
        Me.Button2.TabIndex = 8
        Me.Button2.Text = "فك"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(12, 4)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(292, 132)
        Me.TextBox1.TabIndex = 9
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(12, 142)
        Me.TextBox2.Multiline = True
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(292, 108)
        Me.TextBox2.TabIndex = 10
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(12, 256)
        Me.TextBox3.Multiline = True
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(292, 108)
        Me.TextBox3.TabIndex = 11
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(310, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 13)
        Me.Label1.TabIndex = 12
        Me.Label1.Text = "ادخل النص"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(310, 145)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(69, 13)
        Me.Label2.TabIndex = 13
        Me.Label2.Text = "النص المشفر"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(310, 256)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(80, 13)
        Me.Label3.TabIndex = 14
        Me.Label3.Text = "فك تشفير النص"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(341, 207)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(75, 23)
        Me.Button3.TabIndex = 15
        Me.Button3.Text = "نسخ"
        Me.Button3.UseVisualStyleBackColor = True
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(341, 178)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(75, 23)
        Me.Button4.TabIndex = 16
        Me.Button4.Text = "تفريغ"
        Me.Button4.UseVisualStyleBackColor = True
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(341, 391)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(75, 23)
        Me.Button5.TabIndex = 17
        Me.Button5.Text = "تفريغ الكل"
        Me.Button5.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(455, 426)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As Button
End Class
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل