2

TurboPower LockBox 3 ( http://sourceforge.net/projects/tplockbox/およびhttp://lockbox.seanbdurkin.id.au/tiki-index.php )を使用しています。

TRandomStream に問題があります。32 バイトのランダム データのチャンクを生成しようとしていますが、出力がランダムではないようです。

コードは次のとおりです。

function StringToHex(S: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (S) do
    Result:= Result+IntToHex(ord(S[i]),2)+' ';
end;

procedure TForm1.btn1Click(Sender: TObject);
const
  Len = 32;
var
  j,k: Integer;
  P: Pointer;
  Str: AnsiString;
begin
  GetMem(P,Len);
  TRandomStream.Instance.Randomize;
  SetLength(Str,Len);
  for j := 1 to 20 do
  begin
    TRandomStream.Instance.Read(P^,Len);
    for k := 0 to Len-1 do
    begin
      Str[k+1]:=PAnsiChar(P)[k];
    end;
    mmoOutput.Lines.Add('> '+StringToHex(Str));
  end;
  FreeMem(P,Len);
end;

出力は次のとおりです。

> 91 79 00 77 FD F7 1C 51 22 64 BA 07 9F 87 8F B2 85 94 92 84 6B F7 5B 55 1A 0D DE E5 44 4A 56 DA 
> A5 A6 C3 3D DB 01 69 61 5A 66 D8 ED 3F 3B 4D 00 A5 D7 CB 84 BB 40 CE 3E 5A 90 54 DD BF 63 0E 2C 
> A5 5F 75 70 76 1F 08 25 5A E0 8D F0 9C 0B 15 F7 A5 9F C1 A7 F9 7C FF BA 5A 60 58 60 B5 97 F4 25 
> A5 9F 23 E2 09 D2 74 52 5A 60 AC 5E 6E D8 B6 81 A5 9F 33 B5 2B B8 B5 15 5A 60 4C 51 96 DB 68 66 
> A5 9F B3 4D 3A 51 4C 0D 5A 60 4C E6 D5 4C F8 83 A5 9F B3 11 AF 19 DB 2D 5A 60 4C 8E D2 D6 49 70 
> A5 9F B3 31 55 5D D1 28 5A 60 4C CE B7 26 56 C8 A5 9F B3 31 86 7A 83 A0 5A 60 4C CE E1 A5 B8 E8 
> A5 9F B3 31 0E 64 14 5E 5A 60 4C CE 31 9F CC EB A5 9F B3 31 4E B0 9B 4A 5A 60 4C CE B1 69 6C 04 
> A5 9F B3 31 4E 12 D6 AE 5A 60 4C CE B1 BD 6A C9 A5 9F B3 31 4E 22 A9 D0 5A 60 4C CE B1 5D 5D F1 
> A5 9F B3 31 4E A2 41 DF 5A 60 4C CE B1 5D F2 30 A5 9F B3 31 4E A2 05 54 5A 60 4C CE B1 5D 9A 2D 
> A5 9F B3 31 4E A2 25 FA 5A 60 4C CE B1 5D DA 12 A5 9F B3 31 4E A2 25 2B 5A 60 4C CE B1 5D DA 3C 
> A5 9F B3 31 4E A2 25 B3 5A 60 4C CE B1 5D DA 8C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C 
> A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C A5 9F B3 31 4E A2 25 F3 5A 60 4C CE B1 5D DA 0C

これはランダムではないようです。

私は何を間違っていますか？

ありがとうございます。

4

1 に答える 1

2

わかった。問題と修正を見つけました。プロシージャ TRandomStream.Crunch は、コンパイラ バージョンの切り替えを使用します。

コンパイラ バージョン > 17 の場合

FValue := FValue * Factor + 1 ;

コンパイラ バージョン <= 17 (私の場合) の場合、関数 SquarePlus1Int64_NoOverflowChecks の使用は次のようになります。

FValue := FValue * FValue + 1;

変更を修正するには:

function SquarePlus1Int64_NoOverflowChecks(Factor: int64): int64;
begin
  result := Factor * Factor + 1
end;

に

function MultiplyPlus1Int64_NoOverflowChecks(Value,Factor: int64): int64;
begin
  result := Value * Factor + 1
end;

そして TRandomStream.Crunch の変更で:

FValue := SquarePlus1Int64_NoOverflowChecks(FValue);

に

FValue := MultiplyPlus1Int64_NoOverflowChecks(FValue, Factor);
于 2011-10-01T23:40:58.413 に答える