http://jsfiddle.net/justjavac/KbetG/
javascript 的 quine 程序升级版
@Humphry 注釋是可以去掉的，但是要留個空格替換。：
eval(z='p="<"+"pre>"/* */;for(y in n="zw24l6k\
4e3t4jnt4qj24xh2 x/* */42kty24wrt413n243n\
9h243pdxt41csb yz/* */43iyb6k43pk7243nm\
r24".split(4)){/* */for(a in t=pars\
eInt(n[y],36)+/* */(e=x=r=[]))for\
(r=!r,i=0;t[a/* */]>i;i+=.05)wi\
th(Math)x-= /* */.05,0>cos(o=\
new Date/1e3/* */+x/PI)&&(e[~\
~(32*sin(o)*/* */sin(.5+y/7))\
+60] =-~ r);/* */for(x=0;122>\
x;)p+=" *#"/* */[e[x++]+e[x++\
]]||(S=("eval"/* */+"(z=\'"+z.spl\
it(B = "\\\\")./* */join(B+B).split\
(Q="\'").join(B+Q/* */)+Q+")//m1k")[x/2\
+61*y-1]).fontcolor/* */(/\\w/.test(S)&&"#\
03B");document.body.innerHTML=p+=B+"\\n"}setTimeout(z)')//
向 @justjavac 大神致敬，向 sf 社区致敬：
eval(z='p="<"+"pre>"/* */;for(y in n="zw24l6k\
4e3t4jnt4qj24xh2 x/* */42kty24wrt413n243n\
9h243pdxt41csb yz/* */43iyb6k43pk7243nm\
r24".split(4)){/* SSSS FFFFFFFF */for(a in t=pars\
eInt(n[y],36)+/* SSS SSS FF */(e=x=r=[]))for\
(r=!r,i=0;t[a/* SS FF */]>i;i+=.05)wi\
th(Math)x-= /* SSS FF */.05,0>cos(o=\
new Date/1e3/* SSSSSS FFFFFFFF */+x/PI)&&(e[~\
~(32*sin(o)*/* SSS FF */sin(.5+y/7))\
+60] =-~ r);/* SS FF */for(x=0;122>\
x;)p+=" *#"/* SSS SSS FF */[e[x++]+e[x++\
]]||(S=("eval"/* SSSS FF */+"(z=\'"+z.spl\
it(B = "\\\\")./* */join(B+B).split\
(Q="\'").join(B+Q/* */)+Q+")//m1k")[x/2\
+61*y-1]).fontcolor/* */(/\\w/.test(S)&&"#\
03B");document.body.innerHTML=p+=B+"\\n"}setTimeout(z)')//
cool!
答案请笑纳