問題與TRandomStream - 德爾福TurboPower公司LOCKBOX 3

我使用TurboPower公司的Lockbox 3（http://sourceforge.net/projects/tplockbox/和http://lockbox.seanbdurkin.id.au/tiki-index.php）問題與TRandomStream - 德爾福TurboPower公司LOCKBOX 3

我與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

似乎並沒有哪個是隨機的。

我在做什麼錯？

感謝和問候。

來源

2011-09-23 mas

我不熟悉TRandomStream但你爲什麼不使用前實例化它的一個實例它？ –

@Jerry：Delphi的最新版本允許記錄擁有方法，而且您不必創建它們。例如，見Delphi 2010/XE中的'IOUtils.TDirectory'（例如，在Delphi 2010的Demos \ DelphiWin32 \ VCLWin32 \ Thread - IOUtils \ TDirectory'文件夾中的演示。）有效使用：'Path：= TDirectory.GetParent（lbletPath .Text）;' - 注意沒有構造函數。 :) –

我不知道TRandomString是一個記錄，但我確實知道記錄的方法和構造函數。 –

好的。我找到了問題和解決方法。過程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-01 23:40:58 mas

偉大的自我回答！和很好的捕獲。我已經相應更新了源代碼。更正後的源代碼可以通過SVN獲得。 –

問題與TRandomStream - 德爾福TurboPower公司LOCKBOX 3

回答

相關問題