Search results

:)

Is the repar being done under the cars warenty? I thought you only got 12 months on repairs you paid to have carried out. Plus if the engine goes later as a direct result of the original problem this will not be covered by the warrenty of the repair.

Bored with my own work :) !!

Does it matter if the code generates more licence keys that are divisable by 65 than ones add up to 4095 as it appears to at the moment. I can add another small bit of randomisation to make sure it goes between the two types of key more regularly? Without working it out explicitly I think my...

Cheers mate still driving my DCI at the moment but perhaps some day I will own a sport and be at a meet :)

I think they have gotten round that passing the checksum div by 65 by saying each part of the key must be between 100 and 999

:) I think it can get quite confusing when using loops, ands, ors and nots together! You often get double negatives. Like (i want it to not loop when something is not equal to something!)

When it is divisiable by 65 it drops out the loop as it is a valid licence key. i.e. i want it to keep looping while the remainder is not = 0 So while (the check sum is not = 4095 and the remainder is not = 0) then keep generating numbers.

Mmmmm beer :)

Cool glad it worked. Take it easy. D

Not your computer was just cutting and pasting to and from the forum was corrupting the code. Copy it now. Hope it works! D

Done Cheers :)

ah ha go to line 34 and get rid of the space in li cenceKeyPart4 so it reads licenceKeyPart4 cutting and pasting from the form breaks it for some reason!

this is strange it works then when i cut and paste it it back from the forum it breaks!

Try again think something went wrong during pasting.

Dim licenceKey Dim licenceKeyCheckSum Dim intHighestNumber Dim licenceKeyPart1 Dim licenceKeyPart2 Dim licenceKeyPart3 Dim licenceKeyPart4 Dim licenceKeyPart5 Dim licenceKeyPart6 intHighestNumber = 999 licenceKeyPart1 = 0 licenceKeyPart2 = 0 licenceKeyPart3 = 0 licenceKeyPart4 = 0...

Stange it is running fine at my end! I would just ditch it and start a new file then do the cut and paste again or are you trying to run snoops code? cause it isn't VB Script so won't run in the same way.

Yeah LOL!!!

Sorry the second lot of code I gave you compleatly replaces the first lot.

the above version also checks for numbers divisable by 65.

Deleted

VBScript sorry to go OTT but this was much more interesting than what I am working on!! LOL

There is probably a much more efficient way to do this using a formula to gen the number the above is crude. But I can't be arsed to do the maths to work out a formula

Stick the above into a text file rename genLicenceKey.vbs and double click. It is crude and I haven't done the bit that works out if it is divisable by 65 but it is a start :)

Dim licenceKey Dim licenceKeyCheckSum Dim intHighestNumber Dim licenceKeyPart1 Dim licenceKeyPart2 Dim licenceKeyPart3 Dim licenceKeyPart4 Dim licenceKeyPart5 Dim licenceKeyPart6 intHighestNumber = 999 licenceKeyPart1 = 0 licenceKeyPart2 = 0 licenceKeyPart3 = 0 licenceKeyPart4 = 0...

another quick question do the groups of 3 's add up to 4095 or each individual number i.e. 456 + 187 ect or 4+5+6+7

So do you want to caculate all the possible licence key combos rather than writing a licnce key into your software?

Would this method not still require a database of all the licenece keys you use? So when a licence key is entered the hash's can be compared?

Sorry that was a bit brief. It is easy to genrate a random serious of alpanumerics in any language. i.e. using reglar expresions you could say genetare me a string wich is in the form A34F-E34G-D789-ABEG The hard part is the bit that checks if that is a valid licence key. You need to...

Depends if you want to just generate a random licence key or if it needs to pass a check sum?