Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 08.12.2018, 21:14   #1
kunsaid
Новичок
 
Регистрация: 08.12.2018
Сообщений: 2
Репутация: 10
По умолчанию Помогите определить язык

Здравствуйте уважаемы форумчане. Помогите пожалуйста определить язык на котором это написано
Код:

If TextBox1.Text = "" Then
MsgBox("Введите текст!")
Exit Sub
Else
TextIn = TextBox1.Text
End If
Num = TextBox2.Text
If Not IsNumeric(Num) Then
MsgBox("Ключ должен быть целым числом!")
Exit Sub
Else
If Num <> CInt(Num) Then
MsgBox("Ключ должен быть ЦЕЛЫМ числом!")
Exit Sub
End If
End If
Key = TextBox2.Text
Length = Len(TextIn)
N = Len(Key)
Num = 0
If Length <= N Then
N2 = 1
N = Length
Else
N2 = Int(Length / N)
Num = Length Mod N
End If
TextOut = ""
For i = 1 To N2
For j = 1 To N
If (Asc(Mid(TextIn, i * N - N + j, 1)) + Mid(Key, j, 1)) > 255 Then
TextOut = TextOut + Chr(((Asc(Mid(TextIn, i * N - N + j, 1)) + Mid(Key, j, 1)) Mod 255) + 31)
Else
TextOut = TextOut + Chr(Asc(Mid(TextIn, i * N - N + j, 1)) + Mid(Key, j, 1))
End If
Next
Next
If Num > 0 Then
For i = 1 To Num
If (Asc(Mid(TextIn, N2 * N + i, 1)) + Mid(Key, i, 1)) > 255 Then
TextOut = TextOut + Chr(((Asc(Mid(TextIn, N2 * N + i, 1)) + Mid(Key, i, 1)) Mod 255) + 31)
Else
TextOut = TextOut + Chr(Asc(Mid(TextIn, N2 * N + i, 1)) + Mid(Key, i, 1))
End If
Next
End If
TextBox3.Text = TextOut

kunsaid вне форума   Ответить с цитированием
Старый 08.12.2018, 21:27   #2
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 7,780
Репутация: 3777
По умолчанию

Больше всего на VBA (Visual Basic for Application) похоже
Вадим Мошев на форуме   Ответить с цитированием
Старый 08.12.2018, 21:37   #3
kunsaid
Новичок
 
Регистрация: 08.12.2018
Сообщений: 2
Репутация: 10
По умолчанию

Спасибо! Тогда еще один вопрос, а случайно конвертера из VBA в C# не встречали? Может где-нибудь завалялся на просторах сети? Я много нашел конвертеров из VB.NET в C#, а вот VBA почему то нету((( может его и правда не существует....
kunsaid вне форума   Ответить с цитированием
Старый 08.12.2018, 22:55   #4
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 7,780
Репутация: 3777
По умолчанию

Цитата:
Сообщение от kunsaid Посмотреть сообщение
а случайно конвертера из VBA в C# не встречали?
Нет. Но вы можете заказать платный перевод на форуме. Свои услуги не предлагаю
Вадим Мошев на форуме   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста определить язык программирования. Как открыть Артур2308 Помощь студентам 8 11.09.2015 19:19
Определить язык программирования Nozd Помощь студентам 5 03.04.2013 18:12
Не могу определить язык программирования lockerzfan Помощь студентам 8 24.06.2011 13:23
Определить язык программирования Nemez Свободное общение 1 03.03.2010 13:56
как определить язык прогроммирования? ghostil Помощь студентам 22 28.06.2009 22:36


15:56.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru