[REBOL] PGP encryption from REBOL Re:
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--
