Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

помогите написать шифровальщик   Найти похожие ветки 

 
Joker   (2004-08-25 23:08) [0]

кто знает как написать прогу шифровальщик, допустим я ввожу букву, а прога заменяет ее на 3 по счету.
пример
вводится буква А, прога вместо нее пишет В,
ввотится У, прога шифрует на Х и т.д.


 
Vasya.ru   (2004-08-25 23:12) [1]

тебе код или алгоритм нужен?


 
Palladin ©   (2004-08-25 23:15) [2]



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;


 
Palladin ©   (2004-08-25 23:16) [3]


> Vasya.ru   (25.08.04 23:12) [1]

Алгоритм он уже сам написал...


 
lipskiy ©   (2004-08-25 23:28) [4]

А нафига писать, если все уже написано?
http://delphibase.endimus.com/?action=viewtopic&topic=strcode



Страницы: 1 вся ветка

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
3-1092641231
Ted
2004-08-16 11:27
2004.09.12
самая отказоустойчивая сетевая база


14-1093409583
dimon_programmer
2004-08-25 08:53
2004.09.12
Правила игры в шашки


1-1093847121
samumka
2004-08-30 10:25
2004.09.12
Функция InputBox()


1-1093787398
Thomas Brandon
2004-08-29 17:49
2004.09.12
Вертикальный текст в popup меню.


10-1016000720
GenBr
2002-03-13 09:25
2004.09.12
Передача интерфейса