Генерация слова по заданному алгоритму

@artem0228 · Регистрация: 09.03.2015

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

Помогите пожалуйста. Нужно сгенерировать слово
https://www.cyberforum.ru/atta... 1427303953
Длина слова - 7 символов. Шестой и седьмой - это цифры и они переносятся прямо в слово без изменений.
Второй символ игнорируется. Сначала генерируется первая часть слова из первого и третьего символа. Например:
aa = 40 , de - 74 и т.д. Потом 4 символ (Например :a - 0 , y - 18) аналогично с 5 символом.
Для наглядности: dtfgq44 -> 75061044
И также сделать обратную генерацию

Обязательно, чтобы писало 01 , 02 и т.д., а не 1 , 2
Всё к чему я додумался, так это всё записывать через Select Case

@artem0228 · 25.03.2015, 20:45 **[ТС]**

Я пишу VisualStudio 2010 на VB.NET

@Alex77755 · 25.03.2015, 20:56

И также сделать обратную генерацию

А второй символ откуда брать?

Добавлено через 6 минут

через Select Case

Цифры в массив. Обращаться по номеру строки-столбца
Номер буквы = Instr из строки

@artem0228 · 25.03.2015, 21:00 **[ТС]**

Сообщение от Alex77755

Зачем тогда постишь в VBA?

тему перенесли уже, Памирыч не разобрался и кинул с VB.NET на VBA. Уже обратно перенёс

Сообщение от Alex77755

А второй символ откуда брать?

Протупил, щас узнаю насчёт этого

@Alex77755 · 25.03.2015, 21:01

При обрагной генерации 51 = bb, rb, ar, qr

@artem0228 · 25.03.2015, 21:12 **[ТС]**

Сообщение от Alex77755

При обрагной генерации 51 = bb, rb, ar, qr

Мне сказали, что бы я не мучался с генерацией слова обратно, потому что ещё ни у кого не получилось обратно слово получить

Добавлено через 3 минуты

Сообщение от Alex77755

Цифры в массив. Обращаться по номеру строки-столбца
Номер буквы = Instr из строки

Чесно, я ничего не понял.

@Alex77755 · 25.03.2015, 21:15

А откуда цифры взяты и алгоритм генерации?

Добавлено через 2 минуты
Для обратной генерации цифры в матрице не должны повторяться

@artem0228 · 25.03.2015, 21:17 **[ТС]**

Сообщение от Alex77755

откуда цифры взяты и алгоритм генерации?

Умельцы написали такую таблицу

Генерация кода для игры. У каждого предмета есть свой персональный код (dtfgq44), а для клиента игры его нужно сгенерировать в кодировку какую только он понимает (75061044), чтобы клиент понимал какой предмет это.

Добавлено через 2 минуты

Сообщение от Alex77755

Для обратной генерации цифры в матрице не должны повторяться

Обратную генерацию уже не надо, мне сказали - это не реально, т.к. теряется 1 буква.

@Alex77755 · 26.03.2015, 09:46

Ну можно и без массивов и без Select Case

VB.NET
1
2
3
4
5
6
7
8
9
10
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(SLOVO("dtfgq44"), 64, "dtfgq44")
    End Sub
 
    Function SLOVO(ByVal S As String)
        SLOVO = Hex(16 * ((Asc(Strings.Left(S, 1)) - 93) Mod 16) + Asc(Mid(S, 3, 1)) - 97) _
       & Format(Val((Hex(Asc(Strings.Mid(S, 4, 1)) - 97).ToString)), "00") _
       & Format(Val((Hex(Asc(Strings.Mid(S, 5, 1)) - 97).ToString)), "00") _
       & Mid(S, 6)
    End Function

Добавлено через 1 минуту
Там, наверняка, много лишнего. В NET совсем слабо
В VB6 так

Visual Basic
1
2
3
4
5
6
Function SLOVO(S)
     SLOVO = Hex(16 * ((Asc(Left(S, 1)) - 93) Mod 16) + Asc(Mid(S, 3, 1)) - 97) _
    & Format(Hex(Asc(Mid(S, 4, 1)) - 97), "00") _
    & Format(Hex(Asc(Mid(S, 5, 1)) - 97), "00") _
    & Mid(S, 6)
