ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Лозунговый шифр
9 сообщений из 9, страница 1 из 1
Лозунговый шифр
    #36558573
Svikator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svikator
Гость
Необходимо написать программу , которая выводит лозунговый шифр по алфавиту.Лозунг моей фамилии.
от: pazitive
лозунг: orlov
алфавит: a b c d e f g h i j k l m n o p q r s t u v w x y z
алф. сл: o r l v a b c d e f g h i j k m n p q s t u w x y z
шифр: mozeseua
...
Рейтинг: 0 / 0
02.04.2010, 18:21
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36558589
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
Программа должна быть на FoxPro?
...
Рейтинг: 0 / 0
02.04.2010, 18:29
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36558838
Svikator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svikator
Гость
Sergey Ch,
Да на foxpro
...
Рейтинг: 0 / 0
02.04.2010, 21:55
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36558985
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
SvikatorНеобходимо написать программу , которая выводит лозунговый шифр по алфавиту.Лозунг моей фамилии.
от: pazitive
лозунг: orlov
алфавит: a b c d e f g h i j k l m n o p q r s t u v w x y z
алф. сл: o r l v a b c d e f g h i j k m n p q s t u w x y z
шифр: mozeseua

Сэр, вы этим вопросом насчет изготовления лозунгов уже все форумы завалили. Ответ такой, берется большой кусок тонкого картона, где вырезаются бритвочкой буквы, затем кусочек поролона и подходящую баночку краски (вероятно, красного цвета), макаем поролон в краску и наносим через картонный шаблон на конечный материал. Получается ваша любимая надпись "Хай живе... да здравствует... и т.д.".
...
Рейтинг: 0 / 0
03.04.2010, 01:24
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36559055
Svikator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Svikator
Гость
Мне кажется что я данную тему создал для того чтобы кто нибудь мог помочь, а не для советов вроде возьми листок бумаги или там кусок картона.
...
Рейтинг: 0 / 0
03.04.2010, 09:38
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36559108
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
SvikatorМне кажется что я данную тему создал для того чтобы кто нибудь мог помочь, а не для советов вроде возьми листок бумаги или там кусок картона.Помочь в чем? Помочь или написать за Вас? Что Вы сделали и что у Вас не получается?
...
Рейтинг: 0 / 0
03.04.2010, 11:36
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36559305
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Svikator,

во-первых, есть тэг FIXED(ну или SRC)
во-вторых, я(и, думаю, не только я) ничего не понял, ибо вы вышеназванным(и) тегом(ами) не воспользовались
в-третьих, может, вам хватит и CHRTRAN()?
...
Рейтинг: 0 / 0
03.04.2010, 18:16
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36559600
Solow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Solow
Гость
Код: plaintext
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.
SET talk off
CLEAR

PUBLIC alfavit
alfavit='abcdefghijklmnopqrstuvwxyz'
? 'alfavit = ' + alfavit
? '------'

PUBLIC lozung
lozung='orlov'
? 'lozung = ' + lozung
? '------'

PUBLIC zamena
zamena=chrTRAN(alfavit,lozung,REPLICATE(' ',LEN(lozung)))
zamena=STRTRAN(zamena,' ','')
? 'zamena = ' + zamena
? '------'

FOR i= 1  TO LEN(lozung)
lozung=STRTRAN(lozung,SUBSTR(lozung,i, 1 ),'', 2 )
ENDFOR
? 'lozung = ' + lozung 
? '------'

zamena = lozung+zamena
? 'zamena = ' + zamena
? 'len(zamena)= ',LEN(zamena)
? '------'


PUBLIC shifr
shifr = 'mozeseua'
shifr = chrTRAN(shifr,zamena,alfavit)
? 'shifr = ' + shifr
? '------'

shifr = chrTRAN(shifr,alfavit,zamena)
? 'shifr = ' + shifr
? '------'
...
Рейтинг: 0 / 0
04.04.2010, 03:20
| Ответить | Цитировать | Написать  
Лозунговый шифр
    #36559672
DorDG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DorDG
Гость
На самом деле врят ли стоит сегодня использовать такой простой шифр
Надежнее или одноразовый блокнот Видженера, или одноразовая лента.

Хотя лично мое мнение, что мысль она не материальна и следовательно
какой бы пароль вы или устройство не придумает, его сразу же знает
весь тонкий мир... и ваш пароль лишь илюзия того, что вы чтото спрятали
...
Рейтинг: 0 / 0
04.04.2010, 11:37
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Лозунговый шифр
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=102&tid=1585440]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 347ms
total:  478ms
созд. / загр.: 478ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]