RETAS-Logo
RETAS-Logo
This page is not mobile friendly.
Better watch on bigger screen.

computer/programs/useless/secunet_contest/entry_1

;3%5;3%5;3%5;2 ;5 ; ;%4;3%5;4 ;5
;2 ;open _ ,$0;2 ; ;5 ; ;3;2 ;1%2;4 ; ;5 ;3 ;5
;2 ;7 ;5 ; ;;while (<_>) { ;5 ; ;5 ;1%6;2
;3%5;2%7; ;7 ;2;s;%; ;g;3 ;1%7;2; ;5
;8 ; ;;s'([; ])(\d)' $1x$2 ; 'ge;; ; s'\S';'g; ;4;
s; ;#;g; ; ;5 ; ;5 ; ;5 ; ;5 ; s;\;; ;g; ;3 ;
;3%5;3%5;3%5;3%5;; print ;}%5;5%3;2

Code pieces like %4;3%5;4 ; are of no effect. The source code is read in
and modified by five substitute operators before it is printed:

 s;%; ;g;
 s'([; ])(\d)' $1x$2 ; 'ge
 s'\S';'g
 s; ;#;g;
 s;\;; ;g;

next

Download the source.