From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,7ba49aac4e73460
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.74.201 with SMTP id w9mr8003976pbv.0.1329075765247;
        Sun, 12 Feb 2012 11:42:45 -0800 (PST)
Path: 
 wr5ni17205pbc.0!nntp.google.com!news2.google.com!postnews.google.com!i2g2000vbv.googlegroups.com!not-for-mail
From: Will <willmann817@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Need Help On Ada95 Problem
Date: Sun, 12 Feb 2012 11:42:44 -0800 (PST)
Organization: http://groups.google.com
Message-ID: <745f3b54-1f9a-446d-ace2-3affeb84a5b3@i2g2000vbv.googlegroups.com>
References: 
 <a5adb33b-96ba-4f48-adfa-9a01e1d42a7d@j14g2000vba.googlegroups.com>
 <553ceec3-ec34-41de-9723-0dc342379cfe@vv9g2000pbc.googlegroups.com>
 <jh1sbs$tqp$1@dont-email.me>
 <4ea6309f-cf07-44f6-8c56-5189a0081dcc@g27g2000yqa.googlegroups.com>
 <jh2a4n$kmn$1@dont-email.me>
 <e2385dd8-f24b-43f6-a41d-36ac90a524dd@x19g2000yqh.googlegroups.com>
 <wccfweia1w9.fsf@shell01.TheWorld.com>
 <43ebdc77-d90a-4213-8e74-db92ad373e14@m7g2000vbw.googlegroups.com>
NNTP-Posting-Host: 134.240.18.64
Mime-Version: 1.0
X-Trace: posting.google.com 1329075765 3569 127.0.0.1 (12 Feb 2012 19:42:45
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 12 Feb 2012 19:42:45 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: i2g2000vbv.googlegroups.com; posting-host=134.240.18.64;
 posting-account=CZZpzgoAAAAoaHoNNp9zhY9EzQgEmxhU
User-Agent: G2/1.0
X-Google-Web-Client: true
X-Google-Header-Order: HUALESNKRC
X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.24)
 Gecko/20111104 Red Hat/3.6.24-3.el6_1 Firefox/3.6.24,gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1
Date: 2012-02-12T11:42:44-08:00
List-Id: <comp.lang.ada>

Here are the test cases

put("Encrypt = ");

	put( Encrypt("6789") );

	new_line;



   put("Encrypt = ");

	put( Encrypt("5432") );

	new_line;



	put("Encrypt = ");

	put( Encrypt("0926") );

	new_line;



	put("Encrpyt = ");

	put( Encrypt("7359") );

	new_line;