Разработка программы, обеспечивающую с помощью средств языка С++ ввод анкетных данных студентов и вывод в табличном виде списка студентов, отобранных по заданному условию, страница 14

Dim r As New StreamReader(fs)

text = r.ReadToEnd()

r.Close()

fs.Close()

' прочитать информацию о секретном ключе

Dim RSA As New RSACryptoServiceProvider()

fs = New FileStream("key2.bin", FileMode.Open)

r = New StreamReader(fs)

RSA.FromXmlString(r.ReadToEnd())

fs.Close()

' преобразование данных в поток бит

Dim databytes() As Byte = System.Text.Encoding.UTF8.GetBytes(text)

' подписывание даннных

signature = RSA.SignData(databytes, New SHA1CryptoServiceProvider)

' запись подписи в файл

fs = New FileStream("Подпись.bin", FileMode.OpenOrCreate)

fs.Write(signature, 0, signature.Length)

fs.Close()

3:

Dim text As String

Dim signature() As Byte

' открытие исходного файла и чтение из него информации в переменную text

Dim fs As New FileStream("Текст.txt", FileMode.Open)

Dim r As New StreamReader(fs)

text = r.ReadToEnd()

r.Close()

fs.Close()

' прочитать информацию об открытом ключе

Dim rsa As New RSACryptoServiceProvider()

fs = New FileStream("key1.bin", FileMode.Open)

r = New StreamReader(fs)

rsa.FromXmlString(r.ReadToEnd())

fs.Close()

' преобразование данных в поток бит

Dim databytes() As Byte = System.Text.Encoding.UTF8.GetBytes(text)

' прочитать информацию о подписи

fs = New FileStream("Подпись", FileMode.Open)

fs.Read(signature, 0, signature.Length)

fs.Close()

' верификация подписи

If rsa.VerifyData(databytes, New SHA1CryptoServiceProvider, signature) Then

Label2.Text = "Подпись верна"

Else

Label2.Text = "Подпись не верна"

        End If

Задача №24

ДАНО:	Шесть графических файлов формата .JPG, созданных в программе Paint, в каждом из которых нарисован квадрат следующего цвета: белый, синий, желтый, оранжевый, красный, зелёный.
ТРЕБУЕТСЯ:	·  Создать программу, рисующую на форме куб с гранями соответствующих цветов, созданных на основе имеющихся графических файлов. ·  Обеспечить поворот данного куба вверх, вниз, вправо и влево с помощью соответствующих кнопок, нанесенных на форму (написать обработчики событий каждой из кнопок).
ОГРАНИЧЕНИЯ:	·  Исходное положение куба – фасад – белый, верх – синий, правая сторона – красный, левая сторона – желтый, низ – зеленый, задняя сторона – оранжевый. ·  В исходном положение видны фасад, верх и правая сторона. ·  Обеспечить отображение изображения при возможных манипуляциях с формой (изменение размеров, свертывание и др.) ·  Язык программирования – Visual Basic .Net или C # (по выбору)

Полный код:

Imports System.Drawing.Drawing2D

Public Class Form1

Public img_b, img_w, img_r, img_o, img_y, img_g As Image

Public g As Graphics

Public mas() As Integer = {1, 2, 3, 4, 5, 6}

Public mas_t(6) As Integer

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim f() As Point = {New Point(170, 210), New Point(370, 210), New Point(170, 410)}

Dim t() As Point = {New Point(230, 150), New Point(430, 150), New Point(170, 210)}

Dim r() As Point = {New Point(370, 210), New Point(430, 150), New Point(370, 410)}

img_b = Image.FromFile("picture\b.jpg")

img_w = Image.FromFile("picture\w.jpg")

img_r = Image.FromFile("picture\r.jpg")

img_o = Image.FromFile("picture\o.jpg")

img_y = Image.FromFile("picture\y.jpg")

img_g = Image.FromFile("picture\g.jpg")

g = Me.CreateGraphics

Select Case mas(0)

Case 1

g.DrawImage(img_w, f)

Case 2

g.DrawImage(img_r, f)

Case 3

g.DrawImage(img_o, f)

Case 4

g.DrawImage(img_g, f)

Case 5

g.DrawImage(img_b, f)

Case 6

g.DrawImage(img_y, f)

End Select

Select Case mas(1)

Case 1

g.DrawImage(img_w, r)