[REBOL] Re: RSA Encryption
From: mattsmac:hotm:ail at: 13-Nov-2003 11:30
When I try to encrypt the encryption key, using the alternate party's public
RSA key, I get a windows fault and the program has to close. Here is my
code.
Server
---------
rsa-key: rsa-make-key
rsa-generate-key rsa-key 1024 3
; send client our public key
insert last clients enbase rsa-key/n
; get the client's encrypted encryption key
wait [(last clients) tout]
crypt-key: debase first last clients
; decrypt it using our private key
crypt-key: rsa-encrypt/private/decrypt rsa-key crypt-key
Client
-------
rsa-key: rsa-make-key
wait fileserve
rsa-key/n: debase first fileserve ; server's public key
; generate an encrypt/decrypt key for this session and
; encrypt it using fileserve's public key and send it to fileserve
crypt-key: copy/part checksum/secure mold now/precise 16
crypt-key: rsa-encrypt rsa-key crypt-key
insert fileserve enbase crypt-key
Anything you see in here that would be causing some sort of fault or
something?
Matt
