function crypto_test ( )

%*****************************************************************************80
%
%% crypto_test tests crypto.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 January 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'crypto_test\n' );
  fprintf ( 1, '  Test crypto\n' );
  fprintf ( 1, '\n' );

  code1 = 'The Magic Words are Squeamish Ossifrage';
  fprintf ( 1, '                code:   "%s"\n', code1 );

  code2 = crypto ( code1 );
  fprintf ( 1, '         crypto(code):  "%s"\n', code2 );

  code3 = crypto ( code2 );
  fprintf ( 1, '  crypto(crypto(code)): "%s"\n', code3 );

  return
end

