5 deleted 23 characters in body
source | link

Mathematica, 178 134 132131 bytes

""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length@(x=Length[x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1)>1]}]&

Mathematica, 178 134 132 bytes

""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length@(x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1)}]&

Mathematica, 131 bytes

""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length[x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1]}]&
4 deleted 182 characters in body
source | link

Mathematica, 178 134134 132 bytes

-approx. 6 bytes from CalculatorFeline.

""<>Table[(n=Charactersf/@{##2};x=n[[1]]/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1;""<>Table[n[[x[[i]][[x[[i]],i]],{i,Length@x}])&

or

Length@(x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1;""<>Table[(f/@{##2}>1)[[x[[i]],i]],{i,Length@x}])&]&

Mathematica, 178 134 bytes

-approx. 6 bytes from CalculatorFeline.

(n=Characters/@{##2};x=n[[1]]/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1;""<>Table[n[[x[[i]],i]],{i,Length@x}])&

or

(x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1;""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length@x}])&

Mathematica, 178 134 132 bytes

""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length@(x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1)}]&
3 added 156 characters in body
source | link

Mathematica, 178178 134 bytes

-approx. 6 bytes from CalculatorFeline.

(n=Characters/@{#2##2};x=n[[1]]/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,#3{i,#40,7};Function[b]/._String->1;""<>Table[n[[x[[i]],x=n[[1]]i]],{i,Length@x}])&

or

(x=(f=Characters)@#2/.Table[ToString@i->2+>2+Floor[#/2^(b~IntegerDigits~2~PadLeft~87-i)[[1+i]]]~Mod~2,{i,0,7}]/._String->1;StringJoin@@Table[n[[x[[i]]>1;""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length[x]Length@x}]]/@#1])&

Mathematica, 178 bytes

(n=Characters/@{#2,#3,#4};Function[b,x=n[[1]]/.Table[ToString@i->2+(b~IntegerDigits~2~PadLeft~8)[[1+i]],{i,0,7}]/._String->1;StringJoin@@Table[n[[x[[i]],i]],{i,Length[x]}]]/@#1)&

Mathematica, 178 134 bytes

-approx. 6 bytes from CalculatorFeline.

(n=Characters/@{##2};x=n[[1]]/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1;""<>Table[n[[x[[i]],i]],{i,Length@x}])&

or

(x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1;""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length@x}])&
    Post Undeleted by user202729
2 added 227 characters in body
source | link
    Post Deleted by user202729
1
source | link