Blowfishの使い方 (ID：32158)

名前

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

本文

＞oftさん
ありがとうございます。
やはりDecode時にCryptUtilsのAssertで落ちました。
何が違うのか・・・少し頭を冷やします。

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

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

戻る