-----------------------------------

zylum

Mon Mar 08, 2004 6:32 pm


encryption program

-----------------------------------

here is a simple encryption program i made... what can i do to improve it?

const letters := 52
var key : array 1 .. letters of string
var c : string

procedure createKey
    for i : 1 .. letters
        key (i) := ""
    end for
    var next : int
    for i : 1 .. letters
        loop
            key (i) := chr (Rand.Int (33, 126))
            next := 1
            for j : 1 .. letters
                if key (i) = key (j) and j not= i then
                    next := 0
                end if
            end for
            exit when next = 1
        end loop
    end for
end createKey

createKey

fcn encrypt (message : string) : string
    var encrypted : string := ""
    for i : 1 .. length (message)
        if ord (message (i))