Original post: http://community.9cbs.net/expert/topic/3329/3329845.xml? Temp = .6935236 I feel that I have to spend a lot of time, but I think that I haven't made some exercise my brain, and the sure is coming Take it, huh, huh =============================================== =========================================== encrypted password starts Function Encrypt (PreString) DIM Texts Dim Seed DIM I, Length preString = trim (preString) length = len (preString) SEED = length randomize (length) texts = "" for i = 1 to length seed = int (94 * RND (-ASC (-ASC (MID (PRESTRING, I, 1) - SEED * ASC (Right (PRESTRING, 1))) 32) Texts = Texts & Chr (Seed) & chr (int (94 * rnd (-seed) 32) Next Dim dist distth = "" For i = 1 to Len (Texts) IF MID (Texts, I, 1) <> "'" Dist = Dist MID (Texts, I, 1) end if next encrypt = disable function' encryption end
This program is encrypted for the password entered by the user. Can this program write a decryption program? How should I start?
After encrypting, the database display password is as follows: AAGB0X? 69pf
