أريد كود إخفاء البرنامج من إدارة المهام

لم أجد كود لحد الأن كود يخفي البرنامج من العمليات

ويمكن عمل ذلك من التطبيقات فقط ، يمكنك إستعمال هذا الكود البسيط لذلك ، ضع الكود في برنامجك في بدء تحميل الفورم:

If App.PrevInstance = True Then End

السؤال الثاني "كود تنظيف الريجيستري" مكرر هنا وستجد الإجابة في رابطه:

/index.php?showtopic=121131

الظاهر أنا أعطيتك كود لعدم فتح البرنامج مرة ثانية ، معليش صار خطأ

تفضل هذا هو الكود :

Private Sub Form_Load()
App.TaskVisible = False
End Sub

هو ممكن بس قلى سبب واحد مقنع

اقتباس

هو ممكن بس قلى سبب واحد مقنع

لم أفهم عليك وهل لديك الحل من قسم العمليات

فيه بس مبطلعوش لحد , و فيه كمان أكتر من طريقة , بس من غير ما الأخ afakaz يزعل , الحاجة الوحيدة اللى المطلوب فيها عمل ده هى صناعة الفيروسات , و أنا لا أساعد بذلك.

محمد سيد انت لن تصلح العالم بعدم اعطاء الكود فمبرمجو الفيروسات لن ينتهوا مهما فلت لكن ربما كان بريد الكود فى شئ اخر

اقتباس

فيه بس مبطلعوش لحد , و فيه كمان أكتر من طريقة , بس من غير ما الأخ afakaz يزعل , الحاجة الوحيدة اللى المطلوب فيها عمل ده هى صناعة الفيروسات , و أنا لا أساعد بذلك

