Показать сообщение отдельно
  #2  
Старый 08.11.2012, 16:33
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

Отдели мух от котлет
Код:
function CodeDecode(S:string;Key:byte):string;   // кодирование
var i,L:word;   
begin
  L:=Length(S);
  Result:='';
  SetLength(Result,L);
  for i:=1 to L do
  begin
    Result[i]:=Chr(Ord(S[i]) xor Key);
  end;
end;

procedure Perebor(S:string);// подбор
var j:byte;  
begin
   for j:=0 to 255 do  //все возможные ключи
   begin
    Form1.Memo1.Lines.Add(IntToStr(j)+'  '+CodeDecode(S,j));
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
 //шифрует и дешифрует(при повторном нажатии ) 
begin 
  //Edit1.Text:=CodeDecode((Edit1.Text),10);   
  Perebor(Edit1.Text);
end;
И поскольку могут получаться непечатные символы, то в мемо могут попадать несколько странные результаты.
Ответить с цитированием