Random generator based on noise from sound card ?

[programings]

Hello!

I want to make random number generator based on noise from my sound card !

Maybe will require WMI query for get information from sound card and with this infromation based on sound card noise can be make some algorithm who generate completely random numbers!

Can someone say me how ?

Thanks in advance!

[abberration]

I attempted to help you out, but so far it isn't working. I wrote this code to record sound for 3 seconds and then make a hash of that file. However, it is coming up with the same hash every time. Maybe my sound card is so good there's no noise being generated. Anyways, here's what I wrote.

#include <Crypt.au3>

If @OSVersion = "Win_XP" Then
    Run("sndrec32 /new /embedding " & @DesktopDir & "soundPW.wav" )
    Sleep(3000)
    Run("sndrec32 /close")
    ProcessClose("sndrec32.exe")
Else
    Run("SoundRecorder /FILE " & @DesktopDir & "soundPW.wav /DURATION 0000:00:03")
EndIf

$hash = _Crypt_HashFile(@DesktopDir & "soundPW.wav", $CALG_SHA1)
FileRecycle(@DesktopDir & "soundPW.wav")
MsgBox(0, "", $hash)

[iamtheky]

seems to work fine

#include <Crypt.au3>

soundplay ("C:UsersPublicMusicSample MusicKalimba.mp3" , 0)
Runwait("SoundRecorder /FILE " & @DesktopDir & "soundPW.wav /DURATION 0000:00:03")
soundplay("")
$hash1 = _Crypt_HashFile(@DesktopDir & "soundPW.wav", $CALG_SHA1)
FileDelete(@DesktopDir & "soundPW.wav")

soundplay ("C:UsersPublicMusicSample MusicMaid with the Flaxen Hair.mp3" , 0)
Runwait("SoundRecorder /FILE " & @DesktopDir & "soundPW.wav /DURATION 0000:00:03")
soundplay("")
$hash2 = _Crypt_HashFile(@DesktopDir & "soundPW.wav", $CALG_SHA1)
FileDelete(@DesktopDir & "soundPW.wav")

msgbox (0, '' , $hash1 & @CRLF & $hash2)

Edited August 10, 2012 by boththose

[programings]

seems to work fine

#include <Crypt.au3>

soundplay ("C:UsersPublicMusicSample MusicKalimba.mp3" , 0)
Runwait("SoundRecorder /FILE " & @DesktopDir & "soundPW.wav /DURATION 0000:00:03")
soundplay("")
$hash1 = _Crypt_HashFile(@DesktopDir & "soundPW.wav", $CALG_SHA1)
FileDelete(@DesktopDir & "soundPW.wav")

soundplay ("C:UsersPublicMusicSample MusicMaid with the Flaxen Hair.mp3" , 0)
Runwait("SoundRecorder /FILE " & @DesktopDir & "soundPW.wav /DURATION 0000:00:03")
soundplay("")
$hash2 = _Crypt_HashFile(@DesktopDir & "soundPW.wav", $CALG_SHA1)
FileDelete(@DesktopDir & "soundPW.wav")

msgbox (0, '' , $hash1 & @CRLF & $hash2)

This return -1 every time for 2 hashes !

How i can make random number ( not hash ) generator with this example ?

Edited August 11, 2012 by programings

[jchd]

It isn't obvious that sampling noise from a sound card will ever generate truly random values. While it may be true that you sample a bit of white or pink noise having fairly good randomness characteristic, it's likely that you're also going to sample mains and other very predictable hum sources having much more peak value. I wouldn't bet my life on that: a good proven PRNG will be far better.

If you insist on a physical source of truly random values, try using a web-based source, like http://www.random.org/ among many others.