|
ｿｽ@ｿｽｿｽBlowFishｿｽﾅエｿｽｿｽｿｽRｿｽ[ｿｽhｿｽEｿｽfｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽSｿｽｿｽZ 2005/03/09(ｿｽｿｽ) 14:28:35
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽBlowFishｿｽﾅ暗搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄまゑｿｽｿｽB
BlowFishｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽRｿｽ[ｿｽhｿｽEｿｽfｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHDelphi6Personalｿｽﾅゑｿｽ
ｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 14:33:52
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ「ｿｽﾃ搾ｿｽｿｽｿｽ BlowFish ｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽYｿｽｿｽ Delphiｿｽﾚ植ｿｽﾅ」ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
http://kuma.webj.net/
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 14:37:04
BlowFishｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽCｿｽZｿｽｿｽｿｽXｿｽtｿｽｿｽｿｽ[ｿｽﾌ暗搾ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽYｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。
Delphiｿｽﾉ標ｿｽｿｽｿｽﾅは含まゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
http://www.schneier.com/blowfish.html
ｿｽｿｽｿｽｿｽｿｽｿｽﾉ、C,C++,C#,Java,VBｿｽﾈどのソｿｽ[ｿｽXｿｽｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾅゑｿｽｿｽ驛奇ｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ForthｿｽﾈゑｿｽﾄマｿｽCｿｽiｿｽ[ｿｽｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌに、Pascalｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽOｿｽOｿｽG
# C++ｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈので、ｿｽﾚ植ｿｽｿｽｿｽﾄみようｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾉゑｿｽAGoogleｿｽﾅ探ｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽ見つゑｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾅコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 14:59:16
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾅにゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽSｿｽｿｽZ 2005/03/09(ｿｽｿｽ) 15:31:47
ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄみてゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇね・ｿｽE
ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ・ｿｽE
ｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 19:12:45
ｿｽﾈ前ｿｽﾍにゑｿｽｿｽﾌゑｿｽｿｽｿｽﾌ紹介さｿｽ黷ｽHPｿｽｿｽPascalｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾍ、ｿｽﾈゑｿｽ轤ｩｿｽﾌ趣ｿｽｿｽｿｽﾅ鯉ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾟてゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ抵ｿｽｿｽﾓ点ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽAｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
>ｿｽｿｽｿｽSｿｽｿｽZｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾌ出ｿｽｿｽｿｽaｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾄとてゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆは最擾ｿｽｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾐ介しｿｽﾄ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽ轤ｨｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
ｿｽ答ゑｿｽｿｽｿｽlｿｽﾌ気ｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄ費ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾊりすｿｽｿｽｿｽｿｽ 2005/03/09(ｿｽｿｽ) 21:55:39
>ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ・ｿｽE
readme.txtｿｽﾉ使ｿｽpｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ十ｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽだゑｿｽｿｽﾇ。ｿｽB
ｿｽｿｽｿｽSｿｽｿｽZ 2005/03/10(ｿｽｿｽ) 03:38:31
>ｿｽｿｽごゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾏ趣ｿｽｿｽｿｽﾈ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ續ｭｿｽｿｽｿｽﾉ気ｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾃ搾ｿｽｿｽｿｽ BlowFish ｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽYｿｽｿｽ Delphiｿｽﾚ植ｿｽﾅでゑｿｽｿｽｿｽﾎゑｿｽｿｽﾄみまゑｿｽｿｽﾋ！
ｿｽｿｽｿｽ答抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽSｿｽｿｽZ 2005/03/10(ｿｽｿｽ) 03:39:07
ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽiｿｽOｿｽOｿｽG
ｿｽｿｽｿｽSｿｽｿｽ++ 2005/03/22(ｿｽｿｽ) 15:05:11
1ｿｽAuses ｿｽｿｽ BlowFish, CryptUtils ｿｽｿｽﾇ会ｿｽ
2ｿｽAｿｽuButtonｿｽvｿｽﾆ「Editｿｽvｿｽ‾3ｿｽｿｽｿｽzｿｽu
ｿｽ@Button1ｿｽFｿｽﾃ搾ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽ{ｿｽ^ｿｽｿｽ
ｿｽ@Edit1ｿｽFｿｽﾃ搾ｿｽｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽ
ｿｽ@Edit2ｿｽFｿｽﾃ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@Edit3ｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽ
3ｿｽAButton1ｿｽｿｽOnClickｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
------------------------------------------------------------
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ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾄみまゑｿｽｿｽｿｽ
