Solved Copy & Paste loses last 7 characters.

[HillTJ]

@arnelgp , A few moments of your time please. I like what you've done & wish to adapt to my project. I've copied each of the 3 modules, frmValidate & MsysCode. I notice in your example that MsysResources is populated from the data in the class Module. How do I do that?. Also MsysCode table is empty, but I can copy to it using sub CodeGen in module1. Is this correct?

I guess I'm asking for how to do a 'fresh' installation. Appreciate it.

 

[arnelgp]

like i said, MsysCode is not used any more, except for saving the generated decrypted password/validation code.
see module1 (Sub codeGen), you can modify the code to how long your password/validation code you want to look.
after you run the code, table msyscode will be filled with un-encrypted text.
you run Encrypt() function to each record and save it (the Encrypted text) in class clsRecord (on Class_Initialization method).
after you have done filling this class (the k collection), delete all record from msyscode and generate
another set for the validation code.
again fill clsrecord (the v collection), this time with "unencrypted" text generated.

there is also some Subs in Module1 that you can reset the password to the default (ResetLic)(first item in collection) and/or
reset the Date (ResetDate), so you can test it again.

 

[HillTJ]

OK, just to be sure I understand. I clear our any records in table msyscode. Run sub Codegen to populate 20 codes. Then copy each code in turn into Encrypt() then copy the encrypted result into the class module, overwriting existing. I then clear msyscode, run codegen again, then copy each unencrypted record to the class module. Yes?

 

[arnelgp]

Then copy each code in turn into Encrypt()

you can just use an Update query to Encrypt it:

currentdb.Execute "update MsysCode set Code = Encrypt(Code);"

 

[HillTJ]

@arnelgp , Just letting you know that I have adapted your code to my application, thank you. I think it's very clever, thanks for sharing. Now back to the main project.....