问题与TRandomStream - 德尔福TurboPower公司LOCKBOX 3

Question

我使用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 

似乎并没有哪个是随机的。

我在做什么错？

感谢和问候。

Answer 1

好的。我找到了问题和解决方法。过程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);