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.


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.


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.


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”

  1. Hi, the whole thing is going sound here and ofcourse every one is sharing facts, that’s truly excellent,
    keep up writing.

Leave a Reply

Your email address will not be published.

14 + 12 =