ひらやすみ

意識の高いブログ

Quineで遊ぶ

ブログ力爆age Advent Calendar 2017 16日目の記事です。
adventar.org

今年2回目の担当です。皆さんきちんと書いて繋げているので自分もちゃんと埋めようという気持ちになりますね。

早速ですが、今回はQuineで遊んでみようと思います。

Quineとは

簡単に言えば実行すると自分自身を出力するプログラムのことです。
このスライドとか面白いと思います。
Quine・難解プログラミングについて

コードを絵にしたりゲームにしたりする変態もいます。世界は広い。

Quine×AA

参考
mickey24.hatenablog.com

AAをQuine化してみようと思います。
過程はかなり省略するので詳しくは上記記事をご参照ください。

今回Quine化するAA。

                                                     /*[*/#include<stdio.h>//
                         #include<stdlib.h>//]++++[->++[->+>++++<<]<][(c)2013]
                        #ifndef                                           e//[o
                       #include<string.h>//]![misaka.c,size=3808,crc=d0ec3b36][
                      #define e                                           0x1//
                     typedef struct{int d,b,o,P;char*q,*p;}f;int p,q,d,b,_=0//|
                  #include __FILE__//]>>>[->+>++<<]<[-<<+>>>++<]>>+MISAKA*IMOUTO
                #undef e//[->[-<<+<+<+>>>>]<<<<<++[->>+>>>+<<<<<]>+>+++>+++[>]]b
             #define e(c)/**/if((_!=__LINE__?(_=__LINE__):0)){c;}//[20002,+[-.+]
            ,O,i=0,Q=sizeof(f);static f*P;static FILE*t;static const char*o[]={//
          "\n\40\"8oCan\40not\40open %s\n\0aaFbfeccdeaEbgecbbcda6bcedd#e(bbed$bbd",
        "a6bgcdbbccd#ead$c%bcdea7bccde*b$eebbdda9bsdbeccdbbecdcbbcceed#eaa&bae$cbe",
       "e&cbdd$eldbdeedbbdede)bdcdea&bbde1bedbbcc&b#ccdee&bdcdea'bbcd)e'bad(bae&bccd",
      "e&bbda1bdcdee$bbce#b$c&bdedcd%ecdca4bhcdeebbcd#e$b#ecdcc$bccda7bbcc#e#d%c*bbda",
     ">bad/bbda"};static int S(){return(o[p][q]);}static/**/int/**/Z=0  ;void/**/z(int//
    l){if(/**/Z-l){Z=l;q++;if(p<b*5&&!S()){p+=b;q=0;}}}int main(int I,    /**/char**l){//
   d=sizeof(f*);if(1<(O=_)){b=((sizeof(o)/sizeof(char*))-1)/4;q=22; p=     0;while(p<b*5){
  /*<*/if(Z-1){d=S()>96;i=S()-(d?96:32) ;q++;if(p<b*5&&!S()){p+=b;  q=      0;}Z=1;}/*[[*/
  while(i){_=o[0][S()-97];I=_-10?b:1;   for( ;I--;)putchar(_ );if   (!      --i||d)z(~i );}
 if(p==b*5&&O){p-=b;O--;}}return 0U;   }if(! (P=( f*)calloc /*]*/  (Q        ,I)))return 1;
 {;}for(_=p=1;p<I;p++){e(q=1);while    (q<   p&&  strcmp(  l[p     ]         ,l[(q)]))++  q;
 t=stdin;if(q<p){(void)memcpy/* "      */    (&P  [p],&P   [q     ]          ,Q);continue ;}
if(strcmp(l[p],"-")){t=fopen(l         [     p]   ,"rb"   )                  ;if(!t ){{;}  ;
printf(05+*o,l[p ]);return+1;                      {;}                       }}_=b= 1<<16   ;
*&O=5;do{if(!(P[p].q=realloc   (P[p].q,(P[p].P     +=       b)+1))){return   01;}O   &=72   /
6/*][*/;P[p].o+=d=fread(P[p]      .q       +P[     p           ].       o,  1,b,t)   ;}//
 while(d==b)      ;P [p].q[       P[       p]                  .o       ]=  012;d    =0;
 e(fclose(t        )  );P         [p]      .p                  =P[      p]  .q;if    (O)
 {for(;d<P[            p]          .o     ;d=                   q+     1)    {q=     d;
  while(q<P[                        p].o&&P[                    p].q[q]-     10     ){
  q++;}b=q-d;                         _=P                         [p].        d     ;
  if(b>_){/*]b                                                                */
   P[p].d=b;}{;                                                                }
   #undef/*pqdz'.*/  e//                                                      ;
   #define/*s8qdb]*/e/**/0                                                   //
   //<<.<<.----.>.<<.>++.++<                                              .[>]
   /*P[*/P[p].b++;continue;}}}t=                                       stdout;
  for (p=1;p<I;p++){/**/if(P[p].b>i                               ){i=P[p].b;}}
 if  (O){for(p=0;p<i;p++){q=0;/*[*/while(I               >++q){_=P[q].p-P[q ].q;
b=   0;if(_<P[q ].o){while(012-*P[q].p)     {putchar(*(P[q].p++));b++;}P[q]. p++;
}   ;while (P[  q].d>b++)putchar(040);}             putchar(10);}return 0;}p   =1;
   for(;   p<I   ;p++)fwrite(P[p] .q,P[              p].o,1,t);return 0 ;}//
  #/*]     ]<.    [-]<[-]<[- ]<[    -]<               [-  ]<;*/elif  e    //b
 |(1        <<     ( __LINE__        /*               >>   `*//45))  |     01U
             #                       /*               */     endif            //

