[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:= . }

 iLoc g integer h

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

 testing1 h

More information about the fpc-pascal mailing list