home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / xor.bas < prev   
Encoding:
BASIC Source File  |  1996-09-29  |  297 b   |  17 lines
  1.  
  2. REM Convert text to XOR command!
  3.  
  4. a$="This is an example of XOR"
  5. p$="This is the password!"
  6.  
  7. FOR a=1 TO LEN(a$)
  8. b$=MID$(a$,a,1)
  9. b=ASC(b$)
  10. FOR c=1 TO LEN(p$)
  11. b=b XOR ASC(MID$(p$,c,1))
  12. NEXT c
  13. c$=c$+CHR$(b)
  14. NEXT a
  15.  
  16. PRINT "'"+a$+"' becomes..."
  17. PRINT "'"+c$+"' when using the password"