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

← →
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]

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

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

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