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

    الأنتساب:
    ‏14 ديسمبر 2015
    المشاركات:
    60
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Delphi
    YouTube:
    [​IMG]


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


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


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


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


    السلام عليكم ورحمة الله وبركاتة .
    اسعد الله مسائكم جميعاً اعضاء وزوار عراق تيم
    مل من الله ان تكونوا في تمام الصحة و العافية ، وموفقين جميعاً في الإختبارات إياكم ونسيان
    "اللهم لا سهلاً إلا ما جعلتهُ سهلاً" .
    نبدأ في موضوع اليومطرح طريقة جميلة لتموية الهوست عبر Mid .
    ولذلك قمت بكتابة فنكشن تموية وفك التموية عن الهوست بلغة Vb.NET كتسلية وتمضية وقت لا اكثر ولا اقل .

    الفنكشن :


    كود:
    Function RandomString(r As Random, start As String)
            Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
            Dim sb As New StringBuilder
            Dim cnt As Integer = r.Next(start, 1)
            For i As Integer = 1 To cnt
                Dim idx As Integer = r.Next(0, s.Length)
                sb.Append(s.Substring(idx, 1))
            Next
            Return sb.ToString()
        End Function
        Function Host_Encode(Host As String) As String
            Try
                Dim Str As String = Nothing
                Dim r As New Random
                For i = 0 To Host.Length * Host.Length + Host.Length * 100 - 1
                    Str &= RandomString(r, 1)
                Next
                Dim Host_Length As Integer = Host.Length - 1
                Randomize()
                Dim key As Integer = CInt(Int((200 * Rnd()) + 1))
                Dim Replace_Stirng As String = Mid(Str, key * 4 / 2, Host.Length)
                Str = Replace(Str, Replace_Stirng, Host)
                Return Str & vbNewLine & key * 4 / 2 & "*" & Host.Length
            Catch ex As Exception
                Return "Err"
            End Try
        End Function
        Function Host_Decode(Data As String, Key As String) As String
            Return Mid(Data, Split(Key, "*")(0), Split(Key, "*")(1))
        End Function
    *=== تحديد كود ===*

    طريقة الإستخدام ، تمويه الهوست :


    كود:
    Dim[FONT=Consolas] [/FONT]Data As[FONT=Consolas] [/FONT]String[FONT=Consolas] [/FONT]= Host_Encode("Your Host")[/CENTER]
    [FONT=Consolas]Dim Encrypt_Host As String = Split(Data, vbNewLine)(0)[/FONT]
    [CENTER]Dim[FONT=Consolas] [/FONT]Decrypt_Keys As[FONT=Consolas] [/FONT]String[FONT=Consolas] [/FONT]= Split(Data, vbNewLine)(1)
    *=== تحديد كود ===*

    فك التمويه :


    كود:
    Dim Req_Host As String = (Host_Decode("IWGnyXYROqfAYHoGk9sXFFR0se1XPD8TFQ14yhNFE2d4khDnbthbZvjm3HKXqz7EaRbDY5u3hzE21AlPSWVmXuCy2KVimHYDZxulzNvaV2i1jcgFaFdyQoOKY6aGzCVWPLSHmcGlRJYo8fJs5vw6ZV0iVB4Fesk9FVGzQkwP1KdRElvsyahmad.no-ip.orgHweooItwS3DYjkv3M7s85YGv9KOIX8EdbDP0KQQcQsONgnxESnVgbmjLuMOAciIsp8pzRCevUuStJ7IF6z1Z88705ZkWj7EbZn3yKBzWcsXglrGoLUw0EYrCT3cHa4wJXeo5WKIf42JUWlZp9LK5TeBu4Cu738ttlOwuLhT6qb1sUjsPAkoqNcuPjfIl9gddoYhxcMh5WFNmaUXZWMJOsIHEmyAPL1SZJpomjefk5erHuvFnTZ3dIFxeHnNO7wNSfLn7seoRrVCx6FtZGVkeCZSuTvz1pWboaL3YHCHOO8QIUoyIk6uyYeL2aZraYJSrnOdPjhUqdebpRWIDgayvHfLRmE8z9HGzjencoUiqCzL6YhW1mf5pZP6AqG8HosnnqWF6X03T0vfVE5bycucSTosf45OhoRLainvG0xJVjw7LpRXZxBYXDotr7achOAFyvdtpYPqMKL2lmDyb5QvJi93hfrvpIW96yR1oPkAvPLxUb2V5sXCO6bDuDqwGyITHVdAQsQSNu3gx95z8IK8sxUcwwlxfN5Gc3ZoAZehhgQQc4z457AJVJvV57L7jj8UA7J2RjgB7vgzl315Qq8PbNmPEJM9iTKOqY2jPFLH5z2LnyHqn24HcNtYFCIWAQzZNCYYwWPsroPTmaFkNER3mdB8OFJrSkQeyBzBne7NqtPeiylI85GR5qyzjDqNNaw4HxoXCMlGb4GgxFi0pxHDs4K69FmXvJzIQAxfBwQcbBnwzvtzOTgzRpmoszVoBjxzafmtmddnMM7A8V8mq6INIu3nHtXRZpu59adCtsq7jpKUJxU29uGIVIQSqzSjb2m1rBgUkPmbpy72cqsEqFOl3aFmR1t7oMJP46bpEMZj3FvEOEarmZ9dU2jbxH1NWKmlOdJgRYOVwDbEPSB7NhY6JGHiqauDKrmqirv8BlN8DR0vTJwQuxjRzmPrYdRKHh2g4Q5Y7XqI4m6S4GJvlovfWZGiMPTpsNnM0HhgLqdK9C2jUgWB4xUYt9xjyYG63WX864zIwKlTD6sGnse56Z5OnqIop1yVWOzmyAyiN72c3olJk7baoh80UrZe0ZIsCFB4PwMqMRSJhvgro33ok3Ha3jsfSOLua1mBUfHj48E5NOzNo0GrdzH50wDgMP5SqOBdsis46nKewxrxJIYYLBKK5z3MdBwQbd7La9auxVHDPpFdiWZHdqHwhP1piAFt3xSekiA4IiFIkB4EQmCfneqtg3h82lK8Hz4XWU3o2cLznP9LXisHN0alzxDTUuhhAW4T2GAFfuBEpKlLyU2eQSiOOSDgIN85hAJgVJsKDJBVvEesVweqzW7RcivgV6ySVZ8qnbGtDwTjNfjhLoWZWAO7kvdIPuy7QVrnQECbujGFv3jUEqoST1wORf6oxaqKTN5jNThhIVo4kiUU0gnr6FAUdLpbUMhpPOtRjG5ueKwnUNOozHVyNzAVslvbXbvdfTZpLkEs2d9OZmHsAA8XgVQPvmnA1pHy8RGCDfvshEsd0Dl00G1JWR5mmEtIAYu9od", "178*15"))
    *=== تحديد كود ===*

    أتمنى ان اكون وفقت في طرحي البسيط ، لا تنسوني من الدعاء احبتي الكرام .
    بالتوفيق للجميع .














     
  2. Mira Mrmr .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    696
    الإعجابات المتلقاة:
    149
    نقاط الجائزة:
    105
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    رد: فنكشن تمويه الهوست

    [​IMG]شكراًالك فكشن حلؤ بس أذكر المصدر امممم[​IMG]
     
  3. XOR New Developer

    الأنتساب:
    ‏10 سبتمبر 2015
    المشاركات:
    13
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    رد: فنكشن تمويه الهوست

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


    الممَلكة


    .:: مُراقب اقسام الحمايه والجوال ::.
     
  4. ♕| K O P R A |♕ مشرف أقسام حماية المواقع والسيرفرات V • I • P

    الأنتساب:
    ‏31 يوليو 2015
    المشاركات:
    318
    الإعجابات المتلقاة:
    52
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    رد: فنكشن تمويه الهوست

    عاشت الايادي حبي استمر في ابداعك
     
  5. ĐЯ-ЩΘЩΘ iq-team مراقب عآم

    الأنتساب:
    ‏13 يوليو 2014
    المشاركات:
    512
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    75
    الجنس:
    ذكر
    الإقامة:
    مكة مكرمة
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    CSS
    Facebook:
    YouTube:
    رد: فنكشن تمويه الهوست

    نسخ لصق

    امر غير مرحب به

    اذا لم تحفظ حقوق الغير
    فا لن تجد من يحفظ حقوق
     
حالة الموضوع:
مغلق

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