https://pastein.ru/t/riS
Загрузка данных
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) & " | ... | ... | ..."
