Сильная проблема с исходником

[xRamzeSx]

Привет всем, у меня такая проблема. Написал прогу для шифрования текста, шифровать шифрует, но никак не могу найти обратный процесс. Вот исходник функции и кнопки:

function Transliterate(s: string): string;
var
i: integer;
t: string;
begin
for i:=1 to Length(s) do
begin
case s[i] of
'а': t:=t+'000000 ';
...
'9': t:=t+'1110 ';
else t:=t+s[i];
end;
end;
Result:=t;
end;

procedure TAboutBox3.Button5Click(Sender: TObject);
var
i: integer;
begin
Memo2.Lines.Clear;
for i:=0 to Memo1.Lines.Count-1 do
Memo2.Lines.Add(Transliterate(Memo1 .Lines.Strings[i]));
end;

Кто знает, как написать обратную функцию. Т.е из цифр в буквы...

Или стоит поменять саму функцию вообще???

[Chudo4258]

обратно расшифровать тут врятли получится, ты шифруй например 4-х разрядними числами 0000 0001 ...., или другими, тогда и расшифровку будет сделать легко.

[MadReason]

можно и тут сделать расшифровку в принципе, только начинать ее придется с конца строки. зависит от того чем заменяешь. если там повторных вхождений шифров в друг друга нет, то все норм, иначе придумывать какой-то алгоритм с приоритетами

[xRamzeSx]

Повтров нет, я весь нет облазил, немогу найти простую функцию, иожет кто знает, как и что писать нужно???

[xRamzeSx]

Повтров нет, я весь нет облазил, немогу найти простую функцию, может кто знает, как и что писать нужно???

[xRamzeSx]

Повтров нет, я весь нет облазил, немогу найти простую функцию, может кто знает, как и что писать нужно???

[IT-man]

Для того чтобы расшифровать текст зашифрованный твоей функцией нужно группы означающие один символ разделялись чем либо ну а в том виде который ты предложил расшифровать не возможно.так что стоит задуматься о другом способе шифрования.

[Chudo4258]

Сообщение от MadReason

можно и тут сделать расшифровку в принципе, только начинать ее придется с конца строки. зависит от того чем заменяешь. если там повторных вхождений шифров в друг друга нет, то все норм, иначе придумывать какой-то алгоритм с приоритетами

И как тут расшифровать??? Допустим
"а"=0101
"с"=10101
и как тут, хоть с конца начинай, хоть с начала, все равно ничего не получится.

[IT-man]

Ну почему? словарик побольше и перебором. лет за 5-10 глядишь че нить расшифрует коротенькое

[xRamzeSx]

Всё что я хочу, чтобы программа шифровала и расшифровывала сплошным текстом. Сейчас она только шифрует, но не расшифровывает. Можно использовать какую-нибудь другую функцию???