End Function

Добавлено через 9 часов 49 минут
Небольшая поправка. Первая составляющая должна быть такой

VB.NET
1
Hex((16 * ((Asc(Left(S, 1)) - 93) Mod 16) + Asc(Mid(S, 3, 1)) - 97) Mod 256)

@artem0228 · 26.03.2015, 17:11 **[ТС]**

Теперь бы разобраться в этом коде и как он работает

В первые вижу, что такое Asc\Mid\Format. Val - я так понял это значение. Буду опять листать литературу

@Alex77755 · 26.03.2015, 17:16

Краткие описания основных функций и команд VB

Добавлено через 3 минуты
Просто в NET они немного не так вызываются
Left или полностью VBA.Lef в NET вызывается Strings.Left

@artem0228 · 27.03.2015, 20:00 **[ТС]**

Сообщение от Alex77755

VB.NET
1
2
3
4
5
6
7
8
9
10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(SLOVO("unbu008"), 64, "unbu008")
    End Sub
 
    Function SLOVO(ByVal S As String)
        SLOVO = Hex((16 * ((Asc(Strings.Left(S, 1)) - 93) Mod 16) + Asc(Mid(S, 3, 1)) - 97) Mod 256) _
       & Format(Val((Hex(Asc(Strings.Mid(S, 4, 1)) - 97).ToString)), "00") _
       & Format(Val((Hex(Asc(Strings.Mid(S, 5, 1)) - 97).ToString)), "00") _
       & Mid(S, 6)
    End Function

Просто офигеть. КАК вы до этого додумались? Что мне нужно читать, чтобы понять почему вы делили на 16 и 256, при этом оставляли остаток который умножали на 16, и отнимали 93 и 97

Добавлено через 34 минуты
Но иногда есть неточности, например iudcm05 - C3020C05, а пишет C3020005 (просто вместо С ставит ноль). Также вместо unbu001 - 81140100,а пишет 81140001. Но с этим я хочу попробовать сам разобраться, видать где-то неточность есть в подсчётах.

@Alex77755 · 27.03.2015, 22:00

не получилося

@Alex77755 · 27.03.2015, 22:02

Что-то н...

@artem0228 · 28.03.2015, 20:05 **[ТС]**

