2
$Id: header,v 1.1 2000/07/13 06:33:45 michael Exp $
3
This file is part of the Free Component Library (FCL)
4
Copyright (c) 1999-2000 by the Free Pascal development team
6
See the file COPYING.FPC, included in this distribution,
7
for details about the copyright.
9
This program is distributed in the hope that it will be useful,
10
but WITHOUT ANY WARRANTY; without even the implied warranty of
11
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
**********************************************************************}
15
{ short test for blowfish unit }
35
With TBlowfish.Create(K,56) do
39
If (L[0]<>R[0]) or (L[1]<>R[1]) then
b'\\ No newline at end of file'