PGP encryption from REBOL

[1/3] from: princepawn:lycos at: 30-Aug-2000 10:16

Hi I would like ... rephrase that: In order to impress my higher-ups, I MUST demonstrate the ability of REBOL to encrypt a file and ftp it to a host. I can handle the FTP part. Vis-a-vis the PGP part, from Perl we were making system calls to a PGP binary. But REBOL does appear to make system calls. --- ; run this in your ; <a href=http://www.rebol.com>REBOL</a> Interpreter! terrence-brannon: [ [princepawn--yahoo--com] perl-refugee myth-gamer ] perl-refugee: [ 'loved href perl discovery: (metaperl = rebol) 'hates href perl ] myth-gamer:http://www.bungie.net/bin/stats.pl?player=princepawn ; angles makes this a href instead of code! use ur imagination! href: func [U T] [ rejoin [ "a href=" U ">" T "/a" ] ] perl: href http://www.perl.com "Perl" On Wed, 30 Aug 2000 8:37:13 grantwparks wrote:

[2/3] from: ryanc::iesco-dms::com at: 30-Aug-2000 15:07

This is a multi-part message in MIME format. --------------6FCFE06D5B5E0511DA4BAC21 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit [princepawn--lycos--com] wrote:

> Hi I would like ... rephrase that: In order to impress my higher-ups, I MUST demonstrate the ability of REBOL to encrypt a file and ftp it to a host. I can handle the FTP part. > > Vis-a-vis the PGP part, from Perl we were making system calls to a PGP binary. But REBOL does appear to make system calls. >

PGP system calls? sounds like a job for /Command. Otherwise if you just want to show off your encryption capabilities, use the attached scripts. Encryption is very slow though, and decryption could kill you, although the routine is not optimized at all. Maybe you could speed it up. Its not PGP, but it does have the nice feature of dialing in your level of protection--if your willing to wait. --Ryan Ryan Cole Programmer Analyst www.iesco-dms.com 707-468-5400 --------------6FCFE06D5B5E0511DA4BAC21 Content-Type: application/x-unknown-content-type-r_auto_file; name="encrypts.r" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="encrypts.r" UkVCT0wgWw0KICAgIHRpdGxlOiAiZW5jcnlwdHMuciINCl0NCg0KO3NpbXBsZSwgeWV0IGVm ZmVjdGl2ZSBlbmNyeXB0aW9uIA0KDQpjcnlwdC10YWJsZTogdG8taGFzaCBsb2FkICVjcnlw dC50YWINCg0Kd2hpbGUgWw0KICBlcnJvcj8gdHJ5IFsNCiAgICBtZXNzYWdlOiB0by1zdHJp bmcgcmVhZC9iaW5hcnkgdG8tZmlsZSBhc2sgIkVudGVyIGZpbGUgdG8gZW5jcnlwdDogICIN CiAgXSANCl0gWyBdDQoNCmNyeXB0LW1zZzogY29weSAiIg0KDQpyYW5kb20vc2VlZCBub3cN Cg0KZm9yZWFjaCBjaGFyYWN0ZXIgbWVzc2FnZSBbDQogIGNoYXItY3J5cHRzOiBzZWxlY3Qv Y2FzZSBjcnlwdC10YWJsZSB0by1pbnRlZ2VyIGNoYXJhY3Rlcg0KICBjaHVuazogcGljayBj aGFyLWNyeXB0cyByYW5kb20gbGVuZ3RoPyBjaGFyLWNyeXB0cw0KICBmb3JlYWNoIGNoaW5r IGNodW5rIFthcHBlbmQgY3J5cHQtbXNnIHRvLWNoYXIgY2hpbmtdIA0KXQ0KDQp3cml0ZS9i aW5hcnkgdG8tZmlsZSBhc2sgIkVudGVyIG5ldyBlbmNyeXB0ZWQgZmlsZSdzIG5hbWU6ICAi IGNyeXB0LW1zZw0KIA== --------------6FCFE06D5B5E0511DA4BAC21 Content-Type: application/x-unknown-content-type-r_auto_file; name="make-crypt.r" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="make-crypt.r" UkVCT0wgW10NCg0KcHJpbnQgew0KRGlhbCB5b3VyIG93biBlbmNyeXB0aW9uISINCg0KQnl0 ZSBjaHVua3MgYXJlIGEgZ3JvdXAgb2YgYnl0ZXMgdGhhdCBhcmUgdXNlZCB0byByZXBsYWNl DQphIHNpbmdsZSBieXRlIG9mIGRhdGEuIFRoZXNlIGNhbiBiZSBzZXQgdXAgdG8gYmUgZGlm ZmVyZW50DQpzaXplcyBtYWtpbmcgZGVjcnlwdGlvbiB3aXRob3V0IGEgdGFibGUgbXVjaCBt b3JlIGRpZmZpY3VsdC4NCg0KVGhlIHZhcmlhbmNlIGJldHdlZW4gdGhlIG1pbmltdW0gYW5k IG1heGltdW0gaXMgZW50aXJlbHkgdXANCnRvIHlvdSwgYnV0IGRvIGF2b2lkIGxvdyBtaW5p bXVtIHZhbHVlcyBmb3IgYmVzdCByZXN1bHRzLg0KT2YgY291cnNlIHRoZSBtb3JlIHZhcmlh dGlvbnMgdGhlIGJldHRlciwgYnV0IHRoZXNlIGFsc28gDQpzaWduaWZpY2FudGx5IGluY3Jl YXNlIG92ZXJoZWFkLg0KDQp9DQogDQoNCnNldHVwOiBbDQogIG1pbi1jaHVuazogdG8taW50 ZWdlciBhc2sgIk1pbmltdW0gYnl0ZSBjaHVuazogIg0KICBtYXgtY2h1bms6IHRvLWludGVn ZXIgYXNrICJNYXhpbXVtIGJ5dGUgY2h1bms6ICINCiAgcmFuZG9tLWNodW5rLXNpemU6IG1h eC1jaHVuayAtIG1pbi1jaHVuaw0KICBieXRlLXZhcmlhdGlvbjogdG8taW50ZWdlciBhc2sg Ik51bWJlciBvZiB2YXJpYXRpb25zIHBlciBieXRlOiAiDQpdDQoNCmRvIHNldHVwDQoNCndo aWxlIFsobWluLWNodW5rICogMTI4KSA8IGJ5dGUtdmFyaWF0aW9uXSBbDQogIHByaW50ICJU b28gbWFueSBieXRlIHZhcmlhdGlvbnMgZm9yIGNodW5rIHNpemUhIg0KICBkbyBzZXR1cA0K XQ0KDQpyYW5kb20vc2VlZCBub3cNCg0KZ2V0LWNodW5rOiBmdW5jIFtdIFsNCiAgbXljaHVu azogY29weSBbXQ0KICBsb29wIChtaW4tY2h1bmsgKyByYW5kb20gcmFuZG9tLWNodW5rLXNp emUpIFsNCiAgICBhcHBlbmQgbXljaHVuayAoMjU2IC0gcmFuZG9tIDI1NikNCiAgXQ0KXQ0K DQpjaHVuazogY29weSAiIg0KY3J5cHQtdGFibGU6IGNvcHkgW10NCmRlY3J5cHQtdGFibGU6 IGNvcHkgW10NCg0KZm9yIGNoYXJhY3RlciAwIDI1NSAxIFsNCiAgcHJpbnQgcmVqb2luIFsi Y29kaW5nIGNoYXJhY3RlcjogICIgY2hhcmFjdGVyXQ0KICBjaHVua3M6IGNvcHkgW10NCiAg bG9vcCBieXRlLXZhcmlhdGlvbiBbDQogICAgZm91bmQtY2h1bms6IFRSVUUgO2p1c3QgdG8g c2VlZCB0aGUgbG9vcA0KICAgIHdoaWxlIFsgZm91bmQtY2h1bmsgXSBbDQogICAgICBmb3Vu ZC1jaHVuazogRkFMU0UNCiAgICAgIGNodW5rOiBnZXQtY2h1bmsNCiAgICAgIGZvciBjaHVu ay1wYXJ0IG1pbi1jaHVuayBtYXgtY2h1bmsgMSBbDQogICAgICAgIGlmIGZpbmQgZGVjcnlw dC10YWJsZSBjb3B5L3BhcnQgY2h1bmsgY2h1bmstcGFydCBbZm91bmQtY2h1bms6IFRSVUVd DQogICAgICBdIA0KICAgIF0gDQogICAgYXBwZW5kIGRlY3J5cHQtdGFibGUgcmVkdWNlIFtj aHVuayBjaGFyYWN0ZXJdDQogICAgYXBwZW5kL29ubHkgY2h1bmtzIGNodW5rDQogIF0NCiAg YXBwZW5kIGNyeXB0LXRhYmxlIGNoYXJhY3Rlcg0KICBhcHBlbmQvb25seSBjcnlwdC10YWJs ZSBjaHVua3MNCl0NCg0Kc2F2ZSAlY3J5cHQudGFiIGNyeXB0LXRhYmxlDQpzYXZlICVkZWNy eXB0LnRhYiBkZWNyeXB0LXRhYmxlDQoNCg== --------------6FCFE06D5B5E0511DA4BAC21--