コレ自体もコードになってますね。
misaka.c - ミサカ
ここから拝借。


このAAをなんやかんや処理して・・・

最終的なQuine

eval$s=%w'b="BAhsKwIFAQAAAAAAAOD//x8AAAAAwP//////fwcAAAAA/AEAAAAA8AEAAADA/////9/fPwAAAAD8BQAAAACABwAAAMDf//7///3vAAAAAP/+//////8/AAAA+P3///////8HAADg7//////7H/8AAAC+///73//3/T8AAPD9973v/////x8AgP///////////wcA+P///////////wOA/////////////wD4/7/7/////8f/P4D//////9/fv+H/D/j/////////N/D/g//////v//9/Bvx/8P/9/328/7/HwP8d////f8b3/vsM8H/j////fzjOn4MA/s/8////AsP5MQjA/9v///8PIBgfAQD4ffr79/8AAMABAAC/j////4//Pxjw/8Pj8f///4EBBwEwYH48+D+wHzBgAAAGjIcC/wPkAA4MAMCB+XDgfwAYgMEBADAYDgb4HwAA4B8AAP5BYAD/BwAAcAAAAA8QBOD/AQAAAAAAAAAGAPh/AAAAAAAAAIAAAP//HAAAAAAAAAgA4P//BwAAAAAAgAEA/P//BwAAAAAAHgCA////DwAAAAD4AwC4////DwAAAPj/AID53//7/wCA//89ABj++7//g////38PAPE7//91APDff44DAB/H/78PAPz/4wEA8ODwv8MBAPOfcAAABxj0DzAAYPwTGAAAAAIAAAYADD4ADA==";n=Marshal.load(b.unpack("m")[0]);e="eval$s=%w"<<39<<($s*3);o="";j=-1;0.upto(45*93-1){|i|o<<((n[i]==1)?e[j+=1]:32);o<<((i%93==92)?10:"")};o[-10,6]=""<<39<<".join";puts(o)#'.join


