|
ｿｽ@ｿｽｿｽBlowFishｿｽﾅデｿｽ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
assa 2005/03/22(ｿｽｿｽ) 17:18:05
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200503/05030038.txt
BlowFishｿｽﾅエｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍわかｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽtｿｽﾉデｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾃ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
Size := Length(Src);
SetLength(Dst, OutputSize(Size));
ｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽﾌサｿｽCｿｽYｿｽｿｽｿｽwｿｽｿｽﾅゑｿｽｿｽｿｽﾌに対ゑｿｽｿｽｿｽ
ｿｽiｿｽｿｽｿｽｿｽｿｽﾌようｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽj
function TCrypt.OutputSize(InputSize: Integer): Integer;
var
BS, Count: Integer;
begin
if (PaddingMode = pmNone) then
begin
Result := InputSize;
Exit;
end;
BS := BlockSize;
Count := (InputSize + BS) div BS;
Result := Count * BS;
end;
ｿｽtｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽｿｽ骼橸ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾌサｿｽCｿｽYｿｽｿｽwｿｽ閧ｷｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽKｿｽｿｽｿｽｿｽ
SetLength(Dst,10);
ｿｽｿｽｿｽﾆ指ｿｽ閧ｷｿｽｿｽﾆ「ｿｽ`ｿｽ`ｿｽ`ｿｽEｿｽvｿｽﾆ鯉ｿｽｿｽﾉ余ｿｽvｿｽﾈ包ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽEｿｽEｿｽE
assa 2005/03/22(ｿｽｿｽ) 18:45:00
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽ
ｿｽｿｽｿｽﾔゑｿｽuｿｽｿｽｿｽﾄゑｿｽ闥ｼｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
