Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Ports #2

From: mattsmac:ho:tmail at: 8-Sep-2003 16:18

Here is the exact code that I am using for this function: decrypt: func [dataport [port!]] [ crypt-key: #{5C2486ADFD7F36765A7A163E86C6FB9A} decrypt-port: make port! [ scheme: 'crypt algorithm: 'blowfish direction: 'decrypt strength: 128 key: crypt-key padding: true ] everything: "" clear everything i: 0 while [not error? try [append everything to-char first dataport]] [] print everything <------------ prints nothing halt open decrypt-port insert decrypt-port a update decrypt-port result: copy decrypt-port close decrypt-port return to-string result ] and the call user: decrypt last clients clients is defined as: listener: open/binary tcp://:8001 insert clients first listener _________________________________________________________________ Get 10MB of e-mail storage! Sign up for Hotmail Extra Storage.