لا نا استخد افظع من ذلك انت تعرف مشروعى المطلوب من الموظف الجالس على الجهاز الا يفتح اى شئ غير البرنامج الخاص به انا استخد كل الوسائل المتاحة والغير مشروعة لذلك كاخفاء مدير المهام نفسه او اغلاق الجهاز اذا حاول اغلاف البرنامج وربما تخريب الجهاز نفسه :( اذا طلب صاحب العمل ذلك,

والان اريد ان اعدل السؤال

اريد كود يؤدى الى حرق البروسيسور او المازر بورد وكود اخر يولع فى الهارد :lol:

لما يبقى عندك موظف و عايز تمنعه من كده هتعمله Account محدود , أو تلغى الـ Task Manager من الـ Registry أنما عملية الأخفاء ستؤثر على أى Task Manager غير بتاعة مايكروسوفت , و ممكن تمنع مضادات الفيروسات من العمل بدقة.

فعلا أنا مش هصلح العالم بكده لكن لن أساهم بضرر حتى لو جاء أحد و قال أريد عمل فايروس لضرب الغير مسلمين أو غير العرب , طب هو أنا أشعرفنى هو مين العضو صاحب السؤال.

تانى يا أخ afakaz ما تزعلش منى أحنا أخوات و لو وفرت لى سبب مقنع 100 % لا أقل مش هتأخر عنك غير كده سامحنى !

الشكر للأخوة لمجرد المحاولة على الرد على السؤال

الأخ msayed2004 أنا أعمل برنامج أسرار الريجيستري مطبقة في برنامج

إذا أردت أن تعطيني الجواب فشكرا لك ,\وإذا لم ترد فلا بأس وشكرا

يمكننا انا نجعله يعمل كسيستم وبذلك لن يتم الغاء البرنامج اما بخصوص مضاضات الفايروسات فانا لا اخطط لان تكون الاجهزة التى يعمل عليها الموظفين متصلة بالانترنت او اى Storage devices غير الهارد ديسك فنا احاول ان اجعل البرنامج كامل من كل شئ والكمال لله طبعا لكن ساجعل للادمينستراتور حرية الاختيار اما بخصوص من يريد تعلم صناعة الفيروسات بهذا الكود اصلا الفيجوال بيسيك ضعيفة فى تلك الصناعة هل تعرف ان احدهم ارفق سيرفر تروجين لبرنامج هاكر وكان يستعمل 3 كنترول اذكر منها الوين سوك التلينت ولم يربط برنامجه ب Comctrl32.dll بذلك البرنامج لن يعمل عند الضحية كما ان من منا يملك الوقت للتخطيط لبرنامج فيروسات قوى يعتمد على صغرة امنية يتسلل منها ويقوم بعمل ذلك بال VB يجب ان يرجع للاسمبلى لاكتشاف تلك الثغرات وتصميم الديدان لها هذا ما اعتقد هذة اللغة لتصميم البرامج الخدمية فقط ولكن طبعا انت تحب الا ينتشر مصمموا الفيروسات وهذة نقطة تحسب لك وشكرا لك ام سايد 2004 :lol:

afakaz كتب:

الشكر للأخوة لمجرد المحاولة على الرد على السؤال

الأخ msayed2004 أنا أعمل برنامج أسرار الريجيستري مطبقة في برنامج

إذا أردت أن تعطيني الجواب فشكرا لك ,\وإذا لم ترد فلا بأس وشكرا

فى برنامج أسرار الـ Registry ممكن تحط Option لألغاء الـ Task Manager نفسها و تفعيلها و ليس أخفاء البرنامج منها.

Note: the following code has a more routines than just disabling taskmanager.

includes

- Disable Taskmanager

- Disable Logoff

- Disable Workstation

- Disable No Close

- Disable Change Password

- And the structure to Renable all the above. Enjoy!

(Note: Enable to control these functions, hence that these functions remain in a module,

inless you wish to modify it and change them from Public to Private you'll need to put in a

Call function from the Form, so that it may Read from the Module back to the form.)

Public Const HKEY_CURRENT_USER =        &H80000001
  Public Declare Function RegCloseKey Lib "advapi32.dll"        (ByVal hKey As Long) As Long
  Public Declare Function RegCreateKey Lib        "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey        As String, phkResult As Long) As Long
  Public Declare Function        RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As        Long, ByVal lpValueName As String) As Long
  Public Declare Function        RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long,        ByVal lpSubKey As String, phkResult As Long) As Long
  Public Declare        Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA"        (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As        Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
  Public        Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA"        (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long,        ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As        Long
  Public Const SWP_HIDEWINDOW = &H80
  Public Const        SWP_SHOWWINDOW = &H40

  Public Sub SaveStringWORD(hKey As Long,        strPath As String, strValue As String, strData As String)
            Dim Ret
     RegCreateKey hKey, strPath, Ret
            RegSetValueEx Ret, strValue, 0, REG_DWORD, CLng(strData),        4
     RegCloseKey Ret
  End Sub

  Public Sub        EnableTaskAll()
   SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableTaskMgr", 0
   SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\Explorer", "NoLogoff",        0
   SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\Explorer", "NoClose",        0
   SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system","
  DisableLockWorkstation",        0
   SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system","
  DisableChangePassword",        0
  End Sub

  Public Sub DisableTaskAll()
            SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableTaskMgr", 1
     SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\Explorer", "NoLogoff",        1
     SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\Explorer", "NoClose",        1
     SaveStringWORD HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableLockWorkstation", 1
     SaveStringWORD        HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableChangePassword", 1
  End Sub

  Public Sub        CheckIfEnable()
     Dim a, b, c, d, e, f As String
            On Error Resume Next
     a =        GetString(HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableTaskMgr")
     b = GetString(HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\Explorer",        "NoLogoff")
     c = GetString(HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\Explorer",        "NoClose")
     d = GetString(HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableLockWorkstation")
     e = GetString(HKEY_CURRENT_USER,        "software\microsoft\windows\currentversion\policies\system",        "DisableChangePassword")
  End Sub

  Public Function GetString(hKey        As Long, strPath As String, strValue As String)
     Dim        Ret
     RegOpenKey hKey, strPath, Ret
            GetString = RegQueryStringValue(Ret, strValue)
            RegCloseKey Ret
  End Function

  Public Function        RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As        String
     Dim lResult As Long, lValueType As Long, strBuf As        String, lDataBufSize As Long
     lResult =        RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0,        lDataBufSize)
     If lResult = 0 Then
     If        lValueType = REG_SZ Then
     strBuf = String(lDataBufSize,        Chr$(0))
     lResult = RegQueryValueEx(hKey, strValueName, 0,        0, ByVal strBuf, lDataBufSize)
     If lResult = 0        Then
     RegQueryStringValue = Left$(strBuf, InStr(1, strBuf,        Chr$(0)) - 1)
     End If
     ElseIf lValueType =        REG_BINARY Then
     Dim strData As Integer
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData,        lDataBufSize)
     If lResult = 0 Then
            RegQueryStringValue = strData
     End If
            ElseIf lValueType = REG_DWORD Then
     lResult =        RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
            If lResult = 0 Then
     RegQueryStringValue =        strData
     End If
     End If
     End        If
  End Function

اوك يا عم كدة تمام

مش ده الكود السرى بتاعى !

اقتباس

فيه بس مبطلعوش لحد , و فيه كمان أكتر من طريقة , بس من غير ما الأخ afakaz يزعل , الحاجة الوحيدة اللى المطلوب فيها عمل ده هى صناعة الفيروسات , و أنا لا أساعد بذلك.

لا ياأخي ليست هي الحاجة الوحيدة

اقتباس

لما يبقى عندك موظف و عايز تمنعه من كده هتعمله Account محدود , أو تلغى الـ Task Manager من الـ Registry

اقتباس

هو ممكن بس قلى سبب واحد مقنع

أفترض أن برنامجك يعمل على أجهزة في الشبكة المحلية وتريد ألا يوقف أحد برنامجك من إنهاء المهمة ،(أفترضه برنامج توقيت زمني لإطفاء الجهاز) وطبعاً إنهاء المهمة ضرورية ولا يمكن إخفاءها ، فهل لك أن تدلني على طريقة لإخفاء برنامجي.

بالنسبة للفيروسات بشكل عام: لما الغرب يعرف ويصنع الفيرويات بينما نحن لا ، ألا يوجد عند كل واحد منا سكينة فيمكن يستعملها لتقشير تفاحة أو يمكن يستعملها لذبح إنسان.

برده مش سبب مقنع , على العموم أعتقد ان النقاش فى مواضيع زى دى هيطول بدون فائدة لأنى بدماغ صعيدى ;)

اقتباس

برده مش سبب مقنع

ماإقتنعت بالسبب فالأمر عائد لك

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

والان نريد ذبح التفاحة

لا تنسى تعمل references dll

والسلام عليكم

AZY.rar

السلام عليكم

اخى محمد السيد

اذا كنت فعلا تغرف الطريقه فلتنشرها لتعم فائدتها لللناس جمعيا ولن يضيرك ان يستخدم احد فى صناعه الفيروسات .

ولك مثال بسيط لما يمكن ان احتاج عن نفسى مثل ذلك :- اذا عملت برنامج واردت تسويقه وحمايته من النسخ .

ساقوم بعمل برنامج اخر يعمل نخفى من التسك مانجر ومن اى حاجه حتى لا يستطيع احد ان يراه ويكون مهمته مراقبه المسار الذى به البرنامج المحمى وعند اى تعديل يقوم بالغائه

اقتباس

اذا كنت فعلا تغرف الطريقه فلتنشرها لتعم فائدتها لللناس جمعيا ولن يضيرك ان يستخدم احد فى صناعه الفيروسات

هل حملت المرفق السابق : blink:

اقتباس

لم أجد كود لحد الأن كود يخفي البرنامج من العمليات

اقتباس

والان نريد ذبح التفاحة

لا تنسى تعمل references dll

والسلام عليكم

الملفات المرفقة

الملف المرفق AZY.rar ( 20.88k )

ياسلام عليك أخي المزمجر :rolleyes:

دنت موش بس ذبحت التفاحة فقط ... ياسلام (h)

أداة جميلة بالفعل مع أنه لو كان كود أفضل :)

بس وفيت وكفيت B)

الآن أستطيع أن أصنع الفيروسات بكل رياحة

اقتباس

الآن أستطيع أن أصنع الفيروسات بكل رياحة

أخيراً تم الحصول على السورس كود لمنع ظهور أسم البرنامج في قائمة العمليات للوندوز XP:

HideCurrentProcess.rar

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

المزمجر حاليا غير موجود

البرنامج الذي أرفقه المزمجر فيه مكتبة PSLib.dll وهي مكتبة تتحكم بنظامك مثل أخفاء البرنامج من العمليات ،وهذا الشيىء يعتبر عبث بالنظام فأعتبرها الفاحص عندك أنها تورجان