[~rysf13] Robert Yates Stanford
    ______  _______ ______________
   / __ \ \/ / ___// ____<  /__  /
  / /_/ /\  /\__ \/ /_   / / /_ < 
 / _, _/ / /___/ / __/  / /___/ / 
/_/ |_| /_//____/_/    /_//____/
								   
================================================================================
<BACK

Signature Programs

Signature programs are short programs that people have been using as part of
their signature. They are small (2 to 4 lines) programs, that are often rather
cryptic because they have to save space as much as possible.

--------------------------------------------------------------------------------

  " Sight is irrelevant, vision is code,
    Walking the infinite, virtual road.  "
    "IDENTITY: DECLARED", 0x3E-0x3F

Mandelbrot set(C)

main(R,o,b,e,r,t/*Y.S.*/){for(o=15;o--+15;puts(""))for(b
=-53;b++-27;putchar(r+32))for(R=e=r=0;r++<93&R*R+e*e<1e4
;t=(R*R-e*e)/50+b*2,e=R*e/25+o*4,R=t);}//* rysf13@xx.xxx

Blackhole(C)

float R,o,b,e,r,t/*Y.Stanford*/;main(_){for(o=-10;++o<10;puts("")
)for(R=-31;++R<30;)b=R*.98-o*.2,e=o*.98+R*.2,t=hypot(R,2*o)-7,r=(
.65+.35*cos(atan2(2*o,R)-.2))/exp(t*t),t=b*b<225?(.65+b*.023)/exp
(e*e/.3):0,putchar(" .,-~+*#"[_=((r=t>r?t:r)>1?7:r*7)]);}//rysf13

RSA Encryption & Decryption(Perl)
Based on Adam Back's export-a-crypto-system sig.

print pack"C*",split/\D+/,`echo 16dio\U$k"SK@{[unpack"H*",<>]}SM$n\Es
N0p[lN*1lK[d2%Sa2/d0<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsjxp"|dc`

Calculate sqrt(2) to 2333 digits(C)

R=1e3,o,b=1413,e,r[1414],t=800;main(S){for(;o<b;r
[o++]=14);for(;t--;e+=*r*R,printf("%02d",e/R),*r=
e%R)for(e=0,S=b;--S;e/=o,e*=2*S-1)r[S]=(e+=r[S]*R
)%(o=100*S);}/*- √2 2333 digits - Robert Y.S. -*/

Using 'dc'(Shell)

echo '[q]sa[ln0=aln256%Pln256/snlbx]sb48167999393454964631655snlbxq'|dc