![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Ну, давай на примере твоего кода. Берем один маленький кусочек: 
		
	
		
		
		
		
		
	
		
		
	
	
	Код: 
	  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; |