Помогите определить язык

[kunsaid]

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

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

[Вадим Мошев]

Больше всего на VBA (Visual Basic for Application) похоже

[kunsaid]

Спасибо! Тогда еще один вопрос, а случайно конвертера из VBA в C# не встречали? Может где-нибудь завалялся на просторах сети? Я много нашел конвертеров из VB.NET в C#, а вот VBA почему то нету((( может его и правда не существует....

[Вадим Мошев]

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

а случайно конвертера из VBA в C# не встречали?

Нет. Но вы можете заказать платный перевод на форуме. Свои услуги не предлагаю

[kunsaid]

Спасибо за информацию! Буду иметь ввиду.