[REBOL] Ports #2
From: mattsmac:hotm:ail 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.