Ports #2

[1/5] 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.

[2/5] from: andrew:martin:colenso:school at: 9-Sep-2003 8:29

> while [not error? try [append everything to-char first dataport]]

Try: while [not error? try [append everything copy dataport]] Andrew J Martin Attendance Officer & Information Systems Trouble Shooter Colenso High School Arnold Street, Napier. Tel: 64-6-8310180 ext 826 Fax: 64-6-8336759 http://colenso.net/scripts/Wiki.r?AJM http://www.colenso.school.nz/ DISCLAIMER: Colenso High School and its Board of Trustees is not responsible (or legally liable) for materials distributed to or acquired from user e-mail accounts. You can report any misuse of an e-mail account to our ICT Manager and the complaint will be investigated. (Misuse can come in many forms, but can be viewed as any material sent/received that indicate or suggest pornography, unethical or illegal solicitation, racism, sexism, inappropriate language and/or other issues described in our Acceptable Use Policy.) All outgoing messages are certified virus-free by McAfee GroupShield Exchange 5.10.285.0 Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]

[3/5] from: andrew:martin:colenso:school at: 9-Sep-2003 8:36

I wrote:

> while [not error? try [append everything copy dataport]]

And I'm almost sure that this loop is wrong! Andrew J Martin Attendance Officer & Information Systems Trouble Shooter Colenso High School Arnold Street, Napier. Tel: 64-6-8310180 ext 826 Fax: 64-6-8336759 http://colenso.net/scripts/Wiki.r?AJM http://www.colenso.school.nz/ DISCLAIMER: Colenso High School and its Board of Trustees is not responsible (or legally liable) for materials distributed to or acquired from user e-mail accounts. You can report any misuse of an e-mail account to our ICT Manager and the complaint will be investigated. (Misuse can come in many forms, but can be viewed as any material sent/received that indicate or suggest pornography, unethical or illegal solicitation, racism, sexism, inappropriate language and/or other issues described in our Acceptable Use Policy.) All outgoing messages are certified virus-free by McAfee GroupShield Exchange 5.10.285.0 Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]

[4/5] from: tomc:darkwing:uoregon at: 8-Sep-2003 14:11

On Mon, 8 Sep 2003, Matt MacDonald wrote:

> Here is the exact code that I am using for this function: > decrypt: func [dataport [port!]]

<<quoted lines omitted: 12>>

> while[data: copy dataport][append everything data] > print everything <------------ prints nothing

try something more like this also keep in mind that you are getting a binary stream earler you saw two integer because they were interperted as integers by the printing process you used to determine what was comming to the port I do not know that you can count on copying one byte at a time off the port, maybe one of the network gurus (or putting a 'print data' in the loop) will answer that.

[5/5] from: greggirwin::mindspring::com at: 8-Sep-2003 15:40

Hi Matt, MM> everything: "" MM> clear everything MM> while [not error? try [append everything to-char first dataport]] Maybe try: everything: copy "" while [wait dataport data: copy dataport] [ append everything data ] -- Gregg

Notes

Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted