Mercurial > repo
view bin/fromroman @ 5683:0a3d23a1e853
<boily> ` echo $\'#!/bin/sh\\nsed -re "y/aehiotuwxyAEHIOUWXY/\xc3\xa4\xc3\xab\xe1\xb8\xa7\xc3\xaf\xc3\xb6\xe1\xba\x97\xc3\xbc\xe1\xba\x85\xe1\xba\x8d\xc3\xbf\xc3\x84\xc3\x8b\xe1\xb8\xa6\xc3\x8f\xc3\x96\xc3\x9c\xe1\xba\x84\xe1\xba\x8c\xc5\xb8/"\' >bin/d\xc3\xb6ts && chmod a+x bin/d\xc3\xb6ts && wisdom | d\xc3\xb6ts
author | HackBot |
---|---|
date | Wed, 24 Jun 2015 19:52:01 +0000 |
parents | 56dcce63901b |
children | 00ccb2fe8c08 |
line wrap: on
line source
#!/usr/bin/perl sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$r{$t}=$_;$t}k for s""\$"..4e3;print $r{(shift=~/(\w+)/)[0]},$/