Keygen per mIRC 6.31

ho sviluppato uno script perl come keygen per mIRC, dalla versione 6.0 in poi

DOWNLOAD MEGAUPLOAD

se scaricate, per favore commentate questo articolo

ecco il sorgente:

@matrice = (11,6,17,12,12,14,5,12,16,10,11,6,14,14,4,11,6,14,14,4,11,9,12,11,10,8,10,10,16,8,4,6,10,12,16,8,10,4,16);
print q {
=========================
Keygen for mIRC 6.31
a Perl script by Oromis92
=========================

};
print “username: “;
$keyuser = <stdin>;
chomp($keyuser);
if (length($keyuser) < 4) {
print “\nAlmost 4 characters!\n”;
print “Press enter to exit.”;
<STDIN>;
exit;
} else {
@keyascii = split //, $keyuser;
for ($x=0;$x<length($keyuser);$x++) {
$keyascii[$x]=ord($keyascii[$x]);
}
for ($cnt1 = 3; $cnt1 < length($keyuser); $cnt1++) {
$primaparte += ($keyascii[$cnt1] * $matrice[$cnt1 – 3]);
}
for ($cnt2 = 3; $cnt2 < length($keyuser); $cnt2++) {
$tmp = $keyascii[$cnt2];
$tmp2 = $keyascii[$cnt2 – 1];
$tmp *= ($tmp2 * $matrice[$cnt2 – 3]);
$secondaparte += $tmp;
}
$key = “$primaparte” . “-” . “$secondaparte”;
print “serial code: $key\n\n”;
print “Press enter to exit.”;
<STDIN>;
exit;
}