[REBOL] Encryption/Decryption
From: ptretter:charter at: 5-Jul-2001 14:31
I have a problem with a script I'm working on and can't figure out
why it doesn't work right. The problem is that it wont decrypt the
file after encrypting it. See script below. Any suggestions? BTW:
this is a crude script at the moment.
-------------------------
REBOL [
author: "Paul Tretter"
product: "Encryption/Decryption program"
comment {This program encrypts data and decrypts data for file
security}
]
crypt-key: to-binary "REBOL"
crypt-port: make port! [
scheme: 'crypt
algorithm: 'blowfish
direction: 'encrypt
strength: 128
key: crypt-key
padding: true
]
data-sec: layout [banner "Paul's Encrypt/Decrypt Util"
toggle "Encrypt" "Decrypt" [either value [crypt-
port/direction: 'decrypt][crypt-port/direction: 'encrypt]]
button "Choose file" [inputfile: request-file]
button "process" [
open crypt-port
insert crypt-port read/binary to-file inputfile
update crypt-port
write/binary %outputfile copy crypt-port
close crypt-port
]
]
view data-sec