Помогите написать программу на любом языке программирования
Касьян Вот программа Я по быстрому сделал на VBA Sub Процедура_шифрования() Cоnst DefText As String = "Неясное становится еще более непонятным" 'текст по умолчанию Dim InText As String 'текст который надо зашифровать Dim LenText As Integer 'длина этого текста Dim OutText As String 'здесь будет зашифрованный текст Dim Sim As String Dim i As Byte Dim xi As Byte ' Dim XMax As Byte Dim ts As String Dim sc As Byte InText = InputBox("Введите сообщение", "Шифрование", DefText) 'ввод текста If Len(InText) = 0 Then 'выход если нет текста Exit Sub End If InText = UCase(InText) 'делаем все символы заглавными ts = "" For i = 1 To Len(InText) Sim = Mid(InText, i, 1) ' If Sim " " Then 'удаляем ts = ts & Sim 'пробелы End If ' Next i InText = ts LenText = Len(InText) 'высчитываем новую длину XMax = Int(Sqr(LenText)) 'рассчитываем размер таблицы sc = 0 'счетчик символов для вставки пробела For i = 1 To XMax xi = i incr: Sim = Mid(InText, xi, 1) OutText = OutText & Sim sc = sc + 1 If sc = 5 Then 'вставляем OutText = OutText & " " 'разделительный sc = 0 'пробел End If 'групп xi = xi + XMax If xi можно ли открыть папку зашифрованную в windowsXP, т. е. дешифровать?
