| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
помогите написать шифровальщик [D6]
Joker © (2004-08-25 23:08:00)кто знает как написать прогу шифровальщик, допустим я ввожу букву, а прога заменяет ее на 3 по счету.
пример
вводится буква А, прога вместо нее пишет В,
ввотится У, прога шифрует на Х и т.д.
lipskiy (2004-08-25 23:28:00) [1]А нафига писать, если все уже написано?
http://delphibase.endimus.com/?action=viewtopic&topic=strcode
Palladin (2004-08-25 23:16:00) [2]
> Vasya.ru (25.08.04 23:12) [1]
Алгоритм он уже сам написал...
Palladin (2004-08-25 23:15:00) [3]
Const
SuperKey='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯАБабвгдеёжзийклмнопрстуфхцчшщьыъэюяаб';
Function SuperEncode(Const S:String):String;
Var
I:Integer;
Begin
SetLength(Result,Length(S));
For I:=1 To Length(S) Do Result[I]=SuperKey[Pos(S[I],SuperKey)+2];
End;
Vasya.ru (2004-08-25 23:12:00) [4]тебе код или алгоритм нужен?
| |
