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