pass generator

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program gg;
var i:array[1..25] of string;
l,k,b:integer;
s:string;
begin
i[1]:='g';i[2]:='n';i[3]:='m';i[4]:='z';i[5]:='8';[6]:='N';i[7]:='D';
i[8]:='F';i[9]:='L';i[10]:='3';
i[11]:='h';i[12]:='l';i[13]:='q';i[14]:='D';[15]:='2';i[16]:='3';i[17]:='4';
i[18]:='5';i[19]:='7';i[20]:='9';
i[21]:='T';i[22]:='P';i[23]:='O';[24]:='I';i[25]:='U';
var sc:=0;
s:='';
var scc:=0;
var llll:='';
l:=35;
//while 0=0 do begin
for var v:=1 to 5 do begin
s:=s+i[random(25)+1];
end;
s:=s+'.txt';scc:=scc+1;
llll:=s;
var h := new System.IO.StreamWriter(s, false, System.Text.Encoding.ASCII);
s:='';
for var kk:=1 to 1000 do begin
{$omp parallel for}
for b:=1 to l do begin
s:=s+i[random(25)+1];
end;
sc:=sc+1;
h.Write(s);h.Write(' // ');
s:='';
end;
h.Close;
write('writen in file: ');write(s);write(' //',sc,'times');write('//',scc,'files');writeln(': ',llll);
//end;
end.