Blowfishの使い方 (ID：32149)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

テキストフィールドの値を暗号化／復号化したくて
別スレで教えていただいたBlowfishを試しています。
サンプルを元に暗号化はそれらしいものが出力されたのですが
復号化がどうにもうまくいきません。

---------------------------
implementation
uses Blowfish, CryptUtils;

{$R *.dfm}

//暗号化
procedure TForm1.Button1Click(Sender: TObject);
const
   Key = 'ABCDEFG';
   IV: array [0..1 - 1] of Int64 = ($1234567890123456);
var
   Src, Dst: string;
   Size: Integer;
begin
   Src := Edit1.Text;
   with (TCryptCBC.Create(Key, TBlowFish.Create, IV, SizeOf(IV), pmStandard)) do
      try
	      Size := Length(Src);
	      SetLength(Dst, OutputSize(Size));
	      Size := Encode(Src[1], Dst[1], Size);
	      SetLength(Dst, Size);
         Edit1.Text := Dst;
         finally
            Free;
         end;
end;

//復号化
procedure TForm1.Button2Click(Sender: TObject);
const
   Key = 'ABCDEFG';
   IV: array [0..1 - 1] of Int64 = ($1234567890123456);
var
   Src, Dst: string;
   Size: Integer;
begin
   Src := Edit1.Text;
   with (TCryptCBC.Create(Key, TBlowFish.Create, IV, SizeOf(IV), pmStandard)) do
      try
	      Size := OutputSize(Length(Src));
	      SetLength(Dst, Size);
	      Size := Decode(Src[1], Dst[1], Size);
	      SetLength(Dst, Size);
         Edit2.Text := Dst;
         finally
            Free;
         end;
end;
---------------------------

この場合、ボタン2を押しても何も出力されません。
根本的な勘違いをしてるような気がするのですが
原因をご教示いただきたく、よろしくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る