BlowFishで復号化のみするには？ (ID:17009)

名前

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

本文 テキストのみを扱いやすいようにBase64エンコードかけてみました。 使い方はこんな感じです。 usesにBF2B64Textを追加して テキストを暗号化Base64テキスト出力 Edit2.text:=BF2B64Encode('PAI',Edit1.Text,$31415926535); 暗号化Base64をテキストをテキスト出力 Edit1.text:=BF2B64decode('PAI',Edit2.Text,$31415926535); BF2B64Text.pas unit BF2B64Text; //////////////////////////////////////////////////////////////////////////////// // 文字列をBlowFishで復号化しBase64エンコードで保存する関数 // base64は 「FDELPHI」 の"base64、エンコード＆デコード"を使用 // http://forum.nifty.com/fdelphi/samples/01327.html // 著作：河邦 正 氏 // // これを利用するにはBlowFishユニットが必要 // BlowFishユニット // http://kuma.webj.net/ // 著作：t_kumagai 氏 // // BlowFishのアルゴリズム // 著作：Bruce Schneier 氏 //////////////////////////////////////////////////////////////////////////////// interface uses SysUtils, Windows, Classes, BlowFish, CryptUtils; function BF2B64Encode(key,Text:string; IV:Int64):string; function BF2B64Decode(key,Text:string; IV:Int64):string; implementation // ３バイト分のバイトオーダーを修正する（Kylixでは不要のはず） function exchange_0_2(Src: DWORD): DWORD; type TTemp = array[0..3]of BYTE; begin Result := Src; TTemp(Result)[2] := TTemp(Src)[0]; TTemp(Result)[0] := TTemp(Src)[2]; end; // StreamからSizeバイトを読み込み、エンコードした文字列を返す function base64encode(Stream: TStream; Size: Integer): string; const Table: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'; var Buffer, Src: Pointer; Dst: PChar; I: Integer; procedure doNbyte(N: Integer); var Value: DWORD; I: Integer; begin if not(N in [1..3]) then Exit; Value := 0; // SrcからＮバイトをValueに読み込む Move(PBYTE(Src)^, Value, N); // バイトオーダーを修正（Kylixでは不要のはず） Value := exchange_0_2(Value); // Srcの読み込み位置を進める Inc(Integer(Src), N); // 6ビットずつエンコード×４回 for I := 3 downto 0 do begin if I > N then Dst[I] := '=' // 変換しない分は‘=’でパディングする else Dst[I] := Table[Value and $3f]; Value := Value shr 6; end; // 次の書き込み位置にする Inc(Integer(Dst), 4); end; begin Buffer := AllocMem(Size); try Size := Stream.Read(PBYTE(Buffer)^, Size); // エンコード後の文字列の長さにする SetLength(Result, (Size + 2) div 3 * 4); if Size > 0 then begin // 読み込み元のポインタ Src := Buffer; // 書き込み先のポインタ Dst := PChar(Result); // ３バイトずつ書き込む for I := 0 to Size div 3 - 1 do doNbyte(3); if (Size mod 3) > 0 then doNbyte(Size mod 3); end; finally FreeMem(Buffer); end; end; // TextをデコードしてStreamに書き込み、書き込んだバイト数を返す function base64decode(Stream: TStream; Text: string): Integer; var Src: PChar; I: Integer; // 各文字を６ビットデータに変換する function decode(code: BYTE): BYTE; begin case Char(code) of 'A'..'Z': Result := code - BYTE('A'); 'a'..'z': Result := code - BYTE('a') + 26; '0'..'9': Result := code - BYTE('0') + 52; '+': Result := 62; '/': Result := 63; else Result := 0; // ‘=’の場合も‘0’を返す end; end; function doNbyte: Integer; var I, N: Integer; Value: DWORD; begin // パディング文字‘=’の有無を調べる N := 3; // デコード後のバイト数をNにセット for I := 2 to 3 do begin if Src[I] = '=' then begin N := I - 1; break; end; end; // ４文字をデコードする value := 0; for I := 0 to 3 do begin // １文字を６ビットに変換×４回 Value := Value shl 6; Inc(Value, decode(PBYTE(Src)^)); Inc(Integer(Src)); end; // バイトオーダーを修正（Kylixでは不要のはず） Value := exchange_0_2(Value); // デコードしたデータの書き込み Result := Stream.Write(Value, N); end; begin Result := 0; Src := PChar(Text); // ４文字ずつデコード for I := 0 to (Length(Text) div 4) - 1 do // 書き込んだバイト数をResultにカウントする Inc(Result, doNbyte); end; //テキストをエンコードしてBase64テキストを返す function BF2B64Encode(key,Text:string; IV:Int64):string; var Crypt : TCryptCBC; Stream:TMemoryStream; Size,i :integer; dst : array of byte; begin try Crypt:= TCryptCBC.Create(Key, TBlowFish.Create, IV, SizeOf(IV), pmStandard); size := Length(Text); SetLength(dst, Crypt.OutputSize(Size)); Size := Crypt.Encode(Text[1], dst[0], Size); stream:= TMemoryStream.Create; stream.Size:= size; stream.Seek(0,soFromBeginning); for i:=0 to size-1 do stream.Write(dst[i],1); stream.Seek(0,soFromBeginning); Result:=base64encode(stream,Size); finally stream.Free; Crypt.Free; end; end; //Base64テキストを出コードしてテキストを返す function BF2B64Decode(key,Text:string; IV:Int64):string; var Crypt : TCryptCBC; Stream:TMemoryStream; Size,size2,i :integer; dst,src : array of byte; bufstr : string; begin try stream:= TMemoryStream.Create; size:=base64decode(stream,Text); stream.Seek(0,soFromBeginning); setLength(dst,size); for i:=0 to size-1 do stream.read(dst[i],1); Crypt:= TCryptCBC.Create(Key, TBlowFish.Create, IV, SizeOf(IV), pmStandard); size2 := Crypt.OutputSize(Size); SetLength(src,size2); size2 := Crypt.Decode(dst[0], src[0], Size); for i:=0 to size2-1 do result:= result + char(src[i]); finally stream.Free; Crypt.Free; end; end; end.