Oplop in q

o:{
    d:.Q.A,.Q.a,(n:"0123456789"),"-_";
    b:d 2 sv'6 cut(,/)0b vs'(md5 x,y),2#0x00;
    i:b in n;j:i?1b;
    if[0=0+/i;:"1",7#b];
    if[8>j;:8#b];
    k:(j _i)?0b;8#(b j+til k),b}