working pascal encrypt