Mavzu: Avtomatlashtirilgan axborot tizimlarida axborotlarni himoyalash

13-Laboratoriya mashg‘uloti

Mavzu: Avtomatlashtirilgan axborot tizimlarida axborotlarni himoyalash

Ishning maqsadi:
1.1 MS WORD 2013 matn muharririda tayyorlangan hujjatlarni himoyalash texnologiyasini o‘rganish.
1.2 MS WORD 2013 matn muharririda yozilgan hujjatlarni makroviruslardan himoyalashni o‘rganish.
2.1 Ms Excel 2013 jadval protcessorida tayerlangan hujjatlarni himoyalash texnologiyasini o‘rganish.
2.2 Ms Excel 2013 jadval protcessorida tayerlangan jadvalning aloxida kataklariga himoya kuyish texnologiyasini o‘rganish.
Ishni bajarish tartibi.
MS WORD uchun:
1-qadam: MS WORD 2013 matn muharririda “JDPI” fayl yarating.
2-qadam: Menyuning «Файл» bulimining «Сведения» bandi va so’ng «Зашифровать с использованием пароля» punkti tanlanib parol kiriting.

3-qadam: Faylni qayta yuklash bilan qo’yilgan parolni tekshirib ko’ring.

4-qadam: Menyuning «Рецензирование» bulimining «Ограничить редактирование» bandi va so’ng «Запись исправлений» punkti tanlanib parol kiriting.

5- qadam: Faylni qayta yuklab va o’zgartirish kiritib, qo’yilgan parolni tekshirib ko‘ring.

6-qadam: Makroslardan himoyalashning har xil darajalarini o‘rnating.

MS EXCEL uchun:
1-qadam: Ms Excel 2013 jadval protsessorida fayl yarating.
2-qadam: Menyuning «Файл» bulimining «Сведения» bandi va so’ng «Зашифровать с использованием пароля» punkti tanlanib parol kiriting.

3-qadam: Faylni qayta yuklash bilan qo’yilgan parolni tekshirib ko’ring.

4-qadam: Menyuning «Рецензирование» bulimining «Защитить лист» bandi va so’ng «выделение заблокированных ячеек» punkti tanlanib parol kiriting.

5-qadam: Faylni qayta yuklab va o’zgartirish kiritib, qo’yilgan parolni tekshirib ko’ring.

6-qadam: Alohida kataklarga himoya qo’ying.

Visual Basic (Alt+F11)- Excel dasturida shifrlash va deshifrlash
'shifr
Sub Encrypt()
Dim Pass$, Key$
Pass = InputBox("kalit so'zni kiriting:")
Key = WorksheetFunction.Rept(Pass, 100)
For Each cell In ActiveSheet.UsedRange
Out = ""
Txt = cell.Formula
For i = 1 To Len(Txt)
Out = Out & Chr((Asc(Mid(Txt, i, 1)) + Asc(Mid(Key, i, 1))) Mod 256)
Next i
cell.Value = Out
Next cell
End Sub
'deshifr
Sub Decrypt()
Dim Pass$, Key$
Pass = InputBox("kalit so'zni kiriting:")
Key = WorksheetFunction.Rept(Pass, 100)
For Each cell In ActiveSheet.UsedRange
Out = ""
Txt = cell.Value
For i = 1 To Len(Txt)
Out = Out & Chr((Asc(Mid(Txt, i, 1)) - Asc(Mid(Key, i, 1)) + 256) Mod 256)
Next i
cell.Formula = Out
Next cell
End Sub


Hisobot mazmuni

• 
  Ishning nom iva maqsadi.
  
• 
  Aniq vazifalarni bajarish natijalari.
  
• 
  Programmadan hisobotlar skrinshotlari.
  
• 
  Mavzu bo’yicha xulosalar.
  

Nazorat savollari

1. 
   Word matn muharririning hujjatlariga qanday viruslar ta`sir ko‘rsatadi? Shular haqida to‘liq ma`lumot bering.
   
2. 
   Word matn muharriri hujjatlarini faqat o‘qish uchun parol quyishni tushuntiring.
   
3. 
   Word matn muharriri hujjatlarini ochish uchun parol quyishni tushuntiring.
   
4. 
   Hujjatlarni makroslardan himoyalash qanday amalga oshiriladi?
   
5. 
   Ms Excel ning hujjatlariga qanday viruslar ta`sir ko‘rsatadi, shular haqida to‘liq ma`lumot bering.
   
6. 
   Ms Excel ning hujjatlarini faqat o‘qish uchun parol qo‘yishni tushuntiring.
   
7. 
   Ms Excel hujjatlarini ochish uchun parol qo‘yishni tushuntiring.
   
8. 
   Hujjatlarni makroslardan himoyalash qanday amalga oshiriladi?
   
9. 
   Alohida kataloglarni himoyalashni tushuntiring.