[fpc-pascal] Silly Syntax Games

L505 fpc505 at z505.com
Fri Jun 10 02:48:20 CEST 2005


| How about making an International Obfuscated Pascal Code Contest? :)

This program below compiles.. this is a  good way to protect your source code from
being read by other people.
i.e or you could just use C or Perl instead.


program Project1;

{$mode objfpc}{$H+}


{$define Z:= begin }
{$define X:= end }
{$define Y:= procedure }
{$define A:= for }
{$define B:= to }
{$define C:= do }
{$define D:= writeln }
{$define E:= var }
{$define F:= := }
{$define G:= : }
{$define H:= ; }
{$define I:= . }



e
 iLoc g integer h

 Y testing1 h
 Z
  a iLoc f 1 b 60 c
   d('test') h
 X h

Z
 testing1 h
X I





More information about the fpc-pascal mailing list