OpenEuphoria

File Encrypter

• Posted by Tristen Wilson <wood_dip_kill at yahoo.com> Jun 14, 2007
• 621 views

I built a file encrypter from scratch but the decoder can't seem to read
the Multipliers.

include get.e
include misc.e
include machine.e
include database.e

atom db1, db2, mem, db3, plex, div
db1 = db_open("user.dat", DB_LOCK_NO)
db2 = db_select_table("mem")
// Memory available for get_bytes()
mem = db_record_data(1)
db3 = db_select_table("user")
plex = db_record_data(1)
div = db_record_data(2)


atom openf, new
sequence file, getb, out
file = prompt_string("File to Decode: ")
openf = open(file, "r")
getb = get_bytes(file, mem)
out = getb / plex * div
new = open("out.txt", "w")
puts(new, out)

This program may have a couple of bugs, I left the copy in the car.
but the encoder reads the file, the multiplies the ASCII characters then
stores the multipliers in the database for use by the decoder. I have only 
used EUphoria for about 1/2 year.