http://tieba.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=26097655143&z=1975006660#26097655143
这是传送
这是传送
密码吧 关注：219,548贴子：823,089
- 7回复贴，共1页
这是我用来枚举的代码
var
a:array[1..16] of char;
i,j,k:longint;
procedure init;
begin
assign(input,'kaisa.in');
reset(input);
assign(output,'kaisa.out');
rewrite(output);
for i:=1 to 16 do read(a[i]);
end;
begin
init;
for i:=0 to 25 do begin
for j:=1 to 16 do begin
k:=ord(a[j])+i;
if k>122 then k:=96+k-122;
write(chr(k));
if (j mod 4)=0 then writeln;
end;
writeln;
end;
close(input);
close(output);
end.
var
a:array[1..16] of char;
i,j,k:longint;
procedure init;
begin
assign(input,'kaisa.in');
reset(input);
assign(output,'kaisa.out');
rewrite(output);
for i:=1 to 16 do read(a[i]);
end;
begin
init;
for i:=0 to 25 do begin
for j:=1 to 16 do begin
k:=ord(a[j])+i;
if k>122 then k:=96+k-122;
write(chr(k));
if (j mod 4)=0 then writeln;
end;
writeln;
end;
close(input);
close(output);
end.
wiuchsrraysetoet
xjvditssbztfupfu
ykwejuttcaugvqgv
zlxfkvuudbvhwrhw
amyglwvvecwixsix
bnzhmxwwfdxjytjy
coainyxxgeykzukz
dpbjozyyhfzlavla
eqckpazzigambwmb
frdlqbaajhbncxnc
gsemrcbbkicodyod
htfnsdccljdpezpe
iugoteddmkeqfaqf
jvhpufeenlfrgbrg
kwiqvgffomgshcsh
lxjrwhggpnhtidti
myksxihhqoiujeuj
nzltyjiirpjvkfvk
oamuzkjjsqkwlgwl
pbnvalkktrlxmhxm
qcowbmllusmyniyn
rdpxcnmmvtnzojzo
seqydonnwuoapkap
tfrzepooxvpbqlbq
ugsafqppywqcrmcr
vhtbgrqqzxrdsnds
xjvditssbztfupfu
ykwejuttcaugvqgv
zlxfkvuudbvhwrhw
amyglwvvecwixsix
bnzhmxwwfdxjytjy
coainyxxgeykzukz
dpbjozyyhfzlavla
eqckpazzigambwmb
frdlqbaajhbncxnc
gsemrcbbkicodyod
htfnsdccljdpezpe
iugoteddmkeqfaqf
jvhpufeenlfrgbrg
kwiqvgffomgshcsh
lxjrwhggpnhtidti
myksxihhqoiujeuj
nzltyjiirpjvkfvk
oamuzkjjsqkwlgwl
pbnvalkktrlxmhxm
qcowbmllusmyniyn
rdpxcnmmvtnzojzo
seqydonnwuoapkap
tfrzepooxvpbqlbq
ugsafqppywqcrmcr
vhtbgrqqzxrdsnds
