Public Class Form1
    Const alfavit As String = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяAaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
    Const sdvig As Integer = 3
 
    Private Function cs(ByVal s As String, ByVal sdvig As Integer) As String
        Dim i As Integer
        cs = ""
        For i = 1 To Len(s)
            cs &= cc(Mid(s, i, 1), sdvig)
        Next
    End Function
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Label3.Text = cs(TextBox1.Text, sdvig)
    End Sub
 
    Private Function cc(ByVal c As Char, ByVal sdvig As Integer) As String
        cc = ""
        If InStr(alfavit, c) <> 0 Then Return Mid(alfavit, ((InStr(alfavit, c) - 1 + 2 * sdvig + Len(alfavit)) Mod Len(alfavit) + 1), 1)
    End Function
End Class

как переписать его для ASKII?

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.10.2014, 14:13

Ответы с готовыми решениями:

Реализовать Шифр Цезаря
Нам в школе задали написать данную прогу (хоть Visual Basic изучали лишь 2-3 урока, потом просто...

Реализовать шифр Цезаря
Ребята, помогите, пожалуйста. Шифр Цезаря с ключом К=-5

Как реализовать Шифр Цезаря?
Всем Хай не знаю как доделать шифр цезаря, по правильному пути ли я иду ? я хочу взять ...

Помогите реализовать шифр цезаря
Помогите написать графическую программу, которая шифрует слова шифром Цезаря.Шифр Цезаря — один из...

	27.10.2014, 14:13

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.10.2014, 14:13

Помогаю со студенческими работами здесь

Реализовать шифр Цезаря, если не известно с какой буквы идет шифрование
Здравствуйте. Может ли кто-нибудь помочь с написанием программы для шифровки любого текста в код...

Реализовать в коде (кодировка ASCII) шифр АТБАШ, через mod (остаток от деления)
Program 1; var i:integer; text:string; begin writeLn('Введиет текст:'); readLn(text); for...

Шифр Цезаря для казахского языка
Здравствуйте уважаемые!нужна помощь.нужно шифровать и дешифровать по методу цезаря на казахском...

Шифр Цезаря рамки для алфавита
Как сделать "рамки" для программы что бы она не выходила из алфавита заглавных букв ASC2(65-90)? ...

Как использовать шифр Цезаря
const n = 3; function CaesarEncipher(toCode: string): string; var i, T: integer; begin ...

Шифр Цезаря со сдвигом на 1 символ для русского текста
Дан файл содержащий зашифрованный русский текст. Каждая буква замененна на следующую за ней....

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх