Otro para la colección, aunque para ser franco, he usado este principio indirectamente para otras cosas (por increíble que parezca):
Código Delphi
[-]program sandez;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
s = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
i, j, k: byte;
stmp: string;
begin
stmp := s;
j := length(s);
Randomize;
for k := 1 to 12 do
begin
for i := 1 to j do stmp[i] := s[random(j)];
writeln(stmp);
end;
end.
PD. Pero la verdad que hay que reconocer que va a ser difícil ganarle al Brainfucker, está impresionante.