From: "Judson McClendon" 
Subject: Re: Looking for Basic Encryption Program
 
If you want a simple code which works with all 256 characters, and is easy to
implement, just use XOR with &HFF (or 255).  This is not high-tech here, or
very difficult to break, but it makes any readable text look like garbage.
Here is a simple little program to code and uncode a message.
 
INPUT "Enter Uncoded Message: "; U$
C$ = ""
FOR I = 1 TO LEN(U$)
   UncodedChar$ = MID$(U$, I, 1)
   CodedChar$ = CHR$(ASC(UncodedChar$) XOR 255)
   C$ = C$ + CodedChar$
NEXT
PRINT "Coded Message: "; C$
U$ = ""
FOR I = 1 TO LEN(C$)
   CodedChar$ = MID$(C$, I, 1)
   UncodedChar$ = CHR$(ASC(CodedChar$) XOR 255)
   U$ = U$ + UncodedChar$
NEXT
PRINT "Uncoded Message: "; U$
--
Judson McClendon          This is a faithful saying and worthy of all
Sun Valley Systems        acceptance, that Christ Jesus came into the
judmczzz@mindspring.com   world to save sinners  (1 Timothy 1:15)
(please remove zzz from email id to respond)
 
Jason Mclaughlin  wrote:
> I was wondering if anyone would happen to have some kinna simple encryption
> program written in Basic (source). Something like ROT13 that I can look at.
> I was trying to make a ROT13 program but I don't know exactly how the
> encryption method works, I know it changes the character into something
else
> and it's always the same thing but I don't know what is suppost to become
> what.
> thanks
>
>
>
 
*** QwkNews (tm) v2.1
 * [TN11.1] Internet Newsgroup
--- GEcho 1.20/Pro
---------------