これを実行すると・・・

                                                     eval$s=%w'b="BAhsKwIFAQA
                         AAAAAAOD//x8AAAAAwP//////fwcAAAAA/AEAAAAA8AEAAADA ///
                        //9/fPw                                           AAAAD
                       8BQAAAACABwAAAMDf//7///3vAAAAAP/+////// 8/AAAA+ P3//////
                      /8HAADg 7                                            ////
                     //7H/8A AAC+///73/ /3/T8AAPD9973v/////x8AgP ////////// /wc
                  A+P///// //////wOA/////////////wD4/7/7/////8f/P4D//////9/fv+H/
                D/j/// //////N/D/g//////v//9/Bvx/8P/9/328/7/HwP8d////f8b3/vsM8H/
             j////fz jOn4MA/s/8////AsP5MQjA/9v///8PIBgfAQD 4ffr79/8AA   MABAAC/j
            ////4 //Pxjw/8Pj8f///4EBB wEwYH48+D+ wHzBgAAAGjIcC /wPkA A4MAMCB+XDgf
          wAYgM EBADAYDgb 4HwAA 4B8A AP5BY AD/BwAAcAAAAA8QBOD/AQAAAAAAAAAGAPh/AAAAA
        AAAAIAAAP//HAAAAAAAAAgA4P//BwAAAAAAgAEA/P//BwAAAAAAHgCA////DwAAAAD4AwC4////D
       wAAAPj/AID53//7/wCA//89ABj++7//g////38PAPE7//91APDff44DAB/H/78PAPz/4wEA8ODwv8MB
      APOfcAAABxj0DzAAYPwTGAAAAAIAAAYADD4ADA==";n=Marshal.load(b.unpack("m")[0]);e="eva
     l$s=%w"<<39<<($s*3) ;o= "";j=-1;0.upto(45*93-1){|i|o<<((n[i]==1)   ?e[j+=1]:32);o<<
    ((i%93==92)?10:"")};o[-10,6]=""<<39<<".join";p uts(o)# b="BAhsK wI    FAQAAAAAAAOD//x
   8AAAAAwP//////fwcAAAAA/AEAAAAA8AEAAADA/////9/fPwAAAAD8BQAAAACABw AA      AMDf//7///3vAA
  AAAP/+//////8/AAAA+P3///////8HAADg7// ////7H/8AAAC+///73//3/T8AA  PD       9973v/////x8A
  gP/////////// wcA+P////////// /wOA/   //// ////////wD4/7/7 ////   /8      f/P4D////// 9/f
 v+H/D/j/////////N/D/g//////v//9  /B   vx/8P /9/3 28/7/HwP8 d////  f8        b3/vsM8H/j/ //
 /fzjOn4MA/s/8////AsP5MQjA/9v///8PI    Bgf   AQD  4ffr79/  8AA     M         ABAAC/j////  4/
 /Pxjw/8Pj8f///4EBBwEwYH48+D+wH z      Bg    AAA  GjIcC/   wP     k          AA4MAMCB+XDg fw
AYgMEBADAYDgb4HwAA4B8AAP5BYAD/         B     wA   AcAAA   A                  A8QBOD /AQAA  A
AAAAAAG APh/AAAA AAAAAIAAAP//                      HAA                       AAAAAA AgA4P   /
/BwAAAAAAgAEA/P//BwAAAAAAHgC   A////DwAAAAD4Aw     C4       ////DwAAAPj/AI    D53/   /7/w   C
A//89ABj++7//g////38PAPE7//9      1A       PDf     f           44       DA  B/H/78   PAPz
 /4wEA8ODwv8      MB APOfcA       AA       Bx                  j0       Dz   AAYP    w T
 GAAAAAIAAA        Y  ADD         4AD      A=                  =";      n=  Marsh    al.
 load(b.unp            ac          k(     "m"                   )[     0]    );e     ="
  eval$s=%w"                        <<39<<($                    s*3);o="     "      ;j
  =-1;0.upto(                         45*                         93-1        )     {
  |i|o<<((n[i]                                                                ==
   1)?e[j+=1]:3                                                                2
   );o<<((i%93==92)  ?10                                                      :
   "")};o[-10,6]=""<<39<<                                                    ".
   join";puts(o)#b="BAhsKwIF                                              AQAA
   AAAAAOD//x8AAAAAwP//////fwcAA                                       AAA/AEA
  AAA A8AEAAADA/////9/fPwAAAAD8BQAA                               AACABwAAAMDf/
 /7  ///3vAAAAA P/+//////8/A AAA+P3///////               8HAADg7//////7H/8A AAC+
//    /73//3/T8 AAPD9973v// ///x8AgP///     ////////wcA+P///////////wOA///// ////
/   ///wD4 /7/  7/////8f/P4D///// / 9/f             v+H/D/j// ///////N/  D/g   ///
   ///v/   /9/   Bvx/8P/9/328/7/H wP8d/              ///f8b3/vsM8H/j/   ///f
  zjOn     4MA    /s/8////As P5M    QjA               /9  v///8PIBg  f    AQD
 4ff        r7     9 /8AAMABA        AC               /j   ////4//P  x      jw
             /                       8P               j8     f///4            EB    '.join

こんな感じで出てきます。
たーのしー!

Quine×画像

参考
d.hatena.ne.jp

続いては画像のQuine化です。
上記記事ではミクさんのAAがQuineになっています。
実行の際、自分自身を出力するのはもちろんですが、引数に画像のパスを渡した場合はその画像のQuineも生成してくれるみたいです。すごーい。
お借りして遊んでみます。


とある画像を引数に指定してQuineを出力してみようと思います。

































出力結果

eval$s=%w~



               require'zlib';g=Marshal.load(Zl
     ib::      Inflate              .inflate('eJyNkLFuAj
    EQRMdyh    FNE   nOiuQOED0lxJEeV+JfQUlHRnlIKSX9o u+Qp0EgVlL
   kpz   RNZN   1j5    D2qxk62m9Hs3s3f36yXzQ4n/lSdYR2l2NjlTq9idtfjbA8
   nH     PWAu    Uz/   NEtGVX/WhDf1WyAt/qQG5wMPLFnmzdi5Ge30pNb9sQSYb3ItOF
   Mx       lpd4    hz   F 9IbNXGiqvjoeYqjmoi           0bd0wkjQQYpId/9EZDzmEu
    5H        FfK    S+         QHlNiGWioE     GrlDUm3    qTWQq/XJLGND2lOCj2jymA
    hJs         vAm9   yE             z+s   NQKYO4m4rnV6   tumwr/AKJD4GP'.unpack
     ('m')[      0]));  h             ='   eval$s=%w'<<126  <<($s*4);i='';j=-1;3
     200.times{    |k|i<<(           g[k  ]==1?h[j+=1]:32)  ;i<<10if(k%80==79)};
      i[ -7,6]=''<<   126<<'         .jo  in';puts(i)#requ  ire'zlib';g=Marshal.
      loa  d(Zlib::Inflat   e         .i  nflate('eJyNkLFu  AjEQRMdyhFNEnOiuQOED
      0lx      JEeV+   Jf             QU   lHRnlIKSX9ou+Q  p0EgVlLkpzRNZN1j5D2qx
       k6                              2m9   Hs3s3f36yXz  Q4n/lSdYR2l2NjlTq9idtf
       jbA                               8nH             PWAu Uz/NEtGVX/WhDf1WyA
        t/                                 qQG5      wMPLFn      mzdi5Ge30pNb9sQ
        SY                                    b3ItOFMxl               pd4hzF9IbN
         XG                                                             iqvjoeYq
         jm                                                             oi0  bd0
          wk                                                           jQQY
          pI                                                           d/9
          EZD                                                      zmEu5HFfK
           S+                                                  QHlNiGWioEGrlDUm3
           qTW                                            Qq/XJLGND2lO
            Cj                                       2jymAhJsv
            Am9                                   yEz+sNQKYO4
             m4                                rnV6        tumw
             r/A                                              KJD4GP
              '.                                                 unpack('m
              ')[                                                      0]));h='e
               va                                                        l$s=%w'
               <<1                                                        26<<($
                s*                                                          4);i
              ='';j
       =-1;3200. tim
es{|k|i<<(g       [k                                                      ~.join


既視感



何に役立つという記事ではないですが、こういう遊びもあるよという紹介でした。

明日の担当はmatsuneko22さんです。