Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Как зашифровать предложение программно
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
The_Fall The_Fall вне форума
Member
 
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.03.2011
Exclamation Как зашифровать предложение программно - 28.03.2011, 23:25

Дано предложение. Нужно зашифровать его так, к примеру: Дано предложение "QQQWWWEEEeeeQQQwww" зашифровать его следующим методом "wwwQQQeeeEEEWWWQQQ", т.е. 3 первые буквы с 3 последними буквами и т.д.
Ответить с цитированием
  (#2 (permalink)) Старый
The_Fall The_Fall вне форума
Member
 
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.03.2011
По умолчанию 28.03.2011, 23:58

Цитата:
Сообщение от The_Fall Посмотреть сообщение
Дано предложение. Нужно зашифровать его так, к примеру: Дано предложение "QQQWWWEEEeeeQQQwww" зашифровать его следующим методом "wwwQQQeeeEEEWWWQQQ", т.е. 3 первые буквы с 3 последними буквами и т.д.
VBA!!!!!И только...
Ответить с цитированием
  (#3 (permalink)) Старый
The_Fall The_Fall вне форума
Member
 
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.03.2011
По умолчанию 29.03.2011, 00:11

Ну, кто нибудь... помогите...Я уже выдохся...
Ответить с цитированием
  (#4 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,016
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 29.03.2011, 00:27

Развернуть строку что ли ?
Ответить с цитированием
  (#5 (permalink)) Старый
The_Fall The_Fall вне форума
Member
 
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.03.2011
По умолчанию 29.03.2011, 00:36

Дано предложение ЦЦУУККЕЕННII нужно сделать так НIIЕЕНУККЦЦУ
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
The_Fall The_Fall вне форума
Member
 
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 25.03.2011
По умолчанию 29.03.2011, 00:40

Я уже не могу... из-за этой задачи давление поднялось...
Ответить с цитированием
  (#7 (permalink)) Старый
SAS888 SAS888 вне форума
Member
 
Аватар для SAS888
 
Сообщений: 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
Ответ

Опции темы
Опции просмотра

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Хорошее предложение! 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



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов