| Author |
Message |
Oliver Bock
| | Posted on Wednesday, November 17, 2004 - 6:08 pm: | |
The PERL script mucks up the encoding of the date when the license ID is of length 16. It's OK for lengths 5 to 15, and 17 and 18 also work.
You can observe this using seeds 82229366, 148131088 and 141461335.
For a non-expiring license, demo1 generates 5B120D597A1C9DE3BC77 and regware4gen.pl generates 5B1210D597A1C9DE3BC77.
I have compared the two versions and I believe I have fixed it by changing the line that reads
if ($V1 > 16) { $S5 = '0' } else { $S5 = sprintf("%X", $V1) };
to
if ($V1 > 16) { $S5 = '0' } else { $STMP = sprintf("%X", $V1); $S5 = chop $STMP; };
|
Marius
| | Posted on Friday, December 10, 2004 - 5:46 am: | |
Do you mind if you send an email to mmariusel@gmx.net with the changes you have to to the perl script?
Thank you |
Oliver Bock
| | Posted on Monday, January 03, 2005 - 6:40 pm: | |
The only change is the one in my original post. Did you have trouble finding this line?
Sorry I only just responded to this. I could not find a way to be notified of new messages on this discussion board and I forget to check it regularly.
Oliver |
|