Шифрование и расшифрование текста

[Ирина112]

Есть программный код который шифрует текст, нужно чтобы программа его расшифровала.

//код шифровки
var i,j,x1,x4:Integer;
x:array[1..33] of string;
xi:string;
begin
begin
x[1]:='А';
x[2]:='Б';
x[3]:='В';
x[4]:='Г';
x[5]:='Д';
x[6]:='Е';
x[7]:='Ё';
x[8]:='Ж';
x[9]:='З';
x[10]:='И';
x[11]:='Й';
x[12]:='К';
x[13]:='Л';
x[14]:='М';
x[15]:='Н';
x[16]:='О';
x[17]:='П';
x[18]:='Р';
x[19]:='С';
x[20]:='Т';
x[21]:='У';
x[22]:='Ф';
x[23]:='Х';
x[24]:='Ц';
x[25]:='Ч';
x[26]:='Ш';
x[27]:='Щ';
x[28]:='Ъ';
x[29]:='Ы';
x[30]:='Ь';
x[31]:='Э';
x[32]:='Ю';
x[33]:='Я';
x1:=random(33)+1;
xi:=x[x1];
end;
edit2.text:='';
begin
j:=strtoint(edit3.Text);
if length(edit1.Text) mod j<>0 then edit1.Text:=edit1.Text+xi else
end;
begin
 for i := 0 to length(edit1.Text) do
 begin
 if i mod j=0 then
 edit2.Text:=edit2.Text+edit1.Text[i] else
 end;
 for i := 0 to length(edit1.Text) do
 BEGIN
 if i mod j=j-1 then
 edit2.Text:=edit2.Text+edit1.Text[i] else
 end;
for i := 0 to length(edit1.Text) do
BEGIN
if i mod j=j-2 then
edit2.Text:=edit2.Text+edit1.Text[i] else
 end;
 for i := 0 to length(edit1.Text) do
 BEGIN
if i mod j=j-3 then
 edit2.Text:=edit2.Text+edit1.Text[i] else
end;
for i := 0 to length(edit1.Text) do
BEGIN
 if i mod j=j-4 then
 edit2.Text:=edit2.Text+edit1.Text[i];
end;
 begin
edit2.Text:= copy(edit2.Text,1,Length(Edit1.Text));
 end;
end;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[evg_m]

Есть программный код который шифрует текст, нужно чтобы программа его расшифровала.

Вы уверены что это работает и работает правильно?

    for i := 0 to length(edit1.Text) do BEGIN

а если j:=StrToInt(Edit3.Text) будет БОЛЬШЕ чем 4(четыре) ?
каким способом НАДО БЫЛО зашифровать?

Ну да ладно.

text:=Edit0.text;
s0:=''; s1:=''; s2:=''; s3:=''; s4:=''; sx:='';
for i:=1 to length(text) do begin
  case i mod j of
  0: s0:= s0+text[i];
  1: s1:= s1+text[i]; 
  2: s2:= s2+text[i];
  3: s3:= s3+text[i];
  4: s4:= s4+text[i];
  else sx:= sx+text[i];
  end;

EditOtvet.Text:=s0+s1+s2+s3+s4+sx;
EditOtvet.Text:=s1+s2+s3+s4+s0+sx;

[Ирина112]

Шифрование/расшифрование методом перестановки.