equal
deleted
inserted
replaced
46 n:= 54; |
46 n:= 54; |
47 |
47 |
48 if Length(Seed) > 54 then Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf |
48 if Length(Seed) > 54 then Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf |
49 |
49 |
50 for i:= 1 to Length(Seed) do |
50 for i:= 1 to Length(Seed) do |
51 cirbuf[i - 1]:= byte(Seed[i]) * i; |
51 cirbuf[i - 1]:= byte(Seed[i]) * (i * 2 + 7); |
52 |
52 |
53 for i:= Length(Seed) to 54 do |
53 for i:= Length(Seed) to 54 do |
54 cirbuf[i]:= i * 7 + 1; |
54 cirbuf[i]:= i * 7 + 1; |
55 |
55 |
56 for i:= 0 to 1023 do GetNext |
56 for i:= 0 to 1023 do GetNext |