2004-08-14 18:00

'
' Choose one of the following 5 $include
' -----------------------------
'$Include "QRC4Asm.Inc"   ' = Type_1b, my choice
'$Include "QRC4Asm_Type_1a.Inc"
'$Include "QRC4Asm_Type_1b.Inc"
'$Include "QRC4Asm_Type_2a.Inc"
     $INCLUDE "QRC4Asm_Type_2b.Inc"
' -----------------------------
' ENCRYPTATION
     RC4File ("MP3Format.Html", "MP3Format.Encrypted", "Nice Password", 2000)
     PRINT " 'MP3Format.Html'        Encrypted under   'MP3Format.Encrypted'"
' DECRYPTATION
     RC4File ("MP3Format.Encrypted", "MP3Format.Decrypted", "Nice Password", 2000)
     PRINT " 'MP3Format.Encrypted'   Decrypted under   'MP3Format.Decrypted'"
'
     DEFSTR sExit
     INPUT "                    CR to QUIT", sExit
     Application.Terminate
     END
'

2004-08-14 18:00