حالة الموضوع:
مغلق
  1. SHADOW _DEFENDER

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

    الأنتساب:
    ‏14 ديسمبر 2015
    المشاركات:
    60
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    المخالفات
    3
    [​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

    Mira .::|| Tale of Remorse ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    657
    الإعجابات المتلقاة:
    117
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    رد: فنكشن تمويه الهوست

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

    XOR New Developer

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

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


    الممَلكة


    .:: مُراقب اقسام الحمايه والجوال ::.
     
  4. ♕| K O P R A |♕

    ♕| K O P R A |♕ ابو علي مراقب عآم

    الأنتساب:
    ‏31 يوليو 2015
    المشاركات:
    292
    الإعجابات المتلقاة:
    36
    نقاط الجائزة:
    28
    رد: فنكشن تمويه الهوست

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

    ĐЯ-ЩΘЩΘ iq-team مراقب عآم

    الأنتساب:
    ‏13 يوليو 2014
    المشاركات:
    512
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الإقامة:
    مكة مكرمة
    رد: فنكشن تمويه الهوست

    نسخ لصق

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

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

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