home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwRexx.lha / Unencrypt_Message.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-06-25  |  843 b   |  52 lines
  1. /*    Unencrypt_Message
  2.  
  3.         Loads a message and un-encrypts it.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 25 June 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16. RequestFile TITLE "Select encrypted file..."
  17. FileName = Result
  18.  
  19. If RC > 0 THEN
  20.     Exit
  21.  
  22.  
  23. If Open('MyFile', FileName, R) THEN DO
  24.  
  25.     New
  26.     Address Value Result
  27.  
  28.     Document A4 "0.5in" "0.5in" "0.6in" "1.0in"
  29.     Zoom 100
  30.     Paragraph 0 0 0 LEFT AUTO SINGLE NONE NONE
  31.  
  32.     Font NAME "Shannon Book" SIZE 10 PLAIN
  33.  
  34.     DO Until EOF('MyFile')
  35.         MyLine = ReadLn('MyFile')
  36.         LengthLine = Length(MyLine)
  37.         Cache = ''
  38.         DO Num = 1 to LengthLine
  39.              MyChar = SubStr(MyLine, Num, 1)
  40.             MyChar = BitChg(MyChar, 1)
  41.             Cache = Cache || Mychar
  42.         END
  43.         Text Cache
  44.         NewParagraph
  45.     END
  46.  
  47.     Call Close('MyFile')
  48.  
  49. END
  50. ELSE
  51.     RequestNotify PROMPT "Error: Unable to open file!"
  52.