Как зашифровать предложение программно

The_Fall · Регистрация: 25.03.2011

Дано предложение. Нужно зашифровать его так, к примеру: Дано предложение "QQQWWWEEEeeeQQQwww" зашифровать его следующим методом "wwwQQQeeeEEEWWWQQQ", т.е. 3 первые буквы с 3 последними буквами и т.д.

The_Fall · 28.03.2011, 23:58

Цитата:

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

Дано предложение. Нужно зашифровать его так, к примеру: Дано предложение "QQQWWWEEEeeeQQQwww" зашифровать его следующим методом "wwwQQQeeeEEEWWWQQQ", т.е. 3 первые буквы с 3 последними буквами и т.д.

VBA!!!!!И только...

The_Fall · 29.03.2011, 00:11

Ну, кто нибудь... помогите...Я уже выдохся...

IL_Agent · 29.03.2011, 00:27

Развернуть строку что ли ?

The_Fall · 29.03.2011, 00:36

Дано предложение ЦЦУУККЕЕННII нужно сделать так НIIЕЕНУККЦЦУ

The_Fall · 29.03.2011, 00:40

Я уже не могу... из-за этой задачи давление поднялось...

SAS888 · 29.03.2011, 06:32

Вот весь код:

Код:

Sub Main()
    Dim s As String, i As Integer
    s = "ЦЦУУККЕЕННII": s = StrReverse(s)
    For i = 1 To Len(s) Step 3: Mid(s, i, 3) = StrReverse(Mid(s, i, 3)): Next
    MsgBox s
End Sub

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Хорошее предложение!	Vex	Продам	0	12.07.2010 02:14
Как зашифровать решетку Кардано с поворотом на 90 градусов	Apissinka	Java	2	07.06.2010 21:12
Побитово зашифровать и сохранить файл	256zib	.NET	6	09.12.2009 13:32
Зашифровать содержимое диска	IL_Agent	Мысли вслух	8	11.08.2009 13:01
Предложение о работе	redcube	Работа	0	09.10.2007 15:25
Есть предложение	Rodracer	Общетематический	20	14.04.2007 18:38
Интересное предложение!	imported_Marusja	Работа	3	05.06.2006 12:12
Предложение на объединение программистов	Lexi	Вопросы начинающих программистов	9	20.03.2005 12:16
Предложение от Sayma,Ltd.	Anonymous	Работа	0	11.05.2004 20:09
Есть предложение!Ё	SH@DOW	Офтопик	25	06.03.2003 20:17
коммерческое предложение	Anonymous	Работа	0	06.02.2003 14:22

The_Fall Member Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 25.03.2011	29.03.2011, 00:11 Ну, кто нибудь... помогите...Я уже выдохся...

IL_Agent Member Сообщений: 2,016 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 03.07.2005	29.03.2011, 00:27 Развернуть строку что ли ?

The_Fall Member Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 25.03.2011	29.03.2011, 00:36 Дано предложение ЦЦУУККЕЕННII нужно сделать так НIIЕЕНУККЦЦУ

The_Fall Member Сообщений: 18 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 25.03.2011	29.03.2011, 00:40 Я уже не могу... из-за этой задачи давление поднялось...

SAS888 Member Сообщений: 74 Сказал(а) спасибо: 0 Поблагодарили 5 раз(а) в 4 сообщениях Регистрация: 16.10.2008	29.03.2011, 06:32 Вот весь код: Код: Sub Main() Dim s As String, i As Integer s = "ЦЦУУККЕЕННII": s = StrReverse(s) For i = 1 To Len(s) Step 3: Mid(s, i, 3) = StrReverse(Mid(s, i, 3)): Next MsgBox s End Sub

Ads