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

con.focus

Sat Jan 08, 2005 8:34 pm


encryption help

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

ok    i made a password program and n encrption program
var key : string (1)
var password : string := ""
var counter : int
counter := 1
loop
    put "enter a password"
    loop
        getch (key)
        exit when ord (key) = 10
        put "*" ..
        password += key
    end loop
    put ""
    if password = "t{f" then  %