https://pastein.ru/t/YiS
Загрузка данных
Sub CreateCryptoPresentationFixed()
Dim pptPres As Presentation
Dim pptSlide As Slide
Dim sld As Slide
Set pptPres = Presentations.Add
' --- СЛАЙД 1 ---
Set pptSlide = pptPres.Slides.Add(1, ppLayoutTitle)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1103) ' Криптография
pptSlide.Shapes(2).TextFrame.TextRange.Text = ChrW(1053) & ChrW(1072) & ChrW(1091) & ChrW(1082) & ChrW(1072) & " " & ChrW(1086) & " " & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1093) & " " & ChrW(1079) & ChrW(1072) & ChrW(1097) & ChrW(1080) & ChrW(1090) & ChrW(1099) & " " & ChrW(1080) & ChrW(1085) & ChrW(1092) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1080) & " " & ChrW(1089) & " " & ChrW(1087) & ChrW(1086) & ChrW(1084) & ChrW(1086) & ChrW(1097) & ChrW(1100) & ChrW(1102) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103)
' --- СЛАЙД 2 ---
Set pptSlide = pptPres.Slides.Add(2, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1054) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1087) & ChrW(1086) & ChrW(1085) & ChrW(1103) & ChrW(1090) & ChrW(1080) & ChrW(1103)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ": " & ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093) & " " & ChrW(1074) & " " & ChrW(1085) & ChrW(1077) & ChrW(1095) & ChrW(1080) & ChrW(1090) & ChrW(1072) & ChrW(1077) & ChrW(1084) & ChrW(1099) & ChrW(1081) & " " & ChrW(1074) & ChrW(1080) & ChrW(1076) & vbCrLf & _
"• " & ChrW(1044) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ": " & ChrW(1054) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " " & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
"• " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ": " & ChrW(1055) & ChrW(1072) & ChrW(1088) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ", " & ChrW(1091) & ChrW(1087) & ChrW(1088) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1103) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1081) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(1084) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ": " & ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & vbCrLf & _
"• " & ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & ": " & ChrW(1048) & ChrW(1089) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & ": " & ChrW(1047) & ChrW(1072) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077)
' --- СЛАЙД 3 ---
Set pptSlide = pptPres.Slides.Add(3, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1042) & ChrW(1080) & ChrW(1076) & ChrW(1099) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & " " & ChrW(1090) & ChrW(1080) & ChrW(1087) & ChrW(1091) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & ": " & ChrW(1054) & ChrW(1076) & ChrW(1080) & ChrW(1085) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & vbCrLf & _
"• " & ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & ": " & ChrW(1055) & ChrW(1072) & ChrW(1088) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1081) & vbCrLf & _
"• " & ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ": " & ChrW(1041) & ChrW(1077) & ChrW(1079) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072)
' --- СЛАЙД 4 ---
Set pptSlide = pptPres.Slides.Add(4, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1099)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " " & ChrW(1062) & ChrW(1077) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1103) & " — " & ChrW(1089) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1073) & ChrW(1091) & ChrW(1082) & ChrW(1074) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " " & ChrW(1042) & ChrW(1080) & ChrW(1078) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1072) & " — " & ChrW(1089) & ChrW(1076) & ChrW(1074) & ChrW(1080) & ChrW(1075) & " " & ChrW(1087) & ChrW(1086) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1074) & ChrW(1086) & ChrW(1084) & ChrW(1091) & " " & ChrW(1089) & ChrW(1083) & ChrW(1086) & ChrW(1074) & ChrW(1091) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " " & ChrW(1040) & ChrW(1090) & ChrW(1073) & ChrW(1072) & ChrW(1096) & " — " & ChrW(1079) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1079) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1072) & vbCrLf & _
"• " & ChrW(1056) & ChrW(1077) & ChrW(1096) & ChrW(1105) & ChrW(1090) & ChrW(1082) & ChrW(1072) & " " & ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1086) & " — " & ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1072)
' --- СЛАЙД 5 ---
Set pptSlide = pptPres.Slides.Add(5, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1057) & ChrW(1086) & ChrW(1074) & ChrW(1088) & ChrW(1077) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1099)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1099) & ": AES, DES, " & ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " 28147-89, RSA, ECC, " & ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " " & ChrW(1056) & " 34.10, SHA-256, MD5" & vbCrLf & _
"• " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " " & ChrW(1050) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1075) & ChrW(1086) & ChrW(1092) & ChrW(1092) & ChrW(1089) & ChrW(1072) & ": " & ChrW(1057) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1079) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1080) & ChrW(1090) & " " & ChrW(1090) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1082) & ChrW(1086) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & vbCrLf & _
"• " & ChrW(1051) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " " & ChrW(1101) & ChrW(1092) & ChrW(1092) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ": " & ChrW(1052) & ChrW(1072) & ChrW(1083) & ChrW(1086) & ChrW(1077) & " " & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1074) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1072) & " -> " & ChrW(1073) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1096) & ChrW(1086) & ChrW(1077) & " " & ChrW(1080) & ChrW(1079) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1072)
' --- СЛАЙД 6 ---
Set pptSlide = pptPres.Slides.Add(6, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.1. " & ChrW(1044) & ChrW(1072) & ChrW(1081) & ChrW(1090) & ChrW(1077) & " " & ChrW(1086) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1103) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
"• " & ChrW(1044) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
"• " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & vbCrLf & _
"• " & ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & vbCrLf & _
"• " & ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090) & vbCrLf & _
"• " & ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & vbCrLf & _
"• " & ChrW(1061) & ChrW(1077) & ChrW(1096) & "-" & ChrW(1092) & ChrW(1091) & ChrW(1085) & ChrW(1082) & ChrW(1094) & ChrW(1080) & ChrW(1103) & vbCrLf & _
"• " & ChrW(1069) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1100)
' --- СЛАЙД 7 ---
Set pptSlide = pptPres.Slides.Add(7, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.2. " & ChrW(1042) & ChrW(1080) & ChrW(1076) & ChrW(1099) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103)
pptSlide.Shapes(2).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1077) & " " & ChrW(1090) & ChrW(1072) & ChrW(1073) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1091) & ":" & vbCrLf & vbCrLf & _
ChrW(1042) & ChrW(1080) & ChrW(1076) & " | " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1080) & " | " & ChrW(1057) & ChrW(1082) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " | " & ChrW(1041) & ChrW(1077) & ChrW(1079) & ChrW(1086) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & vbCrLf & _
ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " | ... | ... | ..." & vbCrLf & _
ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " | ... | ... | ..." & vbCrLf & _
ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " | ... | ... | ..."
' --- СЛАЙД 8 ---
Set pptSlide = pptPres.Slides.Add(8, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.3. " & ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1099)
pptSlide.Shapes(2).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1077) & " " & ChrW(1090) & ChrW(1072) & ChrW(1073) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1091) & ":" & vbCrLf & vbCrLf & _
ChrW(1064) & ChrW(1080) & ChrW(1092) & ChrW(1088) & " | " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " | " & ChrW(1050) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " | " & ChrW(1057) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & vbCrLf & _
ChrW(1062) & ChrW(1077) & ChrW(1079) & ChrW(1072) & ChrW(1088) & ChrW(1103) & " | ... | ... | ..." & vbCrLf & _
ChrW(1042) & ChrW(1080) & ChrW(1078) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1088) & ChrW(1072) & " | ... | ... | ..." & vbCrLf & _
ChrW(1040) & ChrW(1090) & ChrW(1073) & ChrW(1072) & ChrW(1096) & " | ... | ... | ..." & vbCrLf & _
ChrW(1056) & ChrW(1077) & ChrW(1096) & ChrW(1105) & ChrW(1090) & ChrW(1082) & ChrW(1072) & " " & ChrW(1050) & ChrW(1072) & ChrW(1088) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1086) & " | ... | ... | ..."
' --- СЛАЙД 9 ---
Set pptSlide = pptPres.Slides.Add(9, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.4. " & ChrW(1054) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1090) & ChrW(1100) & ChrW(1090) & ChrW(1077) & " " & ChrW(1085) & ChrW(1072) & " " & ChrW(1074) & ChrW(1086) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1099)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1063) & ChrW(1077) & ChrW(1084) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1086) & ChrW(1090) & ChrW(1083) & ChrW(1080) & ChrW(1095) & ChrW(1072) & ChrW(1077) & ChrW(1090) & ChrW(1089) & ChrW(1103) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1082) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & "?" & vbCrLf & _
"• " & ChrW(1055) & ChrW(1086) & ChrW(1095) & ChrW(1077) & ChrW(1084) & ChrW(1091) & " " & ChrW(1087) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " " & ChrW(1050) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1075) & ChrW(1086) & ChrW(1092) & ChrW(1092) & ChrW(1089) & ChrW(1072) & " " & ChrW(1074) & ChrW(1072) & ChrW(1078) & ChrW(1077) & ChrW(1085) & "?" & vbCrLf & _
"• " & ChrW(1063) & ChrW(1090) & ChrW(1086) & " " & ChrW(1090) & ChrW(1072) & ChrW(1082) & ChrW(1086) & ChrW(1077) & " " & ChrW(1083) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1081) & " " & ChrW(1101) & ChrW(1092) & ChrW(1092) & ChrW(1077) & ChrW(1082) & ChrW(1090) & "?" & vbCrLf & _
"• " & ChrW(1047) & ChrW(1072) & ChrW(1095) & ChrW(1077) & ChrW(1084) & " " & ChrW(1085) & ChrW(1091) & ChrW(1078) & ChrW(1085) & ChrW(1072) & " " & ChrW(1101) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1100) & "?"
' --- СЛАЙД 10 ---
Set pptSlide = pptPres.Slides.Add(10, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " 1.5. " & ChrW(1057) & ChrW(1086) & ChrW(1074) & ChrW(1088) & ChrW(1077) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1099)
pptSlide.Shapes(2).TextFrame.TextRange.Text = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1077) & " " & ChrW(1090) & ChrW(1072) & ChrW(1073) & ChrW(1083) & ChrW(1080) & ChrW(1094) & ChrW(1091) & ":" & vbCrLf & vbCrLf & _
ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " | " & ChrW(1058) & ChrW(1080) & ChrW(1087) & " | " & ChrW(1044) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & " | " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & vbCrLf & _
"AES | ... | ... | ..." & vbCrLf & _
"RSA | ... | ... | ..." & vbCrLf & _
"SHA-256 | ... | ... | ..." & vbCrLf & _
ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " 28147-89 | ... | ... | ..." & vbCrLf & _
ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " " & ChrW(1056) & " 34.10 | ... | ... | ..."
' --- СЛАЙД 11 ---
Set pptSlide = pptPres.Slides.Add(11, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1057) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1079) & ChrW(1091) & ChrW(1077) & ChrW(1090) & " " & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1085) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & "." & vbCrLf & _
"• " & ChrW(1042) & ChrW(1099) & ChrW(1089) & ChrW(1086) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " " & ChrW(1089) & ChrW(1082) & ChrW(1086) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & "." & vbCrLf & _
"• " & ChrW(1055) & ChrW(1088) & ChrW(1086) & ChrW(1073) & ChrW(1083) & ChrW(1077) & ChrW(1084) & ChrW(1072) & " " & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1103) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1081) & "." & vbCrLf & _
"• " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1099) & ": AES, DES." & vbCrLf & _
"• " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1099) & ": AES, DES, " & ChrW(1043) & ChrW(1054) & ChrW(1057) & ChrW(1058) & " 28147-89."
' --- СЛАЙД 12 ---
Set pptSlide = pptPres.Slides.Add(12, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1040) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1077) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1079) & ChrW(1091) & ChrW(1077) & ChrW(1090) & " " & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1091) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1077) & ChrW(1081) & ":" & vbCrLf & _
"• " & ChrW(1054) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " " & ChrW(1076) & ChrW(1083) & ChrW(1103) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103) & "." & vbCrLf & _
"• " & ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & " " & ChrW(1076) & ChrW(1083) & ChrW(1103) & " " & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1082) & ChrW(1080) & "." & vbCrLf & _
"• " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1099) & ": RSA, ECC."
' --- СЛАЙД 13 ---
Set pptSlide = pptPres.Slides.Add(13, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1061) & ChrW(1077) & ChrW(1096) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1079) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & " " & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093) & " " & ChrW(1074) & " " & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1082) & ChrW(1091) & " " & ChrW(1092) & ChrW(1080) & ChrW(1082) & ChrW(1089) & ChrW(1080) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1081) & " " & ChrW(1076) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & "." & vbCrLf & _
"• " & ChrW(1053) & ChrW(1077) & ChrW(1086) & ChrW(1073) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & "." & vbCrLf & _
"• " & ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1079) & ChrW(1091) & ChrW(1077) & ChrW(1090) & ChrW(1089) & ChrW(1103) & " " & ChrW(1076) & ChrW(1083) & ChrW(1103) & " " & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1080) & " " & ChrW(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & "." & vbCrLf & _
"• " & ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(1099) & ": SHA-256, MD5."
' --- СЛАЙД 14 ---
Set pptSlide = pptPres.Slides.Add(14, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1069) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1088) & ChrW(1086) & ChrW(1085) & ChrW(1085) & ChrW(1072) & ChrW(1103) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1100)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1040) & ChrW(1085) & ChrW(1072) & ChrW(1083) & ChrW(1086) & ChrW(1075) & " " & ChrW(1089) & ChrW(1086) & ChrW(1073) & ChrW(1089) & ChrW(1090) & ChrW(1074) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1088) & ChrW(1091) & ChrW(1095) & ChrW(1085) & ChrW(1086) & ChrW(1081) & " " & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1080) & "." & vbCrLf & _
"• " & ChrW(1054) & ChrW(1073) & ChrW(1077) & ChrW(1089) & ChrW(1087) & ChrW(1077) & ChrW(1095) & ChrW(1080) & ChrW(1074) & ChrW(1072) & ChrW(1077) & ChrW(1090) & " " & ChrW(1072) & ChrW(1091) & ChrW(1090) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1080) & ChrW(1092) & ChrW(1080) & ChrW(1082) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1102) & " " & ChrW(1080) & " " & ChrW(1094) & ChrW(1077) & ChrW(1083) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & "." & vbCrLf & _
"• " & ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1079) & ChrW(1091) & ChrW(1077) & ChrW(1090) & " " & ChrW(1072) & ChrW(1089) & ChrW(1080) & ChrW(1084) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1088) & ChrW(1080) & ChrW(1095) & ChrW(1085) & ChrW(1099) & ChrW(1077) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1099) & "." & vbCrLf & _
"• " & ChrW(1070) & ChrW(1088) & ChrW(1080) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1072) & ChrW(1103) & " " & ChrW(1079) & ChrW(1085) & ChrW(1072) & ChrW(1095) & ChrW(1080) & ChrW(1084) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & "."
' --- СЛАЙД 15 ---
Set pptSlide = pptPres.Slides.Add(15, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1055) & ChrW(1088) & ChrW(1080) & ChrW(1085) & ChrW(1094) & ChrW(1080) & ChrW(1087) & " " & ChrW(1050) & ChrW(1077) & ChrW(1088) & ChrW(1082) & ChrW(1075) & ChrW(1086) & ChrW(1092) & ChrW(1092) & ChrW(1089) & ChrW(1072)
pptSlide.Shapes(2).TextFrame.TextRange.Text = "• " & ChrW(1057) & ChrW(1090) & ChrW(1086) & ChrW(1081) & ChrW(1082) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1100) & " " & ChrW(1096) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1072) & " " & ChrW(1079) & ChrW(1072) & ChrW(1074) & ChrW(1080) & ChrW(1089) & ChrW(1080) & ChrW(1090) & " " & ChrW(1090) & ChrW(1086) & ChrW(1083) & ChrW(1100) & ChrW(1082) & ChrW(1086) & " " & ChrW(1086) & ChrW(1090) & " " & ChrW(1082) & ChrW(1083) & ChrW(1102) & ChrW(1095) & ChrW(1072) & "." & vbCrLf & _
"• " & ChrW(1040) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & " " & ChrW(1084) & ChrW(1086) & ChrW(1078) & ChrW(1077) & ChrW(1090) & " " & ChrW(1073) & ChrW(1099) & ChrW(1090) & ChrW(1100) & " " & ChrW(1080) & ChrW(1079) & ChrW(1074) & ChrW(1077) & ChrW(1089) & ChrW(1090) & ChrW(1077) & ChrW(1085) & " " & ChrW(1074) & ChrW(1089) & ChrW(1077) & ChrW(1084) & "." & vbCrLf & _
"• " & ChrW(1069) & ChrW(1090) & ChrW(1086) & " " & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1085) & ChrW(1076) & ChrW(1072) & ChrW(1088) & ChrW(1090) & " " & ChrW(1089) & ChrW(1086) & ChrW(1074) & ChrW(1088) & ChrW(1077) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1085) & ChrW(1086) & ChrW(1081) & " " & ChrW(1082) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1080) & "." & vbCrLf & _
"• " & ChrW(1055) & ChrW(1086) & ChrW(1079) & ChrW(1074) & ChrW(1086) & ChrW(1083) & ChrW(1103) & ChrW(1077) & ChrW(1090) & " " & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1090) & ChrW(1100) & " " & ChrW(1086) & ChrW(1090) & ChrW(1082) & ChrW(1088) & ChrW(1099) & ChrW(1090) & ChrW(1099) & ChrW(1081) & " " & ChrW(1072) & ChrW(1091) & ChrW(1076) & ChrW(1080) & ChrW(1090) & " " & ChrW(1072) & ChrW(1083) & ChrW(1075) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1090) & ChrW(1084) & ChrW(1086) & ChrW(1074) & "."
' --- СЛАЙД 16 ---
Set pptSlide = pptPres.Slides.Add(16, ppLayoutText)
pptSlide.Shapes(1).TextFrame.TextRange.Text = ChrW(1057) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1080) & ChrW(1073) & ChrW(1086) & " " & ChrW(1079) & ChrW(1072) & " " & ChrW(1074) & ChrW(1085) & ChrW(1080) & ChrW(1084) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & "!"
pptSlide.Shapes(2).TextFrame.TextRange.Text = ChrW(1042) & ChrW(1086) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(1099) & "?" & vbCrLf & vbCrLf & _
ChrW(1050) & ChrW(1088) & ChrW(1080) & ChrW(1087) & ChrW(1090) & ChrW(1086) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1103) & " — " & ChrW(1086) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1072) & " " & ChrW(1073) & ChrW(1077) & ChrW(1079) & ChrW(1086) & ChrW(1087) & ChrW(1072) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080) & " " & ChrW(1074) & " " & ChrW(1094) & ChrW(1080) & ChrW(1092) & ChrW(1088) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1084) & " " & ChrW(1084) & ChrW(1080) & ChrW(1088) & ChrW(1077) & "."
' Настройка шрифтов
For Each sld In pptPres.Slides
sld.Shapes(1).TextFrame.TextRange.Font.Size = 36
sld.Shapes(1).TextFrame.TextRange.Font.Bold = True
If sld.Shapes.Count > 1 Then
sld.Shapes(2).TextFrame.TextRange.Font.Size = 20
End If
Next sld
MsgBox ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1079) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1103) & " " & ChrW(1089) & ChrW(1086) & ChrW(1079) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1072) & "!", vbInformation
End Sub