تحدي Easy

الموضوع في 'قسم التحديات' بواسطة حسين رضا, بتاريخ ‏2 يوليو 2016.

حالة الموضوع:
مغلق
  1. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    سلام عليكم

    [​IMG]
    اول تحدي لي
    الشروط
    1- مطلوب جميع الشروط الموجوده
    2- عدم التلاعب بلاكواد
    3- يوجد 2 رساله نجاح مطلوبات
    [​IMG]
    لا توجد اي اخطاء
    موفقين
    [​IMG]
    لتحميل التحدي

    http://www.kuwaiti.co/mwxvl4avgsym
     
    -مصطفى الموسوي- و ahmed_hack معجبون بهذا.
  2. ahmed_hack

    ahmed_hack Developer

    الأنتساب:
    ‏8 مارس 2012
    المشاركات:
    51
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    8
    الوظيفة:
    hack and games
    الإقامة:
    الاردن
    :eyes: لي عودة :skull:
     
    أعجب بهذه المشاركة حسين رضا
  3. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    انرت حبيبي موفق
     
  4. abomh58

    abomh58 Active DeveloPer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    111
    الإعجابات المتلقاة:
    26
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الإقامة:
    Algeria
    جاري التجربة
     
    أعجب بهذه المشاركة حسين رضا
  5. αℓɪ αℓɪяαqɪ

    αℓɪ αℓɪяαqɪ Active DeveloPer

    الأنتساب:
    ‏30 يونيو 2015
    المشاركات:
    164
    الإعجابات المتلقاة:
    38
    نقاط الجائزة:
    28
    بالتوفيق للجميع
     
    أعجب بهذه المشاركة حسين رضا
  6. -مصطفى الموسوي-

    -مصطفى الموسوي- :.HackTheBad:. مشرف

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    129
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    28
    اول شرط
    Private Sub META_Tick(sender As Object, e As EventArgs)
    If File.Exists("C:\I'm SCream.dll") Then
    Dim stream As FileStream = New FileStream("C:\I'm SCream.dll", FileMode.Open, FileAccess.Read, FileShare.Read)
    Dim streamReader As StreamReader = New StreamReader(stream)
    If Operators.CompareString(streamReader.ReadLine(), "ACTIVE_THESWING_PROGRAM_BYHUSSEIN_RIDAMATH", False) = 0 Then
    AddressOf Me.META.[Stop]()
    Else
    Me.Close()
    End If
    Else
    Me.Close()
    End If
    End Sub
    يجب ان تنشاء I'm SCream.dll
    في مسار قرص C
    اذا لم يتم تحقيق الشرط يتم الخروج من البرنامج
    الشرط الثاني
    If openFileDialog.ShowDialog() = DialogResult.OK Then
    AddressOf Me.MEE.Image = Image.FromFile(openFileDialog.FileName)
    Dim fileStream As FileStream = New FileStream(openFileDialog.FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
    fileStream.SetAccessControl(New FileSecurity())
    Try
    فتح الصورة من ثم القراءة
    اذا
    If AddressOf Me.ISS.Image.PixelFormat = PixelFormat.Format8bppIndexed Then
    Interaction.MsgBox("Very good Go To the programmer", MsgBoxStyle.Information, "You king")
    Else
    Interaction.MsgBox("Error :(", MsgBoxStyle.Information, ":(")
    End If
    مقاسات الصورة مساوية للـ Format8bppIndexed
    ويساوي
    Indexed = 65536
    Gdi = 131072
    Alpha = 262144
    PAlpha = 524288
    Extended = 1048576
    Canonical = 2097152
    Undefined = 0
    DontCare = 0
    Format1bppIndexed = 196865
    Format4bppIndexed = 197634
    Format8bppIndexed = 198659
    Format16bppGrayScale = 1052676
    Format16bppRgb555 = 135173
    Format16bppRgb565
    Format16bppArgb1555 = 397319
    Format24bppRgb = 137224
    Format32bppRgb = 139273
    Format32bppArgb = 2498570
    Format32bppPArgb = 925707
    Format48bppRgb = 1060876
    Format64bppArgb = 3424269
    Format64bppPArgb = 1851406
    Max = 15
    يتم تحقيق الشرط و ظهور رسالة النجاح الاولى و العكس صحيح
    الشرط التالي
    If Conversions.ToBoolean(fileStream.Position.ToString()) Then
    Interaction.MsgBox("Sorry Paint nothing image", MsgBoxStyle.Critical, "Sorry")
    End If
    التحويل الى النوع المنطقي true , false
    الشرط التالي
    If AddressOf Me.MEE.Image.PixelFormat = PixelFormat.Format8bppIndexed And AddressOf Me.MEE.Image.Width = 989 And AddressOf Me.MEE.Image.Height = 478 Then
    Interaction.MsgBox("Very good Next", MsgBoxStyle.Information, "You King")
    AddressOf Me.IISM.Enabled = True
    AddressOf Me.Button1.Text = "Enter"
    Else
    Interaction.MsgBox("Error :(", MsgBoxStyle.Information, ":(")
    End If
    يجب ان تكون مقاسات الصورة بـارتفاع 478
    وعرض 989
    اذا تم التحقيق بالتالي ظهور رسالة النجاح و العكس صحيح
    الشرط التالي
    If Operators.CompareString(AddressOf Me.Button1.Text, "Enter", False) = 0 AndAlso (AddressOf Me.IISM.Text.Contains("Hussein The Lord") And AddressOf Me.IISM.Lines.Length = 22) Then
    Interaction.MsgBox("Complete good", MsgBoxStyle.Information, "YOu THe KIng")
    End If
    التحقق من وجود تيكست في البكجر بوكس و هو Hussein The Lord و طول النص يساوي 22
    بالتالي ظهور رسالة النجاح و العكس صحيح
    لم يتم التطبيق لسبب لا املك صورة بهذه المقاسات و المطلوب بدون التلاعب بالاكواد
    نتمنى ان يكون التحدي شيء معقول وليس شروط لم يتم تحققها و تريد عدم التلاعب بالاكواد
    تحياتي لك
     
    أعجب بهذه المشاركة حسين رضا
  7. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    476
    الإعجابات المتلقاة:
    163
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    حبيبي شروط تحدي حلوه جدا
    اول شرط يكون ملف في هذه مسار
    If File.Exists("C:\I'm SCream.dll") Then
    ويتم تحقق
    [​IMG]
    شرط الثاني
    لا املك صوره بهيج قياسات
    حلوه تحدي
    موفقين بركه بلشباب
     
    أعجب بهذه المشاركة حسين رضا
  8. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    اولاً منور حبيبي الغالي الشروط صحيحه لكن لا داعي ان تطول هيج لان انت ما كملت قوانين التحدي
    المفروض ايجاد الصوره هذا جزء من التحدي البكسل الخاص بلصوره عمو كوكل ميقصر
    انت الان جلبت الشروط هي موجود اي شخص يقدر يجلبه لكن الشرح جيد
    تقريباً حليت ربع او نصف التحدي
    مطلوب فيديو توضيحي:blush:
     
  9. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    انرت الموضوع حبيبي
     
    أعجب بهذه المشاركة Ghost RAT
  10. -مصطفى الموسوي-

    -مصطفى الموسوي- :.HackTheBad:. مشرف

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    129
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    28
    لا داعي للبحث ولا للفديو لان اهم شي فهم الاكواد و طرحتهن الك شرح الاكواد
     
    أعجب بهذه المشاركة حسين رضا
حالة الموضوع:
مغلق

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