Добавлено через 33 минуты
Alex77755,Можно ли более компактно код сделать этот?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Test(TextBox1.Text)
        TextBox2.Text = Test(TextBox1.Text)
 
    End Sub
 
    Public Function Test(ByVal T As String)
 
        Select Case (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva1 = "0" & (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
            Case Else
                bykva1 = (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
        End Select
 
        Select Case Hex(Asc(Strings.Mid(T, 4, 1)) - 97)
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva4 = "0" & Hex(Asc(Strings.Mid(T, 4, 1)) - 97)
            Case Else
                bykva4 = Hex(Asc(Strings.Mid(T, 4, 1)) - 97)
        End Select
        znach(9) = Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
        Select Case Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva5 = "0" & Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
            Case Else
                bykva5 = Hex(Asc(Strings.Mid(T, 5, 1)) - 97)
        End Select
 
        znach(11) = Mid(T, 6)
 
        If IsNumeric(Strings.Mid(T, 3, 1)) = True And IsNumeric(Strings.Mid(T, 4, 1)) = True And IsNumeric(Strings.Mid(T, 5, 1)) = True Then
            If 9 < Mid(T, 6) And Mid(T, 6) < 20 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 6
            ElseIf 19 < Mid(T, 6) And Mid(T, 6) < 30 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 12
            ElseIf 29 < Mid(T, 6) And Mid(T, 6) < 40 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 18
            ElseIf 39 < Mid(T, 6) And Mid(T, 6) < 50 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 24
            ElseIf 49 < Mid(T, 6) And Mid(T, 6) < 60 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 30
            ElseIf 59 < Mid(T, 6) And Mid(T, 6) < 70 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 36
            ElseIf 69 < Mid(T, 6) And Mid(T, 6) < 80 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 42
            ElseIf 79 < Mid(T, 6) And Mid(T, 6) < 90 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 48
            ElseIf 89 < Mid(T, 6) And Mid(T, 6) < 100 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 54
            Else
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6)
            End If
 
            cifra(7) = cifra(6) Mod 256
            znach(3) = Hex(cifra(7))
 
            Select Case znach(3)
                Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                    znach(3) = "0" & znach(3)
                Case Else
                    znach(3) = znach(3)
            End Select
            Test = (znach(3) & "00" & "00" & "00")
        ElseIf IsNumeric(Strings.Mid(T, 5, 1)) = True And IsNumeric(Strings.Mid(T, 4, 1)) = True Then
            Test = bykva1 & Mid(T, 6) & "00" & "00"
        ElseIf IsNumeric(Strings.Mid(T, 5, 1)) = True Then
            Test = bykva1 & bykva4 & Mid(T, 6) & "00"
        ElseIf IsNumeric(Strings.Mid(T, 4, 1)) = True Then
            Test = bykva1 & bykva5 & Mid(T, 6) & "00"
        Else
            Test = bykva1 & bykva4 & bykva5 & Mid(T, 6)
        End If
 
    End Function

@Alex77755 · 29.03.2015, 08:27

Ага

VB.NET
1
2
3
4
5
6
    Function SLOVO(ByVal S As String)
        SLOVO = Format(Val(Hex((16 * ((Asc(Strings.Left(S, 1)) - 93) Mod 16) + Asc(Mid(S, 3, 1)) - 97) Mod 256)), "00") _
       & Format(Val((Hex(Asc(Strings.Mid(S, 4, 1)) - 97).ToString)), "00") _
       & Format(Val((Hex(Asc(Strings.Mid(S, 5, 1)) - 97).ToString)), "00") _
       & Mid(S, 6)
    End Function

@artem0228 · 29.03.2015, 14:33 **[ТС]**

Alex77755, Не подходит. Мне нужно ещё исключения. Если третий символ цифра, то обрабатывать нужно 1 и 4 символы, а 3 пропускать и т.д.

@Alex77755 · 29.03.2015, 16:11

Если третий символ цифра

Этого не было в вопросе.
как говорил герой фильма: огласите, пожалуйста, весь список

и т.д.

@artem0228 · 29.03.2015, 22:58 **[ТС]**

Alex77755, извините, моя ошибка. Внутри екселя всё описано. https://www.cyberforum.ru/atta... 1427658554. Сервер код - это символы по краям таблицы. Клиент код - это мы его генерируем=)
Код описания на него не надо обращать внимания.
Лучше всего, что бы вы подсказали как сделать компактнее код, а не написали всё готовое, так не интересно просто. Мне же нужно учится

Ну а если напишите, то не обижусь.

P.S. чтобы не плодить темы. Как вызвать окно игры, чтобы там что-то написать. Мне нужно Открыть\активировать(хз как сказать) окно игры -> нажать клавишу "У" -> что-то печатать в игре. Что нужно учить? А то в учебника не видел ничего похожего.

@Alex77755 · 30.03.2015, 11:08

Я уже дважды показал как сделать код компактнее
Блок:

Visual Basic
1
2
3
4
5
6
        Select Case (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
                bykva1 = "0" & (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
            Case Else
                bykva1 = (Hex((16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Asc(Mid(T, 3, 1)) - 97) Mod 256))
        End Select

равносилен блоку:

Visual Basic
1
bykva1 =  Format(Val(Hex((16 * ((Asc(Strings.Left(S, 1)) - 93) Mod 16) + Asc(Mid(S, 3, 1)) - 97) Mod 256)), "00")

Аналогично и с bykva4 и bykva5
Я уже не говорю, что десяеиэтажный блок If-ов

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
            If 9 < Mid(T, 6) And Mid(T, 6) < 20 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 6
            ElseIf 19 < Mid(T, 6) And Mid(T, 6) < 30 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 12
            ElseIf 29 < Mid(T, 6) And Mid(T, 6) < 40 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 18
            ElseIf 39 < Mid(T, 6) And Mid(T, 6) < 50 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 24
            ElseIf 49 < Mid(T, 6) And Mid(T, 6) < 60 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 30
            ElseIf 59 < Mid(T, 6) And Mid(T, 6) < 70 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 36
            ElseIf 69 < Mid(T, 6) And Mid(T, 6) < 80 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 42
            ElseIf 79 < Mid(T, 6) And Mid(T, 6) < 90 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 48
            ElseIf 89 < Mid(T, 6) And Mid(T, 6) < 100 Then
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 54
            Else
                cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6)
            End If

Вполне заменимо одной строчкой

Visual Basic
1
 cifra(6) = 16 * (Asc(Strings.Left(T, 1)) - 93 Mod 16) + Mid(T, 6) + 6 * (Val(Mid(T, 6)) \ 10)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

Генерация слова по заданному алгоритму

Решение

Решение

@artem0228 5 / 5 / 1 Регистрация: 09.03.2015 Сообщений: 66

	Генерация слова по заданному алгоритму 25.03.2015, 20:36. Показов 2202. Ответов 19 Метки нет (Все метки) Помогите пожалуйста. Нужно сгенерировать слово https://www.cyberforum.ru/atta... 1427303953 Длина слова - 7 символов. Шестой и седьмой - это цифры и они переносятся прямо в слово без изменений. Второй символ игнорируется. Сначала генерируется первая часть слова из первого и третьего символа. Например: aa = 40 , de - 74 и т.д. Потом 4 символ (Например :a - 0 , y - 18) аналогично с 5 символом. Для наглядности: dtfgq44 -> 75061044 И также сделать обратную генерацию Обязательно, чтобы писало 01 , 02 и т.д., а не 1 , 2 Всё к чему я додумался, так это всё записывать через Select Case Миниатюры 0

@artem0228 5 / 5 / 1 Регистрация: 09.03.2015 Сообщений: 66
	25.03.2015, 20:45 [ТС]
	Я пишу VisualStudio 2010 на VB.NET 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.03.2015, 21:01
	При обрагной генерации 51 = bb, rb, ar, qr 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	25.03.2015, 21:15
	А откуда цифры взяты и алгоритм генерации? Добавлено через 2 минуты Для обратной генерации цифры в матрице не должны повторяться 0

@artem0228 5 / 5 / 1 Регистрация: 09.03.2015 Сообщений: 66
	26.03.2015, 17:11 [ТС]
	Теперь бы разобраться в этом коде и как он работает В первые вижу, что такое Asc\Mid\Format. Val - я так понял это значение. Буду опять листать литературу 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	26.03.2015, 17:16
	Краткие описания основных функций и команд VB Добавлено через 3 минуты Просто в NET они немного не так вызываются Left или полностью VBA.Lef в NET вызывается Strings.Left 1

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	27.03.2015, 22:00
	не получилося 1

@artem0228 5 / 5 / 1 Регистрация: 09.03.2015 Сообщений: 66
	29.03.2015, 14:33 [ТС]
	Alex77755, Не подходит. Мне нужно ещё исключения. Если третий символ цифра, то обрабатывать нужно 1 и 4 символы, а 3 пропускать и т.д. 0

@artem0228 5 / 5 / 1 Регистрация: 09.03.2015 Сообщений: 66
	29.03.2015, 22:58 [ТС]
	Alex77755, извините, моя ошибка. Внутри екселя всё описано. https://www.cyberforum.ru/atta... 1427658554. Сервер код - это символы по краям таблицы. Клиент код - это мы его генерируем=) Код описания на него не надо обращать внимания. Лучше всего, что бы вы подсказали как сделать компактнее код, а не написали всё готовое, так не интересно просто. Мне же нужно учится Ну а если напишите, то не обижусь. P.S. чтобы не плодить темы. Как вызвать окно игры, чтобы там что-то написать. Мне нужно Открыть\активировать(хз как сказать) окно игры -> нажать клавишу "У" -> что-то печатать в игре. Что нужно учить? А то в учебника не видел ничего похожего. 0