lcg.class.ps1

class LCG
{
    hidden [long]
    $factor = 1140671485

    hidden [long]
    $offset = 12820163

    hidden [long]
    $modulus = 16777216

    [long]
    $Seed

    LCG()
    {
        $this.Seed = Get-Random
    }

    LCG([long]$seed)
    {
        $this.Seed = $seed
    }

    [long]
    Next(){
        return ($this.Seed = ($this.factor * $this.Seed + $this.offset) % $this.modulus)
    }
}

$gen = [LCG]::new()
1..10 |% {$gen.Next()}