True hard random generator

[sam707]

send me an atmo-spheric noisymodulolorenzbeer, and we'll see 

[Thaddy]

@sam707
That's not random. Because it relies on Randomize....... It is a PRNG, a peudo ramdom generator and it has many flaws: there is no entropy, but randomize..... (That s the really moron part (intended, moderators))
And Randomize is not a particular good Random seed....
Do the same tests as I did and published on the wiki. Ignorant. <and grumpy.. >

Test it for yourself: leave out randomize and you have a repeatable PRNG. Checkout the standard code for randomize...

I am busy creating a real randomize...( not accepted yet, but close)


I hope that everyone understands that it is not cryptographically secure in any way.
This is not a case of woof, but bite. (without too much tissue ripped off if you don't move, that is, but only with my Jack Russel hybrids)

Now change subject:
Merry Christmas everybody and every one.... I will probably have a beer.. (more likely wine from NZ)

[sam707]

@thaddy I WAS EXPECTING with happiness such a crappy reaction from you, tiny whoopy grump  YOU CAN NOT RESIST HAHAHAHA
go ahead make a random gen with software (ROFL) while it exists on new hardware processors, waste your time as you are so damn used to, while I found solutions that ARE WELL KNOWN to be cryptosecure (cf. blumblum). I've no auction to earn in the fact you can not even read 
as always (at least often), you answer at first in a (minimalist) appropriate way, afterwhat, as a constant, your back to bottles and necks etcaetera
 
blum blum shub is cryptosecure, mersenne twister is not, PCG is "hard to guess" (see table of algos on the wsite)
IKR (as many) they are PRNG with uncongrulethal mechanisms , I also wrote it OMG ask fckdup Santa for glasses! c'mon!
getting old is a wrecking, at least for grumpboats HEHEHE

[sam707]

OH Finally
I think I just found a real pure random generator = sensors on your motherboard Celsius? Fahrenheit? coolers RPMs? Bipolar cryosystem? HAHAHAAHAHA whileever(!!)
Go Go Go thagryumpiny
it's a constant amazing pleasure to be picked on, by ontop scientisfinistic like ya! tons of universities documents, engineers repports and research papers are sooo wrong when your light (LMAO) apears
 

[Sanem]

@sam707
That's not random. Because it relies on Randomize....... It is a PRNG, a peudo ramdom generator and it has many flaws: there is no entropy, but randomize..... (That s the really moron part (intended, moderators))
And Randomize is not a particular good Random seed....
Do the same tests as I did and published on the wiki. Ignorant. <and grumpy.. >

Test it for yourself: leave out randomize and you have a repeatable PRNG. Checkout the standard code for randomize...

I am busy creating a real randomize...( not accepted yet, but close)


I hope that everyone understands that it is not cryptographically secure in any way.
This is not a case of woof, but bite. (without too much tissue ripped off if you don't move, that is, but only with my Jack Russel hybrids)

Now change subject:
Merry Christmas everybody and every one.... I will probably have a beer.. (more likely wine from NZ)

Hi Thaddy, You said here you were making a true random, where can I find and use it?
Regards

[Bandy]

Hello,

When I run this code in Lazarus 2.2.0RC1 Win 32bit is working. When I run the same code in Lazarus 2.2.0RC1 Win 64bit it returns the error in attached picture. What is the solution for the code to work in Win 64 bit, please?

Thank you.

function TryRdRand(out Value: Cardinal): Boolean;
begin
  {$ASMMODE intel}
  asm
  db   $0f
  db   $c7
  db   $f1
  jc   @success
  xor  eax,eax
  ret
  @success:
  mov  [eax],rcx //here is the error in attached picture ONLY in Lazarus 2.2.0RC1 Win 64bit
  mov  eax,1
  end;
end;

procedure TForm1.IntelDrngClick(Sender: TObject);
var
  rnd: Cardinal;
begin
  if TryRdRand(rnd) then
    showmessage(inttostr(rnd));
end;

[mika]

When I run this code in Lazarus 2.2.0RC1 Win 32bit is working. When I run the same code in Lazarus 2.2.0RC1 Win 64bit it returns the error in attached picture. What is the solution for the code to work in Win 64 bit, please?

Code: Pascal  [Select][+][-]

1. function TryRdRand(out Value: Cardinal): Boolean; assembler; nostackframe;
2.   {$ASMMODE intel}
3.   asm
4.   mov rdx,value
5.   rdrand ecx
6.   jc   @success
7.   xor  eax,eax
8.   ret
9.   @success:
10.   mov  [rdx],ecx //here is the error in attached picture ONLY in Lazarus 2.2.0RC1 Win 64bit
11.   mov  eax,1
12. end;
13.  

This is for 64 bit mode.
For 32bit win replace rdx with edx.

[Bandy]

Thank you, Mika.

Let say I'm sure I have DRNG in my CPU, what is TryRdRand without the Try part?

[bytebites]

Maybe this complicated?

Code: Pascal  [Select][+][-]

1. function RdRand: Cardinal;assembler; nostackframe;
2.   {$ASMMODE intel}
3. asm
4.   rdrand eax
5. end;
6.  

[Bandy]

Thank you, bytebites.

For AMD CPU 64bit what is the code for TryRdRand, please?

[Bandy]

I should change {$ASMMODE intel} to {$ASMMODE amd} ?

[bytebites]

No. Same code should work on AMD too assuming that rdrand works https://arstechnica.com/gadgets/2019/10/how-a-months-old-amd-microcode-bug-destroyed-my-weekend/

[Bandy]

Thank you, bytebites.

I don't have AMD CPU.

[Bandy]

For Android OS, there is a way to use true random number generator? I use the same rdrand instruction?
What is the code for Lazarus 32/64 bit and Android OS?

[mas steindorff]

Android OS is based on Linux so you should try the code from the WIKI
https://wiki.freepascal.org/Dev_random