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.
print "$_ -> ",serial($_)." - ".quick_keycheck(serial($_))." - ".full_keycheck(serial($_)).$/ for(0..20);
sub serial {
my $k1 = $_[0]//int(rand(999999));
my $k2 = 0;
my $k3 = 0;
my $k4 = 0;
my $k5 = 0;
my $k6 = 0;
my $k7 = 0;
my $k8 = 0;
my $k9 = 0;
my $quicksum = "";
my $cache = $k1;
#calculate
$k2 = digit_sum($cache);
$cache *= $cache*$k2;
$k3 = digit_sum($cache);
$k2 = substr( int($k1*2+$k2*17), 0, 6 );
$k3 = substr( int($k1*2+$k2*13), 0, 6 );
$k4 = substr( int($k1*2+$k2*11+$k3), 0, 6 );
$k5 = substr( int($k1*3+$k2*7+$k3*$k4), 0, 6 );
$k6 = substr( int($k1*4+$k2*5+$k3*$k4+$k5), 0, 6 );
$k7 = substr( int($k1*5+$k2*3+$k3*$k4+$k5*$k6), 0, 6 );
$k8 = substr( int($k1*6+$k2*2+$k3*$k4+$k5*$k6+$k7), 0, 6 );
$k9 = substr( int($k1*6+$k2*2+$k3*$k4+$k5*$k6+$k7+$k9), 0, 6 );
#shuffle
for(1..3){
$cache = $k2+$k3+$k4+$k5+$k6+$k7+$k8+$k9+($k1)x!!!($cache%2);
$k2 = substr( int($k3*$k8+$k4*$k5+$k6*$k7+($k2%2)+$cache), 1, 7 );
$k3 = substr( int($k4*$k7+$k5*$k6+$k7*$k8+($k3%3)+$cache), 1, 7 );
$k4 = substr( int($k5*$k6+$k6*$k7+$k8*$k2+($k4%5)+$cache), 1, 7 );
$k5 = substr( int($k6*$k5+$k7*$k8+$k2*$k3+($k5%7)+$cache), 1, 7 );
$k6 = substr( int($k7*$k4+$k8*$k2+$k3*$k4+($k6%11)+$cache), 1, 7 );
$k7 = substr( int($k8*$k3+$k2*$k3+$k4*$k5+($k7%13)+$cache), 1, 7 );
$k8 = substr( int($k2*$k2+$k3*$k4+$k5*$k6+($k8%17)+$cache), 1, 7 );
$k9 = substr( int($k1+$cache+digit_sum($k9)+digit_sum($cache)*digit_sum($1)), 0, 6 );
}
#create quicksum
$quicksum = quickcheck($k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9);
#return
return(sprintf('%06s-%06s-%06s-%06s-%06s-%06s-%06s-%06s-%06s-%06s',$k1,$k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9,$quicksum));
}
sub digit_sum {
my $out = 0;
while($_[0] =~ /(.)/g) {$out += $1;}
return($out);
}
sub quick_keycheck {
my ($k1,$k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9,$quicksum) = split("-",$_[0]);
return(quickcheck($k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9) eq $quicksum);
}
sub full_keycheck {
my ($k1,$k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9,$quicksum) = split("-",$_[0]);
if($k1==0){return(0)}
return(serial($k1) eq $_[0]);
}
sub quickcheck {
my ($k2,$k3,$k4,$k5,$k6,$k7,$k8,$k9) = @_;
my $out = 0;
$out += digit_sum($_) for(@_);
for(1..3){
$out += digit_sum($out)+substr(int($k2+$k3+$k4+$k5+$k6+$k7+$k8+$k9), 0, 8 );
}
if($out==0){return(0)}
return(sprintf('%06s',substr($out, 1, 7)));
}
Serials from 1 to 20 :
0 -> 000000-000000-000000-000000-000000-000000-000000-000000-000000-000000 - - 0 1 -> 000001-3998721-7745224-0599396-2052866-2216425-6579748-5182280-312901-6063028 - 1 - 1 2 -> 000002-9388879-1124434-5415065-3373564-8276835-2940278-2216239-295806-9093630 - 1 - 1 3 -> 000003-8136824-2769572-3221522-0237729-3271546-0220234-5907911-286637-2156204 - 1 - 1 4 -> 000004-3076279-6603463-8952898-0437658-4536704-5993699-0569181-331545-1504608 - 1 - 1 5 -> 000005-1975766-4030413-2291740-0469716-2407084-8577044-4270996-402439-3275906 - 1 - 1 6 -> 000006-6013437-5064470-1421661-0737926-5095564-5504051-7121567-341836-3901797 - 1 - 1 7 -> 000007-4968284-8541557-2572685-7292731-6322198-1697878-2764690-199017-0307747 - 1 - 1 8 -> 000008-0771673-4039673-2219286-1344400-6884137-0254807-8815735-326078-3967676 - 1 - 1 9 -> 000009-1784857-2796964-4190696-3833352-3627062-7471493-8810778-326826-8526432 - 1 - 1 10 -> 000010-8454487-5887503-7485665-4249980-7497945-3339953-4741639-564253-2666463 - 1 - 1 11 -> 000011-3822996-4816144-1076432-6210880-6838638-1214082-2273539-295931-9646262 - 1 - 1 12 -> 000012-3105051-5182692-1252777-0574682-3206422-2380572-7976814-420609-2299157 - 1 - 1 13 -> 000013-2497334-3623028-3811689-6380523-4720311-1482726-0164622-368791-9147360 - 1 - 1 14 -> 000014-0258939-4971510-9606881-8702706-4291176-3432311-5172619-222485-0997619 - 1 - 1 15 -> 000015-3144206-6477344-1667938-9924078-1751310-3248974-8070005-289566-0372059 - 1 - 1 16 -> 000016-7893562-1201635-3529485-2735528-9729948-2572572-3166053-346847-3527229 - 1 - 1 17 -> 000017-3685743-3103374-4084623-5118118-0459651-0630184-8613410-483937-8537423 - 1 - 1 18 -> 000018-2601883-2383892-7972378-8424561-1093898-9865097-4990720-264832-1279216 - 1 - 1 19 -> 000019-1294422-8138122-9758807-3694786-1036395-0535036-4923173-259514-8921080 - 1 - 1 20 -> 000020-3731936-0417432-5018774-1448438-3551307-5267837-1166230-395351-2992236 - 1 - 1
This is a little test to make the client software in JavaScript:
<!DOCTYPE html>
<html>
<body>
<script>
function myFunction() {
if(document.getElementById("key").value != ""){
var res = document.getElementById("key").value.split("-");
var out = 0;
for(var i = 1;i <= 8;++i){
out += 1*digit_sum(res[i]);
}
console.log(out);
for(var i = 1;i <= 3;++i){
out +=
1*digit_sum(out)+
1*(((1*res[1]+1*res[2]+1*res[3]+1*res[4]+1*res[5]+1*res[6]+1*res[7]+1*res[8])+"").substring(0,8));
console.log(out);
}
out = (out+"").substring(1,8)
out -= res[9];
if(out == res[9]){
document.getElementById("result").innerHTML = "Key okay!";
return(0);
}
document.getElementById("result").innerHTML =out ;// "Key okay!"
}else{
document.getElementById("result").innerHTML = "Key wrong!"
}
}
function digit_sum (number){
var out = 0;
for (var i = 0; i < number.length; i++) {
out += 1*number[i];
}
return(out);
}
</script>
<body>
<input type="text"id="key" rows="1" cols="50" onchange="myFunction()" onkeyup="myFunction()" placeholder="Your Regex here...">
<h5 id="result"></h5>
</body>
</html>
but it only haves a different between 0 and 200 …. so its more try and error.
Hi, the whole thing is going sound here and ofcourse every one is sharing facts, that’s truly excellent,
keep up writing.