[3/3] from: ryanc:iesco-dms at: 30-Aug-2000 15:37

This is a multi-part message in MIME format. --------------41B3A3ABAEAACCB90B19BB4C Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit And of course decrypts... --Ryan --------------41B3A3ABAEAACCB90B19BB4C Content-Type: application/x-unknown-content-type-r_auto_file; name="decrypts.r" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="decrypts.r" UkVCT0wgWw0KICAgICBUaXRsZTogIkRlY3J5cHRzLnIiDQpdDQoNCmRlY3J5cHQtdGFibGU6 IHRvLWhhc2ggbG9hZCAlZGVjcnlwdC50YWINCg0Kd2hpbGUgWw0KICBlcnJvcj8gdHJ5IFsN CiAgICBjcnlwdC1tc2c6IHRvLXN0cmluZyByZWFkL2JpbmFyeSB0by1maWxlIGFzayAiRW50 ZXIgZmlsZSB0byBkZWNyeXB0OiAgIg0KICBdIA0KXSBbIF0NCg0KdGVtcDogY29weSBbXQ0K ZGVjcnlwdC1tc2c6IGNvcHkgIiINCg0KcHJpbnQgIldvcmtpbmcuLi4iDQoNCmZvcmVhY2gg Y2hhcmFjdGVyIGNyeXB0LW1zZyBbDQogIGFwcGVuZCB0ZW1wIHRvLWludGVnZXIgY2hhcmFj dGVyDQogIGlmIGRlY3J5cHRlZC1jaGFyOiBzZWxlY3Qvb25seSBkZWNyeXB0LXRhYmxlIHRl bXAgWw0KICAgIGFwcGVuZCBkZWNyeXB0LW1zZyB0by1jaGFyIGRlY3J5cHRlZC1jaGFyDQog ICAgdGVtcDogY29weSBbXQ0KICBdDQpdDQoNCndyaXRlL2JpbmFyeSB0by1maWxlIGFzayAi RW50ZXIgbmV3IGRlY3J5cHRlZCBmaWxlcyBuYW1lOiAgIiBkZWNyeXB0LW1zZw0KDQo--------------41B3A3ABAEAACCB90B19BB4C--