Today (September 24) is HONDA birthday
Mathematica
Here the characters are individually rasterized.  The zero's of the binary image data of a reduced image are then replaced with asterisks and the array itself is then printed.
GraphicsGrid[ImageData@ImageResize[Binarize@Rasterize@Style[#, 136], 30] 
/. {1 -&gt; &quot;&quot;, 0 -&gt; &quot;*&quot;}] &amp; /@ Characters[&quot;本田技研工業株式会社&quot;]


Below all characters were rasterized as a single image. The asterisks are a bit more difficult to recognize as asterisks in this case.
GraphicsGrid[ImageData@ImageResize[Binarize@Rasterize@Style[#, 136], 300] 
/. {1 -&gt; &quot;&quot;,  0 -&gt; &quot;*&quot;}, ImageSize -&gt; 1500] &amp;[&quot;本田技研工業株式会社&quot;]