掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BlowFishでエンコード・デコードするには？ (ID：13688)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
1、uses に BlowFish, CryptUtils を追加 2、「Button」と「Edit」×3をを配置 Button1：暗号化実行ボタン Edit1：暗号化する文字列 Edit2：暗号化した文字列 Edit3：復号された文字列 3、Button1のOnClickイベント↓ ------------------------------------------------------------ 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); Edit2.Text := Dst; {復号} Size := Decode(Dst[1], Dst[1], Size); SetLength(Dst, Size); Assert(Src = Dst); Edit3.Text := Dst; finally Free; end; end; ------------------------------------------------------------ readme.txtを少し改変してみました
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.