Кто работает в Делфи, помогите!!!

Доброго времени суток.

И в чем проблема? Делаете таблицу пеерекодировки.

const arrCyrToLat : array['а'..'я'] of Char = ('f','z', и т. д.

А потом получаете текст в строку S и перекодируете его

for i:=1 to Length(S) do S[ i ] := arrCyrToLat[S[ i ]];

Ессно, такое сработает только для нижнего регистра. Как сделать поддержку верхнего подумайте сами.

Таблицу перекодировки можно делать любую. Главное, чтобы она обеспечивала однозначное соответствие символов для обеспечения возможности обратной перекодировки.

Если нужно шифрование, то вот вариант.

var
Key, S, tmpS : String;
j : Word;

begin
Write('Enter phrase: ');
ReadLn(S);
Write('Enter key for encrypting: ');
ReadLn(Key);
tmpS := '';
for j:=0 to Length(S)-1 do
tmpS := tmpS + Chr(Byte(S[j+1]) xor Byte(Key[(j mod Length(Key))+1]));

S := tmpS;
WriteLn(S);

Write('Enter key for decrypting: ');
ReadLn(Key);

tmpS := '';
for j:=0 to Length(S)-1 do
tmpS := tmpS + Chr(Byte(S[j+1]) xor Byte(Key[(j mod Length(Key))+1]));

WriteLn(tmpS);

ReadLn;
end.

Здесь сначала вводится фраза, а затем ключ шифра. После шифровки выводится результат и повторно вводится ключ. Если он совпадет с введенным при шифровке, фраза будет расшифрована. Если нет, то увы.. .

Удачи!

Транслит - это не шифрование.
Я скинул тебе на почту програмку, реализующую шифрование и расшифрование. Используется "шифр Цезаря". Надеюсь, что разберешься. Сам когда-то её писал.