Random number generator (device): Difference between revisions
no edit summary
m (→version 1: changed some comments.) |
No edit summary |
||
Line 591:
<lang PicoLisp>: (in "/dev/urandom" (rd 4))
-> 2917110327</lang>
=={{header|PowerShell}}==
<lang PowerShell>
function Get-RandomInteger
{
Param
(
[Parameter(Mandatory=$false,
ValueFromPipeline=$true,
ValueFromPipelineByPropertyName=$true,
Position=0)]
[ValidateScript({$_ -ge 4})]
[int[]]
$InputObject = 64
)
Begin
{
$rng = New-Object -TypeName System.Security.Cryptography.RNGCryptoServiceProvider
}
Process
{
foreach($count in $InputObject)
{
$bytes = New-Object -TypeName Byte[] -Argument $count
$rng.GetBytes($bytes)
[System.BitConverter]::ToInt32($bytes,0)
}
}
End
{
Remove-Variable -Name rng -Scope Local
}
}
</lang>
<lang PowerShell>
4,8,16,32,64,128 | Get-RandomInteger | Format-Wide {$_} -Column 6 -Force
</lang>
{{Out}}
<pre>
1402572656 432337086 413089699 1404567509 -82797202 -261009960
</pre>
As hexadecimal:
<lang PowerShell>
4,8,16,32,64,128 | Get-RandomInteger | Format-Wide {"0x{0:X}" -f $_} -Column 6 -Force
</lang>
{{Out}}
<pre>
0x24305255 0x916002DD 0x9587046 0x5F236274 0xC0BAF6F0 0xC0B93118
</pre>
=={{header|ProDOS}}==
| |||