Codigo sin utilidad

[d-hugo]

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.