XOR Shift

This algorithm generates a random number.

• C#
• VB.Net
• C
• C++

									Private Shared x As UInteger = 548787455, y As UInteger = 842502087, z As UInteger = 3579807591UI, w As UInteger = 273326509

Public Shared Function XORShift() As UInteger
	Dim t As UInteger = x Xor (x << 11)
	x = y
	y = z
	z = w
	w = w Xor (w >> 19) Xor t Xor (t >> 8)
	Return w
End Function
								

Example

									Dim value = XORShift()
								

Output

									2664865143