Ну, давай на примере твоего кода. Берем один маленький кусочек:
Код:
if rg1.ItemIndex=0
then begin
For i:=0 to 65 do
begin
a[i]:= alfa[(i+1) mod 66];
end;
// шифр
k := StrToInt(edt1.Text);
s := mmo1.Lines.Text;
for i := 1 to length(s) do
for j := 0 to 65 do
if s[i] = a[j] then s2 := s2+a[(66+(j+k)) mod 66];
mmo2.Lines.Text := s2;
s2 := '';
end;
и смотрим...
Даже не зная конкретный алгоритм шифрования, мы видим, что все операции происходять с переменной s, а во второе Memo ты выводишь переменную s2. Естественно, что ты ничего и не видишь...
Вообще, я так понимаю, что это шифр циклической перестановкой.
Тгда получается что-то типа такого:
Код:
procedure TForm1.btEncodeClick(Sender: TObject);
var
Pwd : Integer;
Txt : AnsiString;
Idx : Integer;
I : Integer;
Lng1 : Integer;
Lng2 : Integer;
begin
Lng1 := (Ord('Я')-Ord('А')+1);
Lng2 := 2*Lng1;
Pwd := StrToInt(edPwd.Text);
Txt := edPlain.Lines.Text;
For I := 1 To Length(Txt) Do
Begin
If (Txt[i] >= 'А') And (Txt[i] <= 'Я')
Then Idx := Ord(Txt[i])-Ord('А')
Else If (Txt[i] >= 'а') And (Txt[i] <= 'я')
Then Idx := Ord(Txt[i])-Ord('я')+Lng1
Else Idx := -1;
If Idx > -1 Then
Begin
Idx := (Lng2 + Idx + Pwd) Mod Lng2;
If (Idx <= Lng1)
Then Idx := Idx + Ord(AnsiChar('А'))
Else Idx := Idx -Lng1 + Ord(AnsiChar('а'));
Txt[i] := AnsiChar(Chr(Idx));
End;
End;
edCoded.Lines.Text := Txt;
end;