Perl serial key generator

The Problem is that I need a god solution to make a serial key in Perl, and so I wrote this program.You could give him a ID to generate a unique serial or you could just use the random function.

serial

is the function for the serial, it generates 10 Blocks of 8 numbers, the first is the ID, with the ID you could generate the serial, then from 2-9 is the serial and the last block is a quick checksum.

quick_keycheck

It calculates a simple checksum from block 2-9 and number 10. the checksum.Its just a simple calculation to implement it in your client software so they don’t could reverse engineer your serial generator code.

full_keycheck

This makes the full key check you should use this script only in your server software.

 

Serials from 1 to 20 :

 

This is a little test to make the client software in JavaScript:

but it only haves a different between 0 and 200 …. so its more try and error.

 

 

One thought on “Perl serial key generator”

Leave a Reply

Your email address will not be published.

1 × three =