Зашифровать строку методом Цезаря

@Ivan_Don · Регистрация: 25.03.2013

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, написать код к заданию:

Зашифровать строку, содержащую русские буквы, пробелы и знаки препинания: заменить каждую букву, непосредственно следующей за ней по алфавиту ("я" на "а"), строчную букву преобразовать в прописную, прописную - в строчную.

@~~Апострофф~~ · 25.03.2013, 20:24

Ivan_Don, буква Ё присутствует в алфавите? Вопрос не праздный, от него зависит решение...

@Ivan_Don · 25.03.2013, 20:27 **[ТС]**

присутствует

@~~Апострофф~~ · 26.03.2013, 08:40

Visual Basic

Option Explicit
 
Function Coder(s As String, Shift As Integer) As String
Const abc As String = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
Dim c As String, I As Long, U As Boolean, Pos As Long
For I = 1 To Len(s)
  c = Mid$(s, I, 1)
  Pos = InStr(1, abc, c, vbTextCompare)
  If Pos Then
    U = c = UCase(c)
    Pos = (Pos + Shift) Mod Len(abc)
    If Pos = 0 Then Pos = Len(abc)
    c = Mid$(abc, Pos, 1)
    c = IIf(U, LCase(c), UCase(c))
  End If
  Coder = Coder & c
Next I
End Function
 
Sub Coder_Example()
Dim s1 As String, s2 As String, s3 As String
s1 = "ёПробаЯ1, ЯПробаЁ2"
s2 = Coder(s1, 1): MsgBox s2, , "Зашифровали " & s1
s3 = Coder(s2, -1): MsgBox s3, , "Расшифровали " & s2
End Sub

@Ivan_Don · 26.03.2013, 18:42 **[ТС]**

Апострофф, Спасибо!

@Ivan_Don 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 4
		1
	Зашифровать строку методом Цезаря 25.03.2013, 19:54. Показов 2328. Ответов 4 Метки нет (Все метки) Помогите, пожалуйста, написать код к заданию: Зашифровать строку, содержащую русские буквы, пробелы и знаки препинания: заменить каждую букву, непосредственно следующей за ней по алфавиту ("я" на "а"), строчную букву преобразовать в прописную, прописную - в строчную. 0

@~~Апострофф~~ Заблокирован
	25.03.2013, 20:24	2
	Ivan_Don, буква Ё присутствует в алфавите? Вопрос не праздный, от него зависит решение... 0

@Ivan_Don 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 4
	25.03.2013, 20:27 [ТС]	3
	присутствует 0

@Ivan_Don 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 4
	26.03.2013, 18:42 [ТС]	5
	Апострофф, Спасибо! 0

Опции темы

Зашифровать строку методом Цезаря

Решение