#!/usr/bin/perl -w
use strict;
my $ver =
'0.1'
;
my $filename = (
split
/\\/, $0)[-1];
my $enter_seed = [ 0x17, 0x2E, 0x23, 0xE1, 0xC1, 0x98, 0x45, 0x3A ];
my $perso_seed = [ 0x67, 0x2E, 0xF3, 0xC1, 0xCD, 0xA8, 0x45, 0x9B ];
my $stude_seed = [ 0x16, 0x2E, 0x2E, 0x35, 0xA3, 0x28, 0x75, 0xF2 ];
print
'-'
x 40 .
"\n"
;
print
" Syser 1.9.2 Keygen by godisagirl[XXX]\n"
;
print
'-'
x 40 .
"\n"
;
print
"\nGr3eT!nGs 2 A1l XXXers, jUsT 4 phUn ^_^\n\n"
;
print
'[+] Input register name plz : '
;
my $name = <>;
chomp $name;
$name = lc($name);
foreach my $i ( 1 .. length($name) )
{
my $char = substr( $name, $i - 1, 1 );
foreach my $seed ( $enter_seed, $perso_seed, $stude_seed )
{
foreach my $j ( 1 .. 8 )
{
$seed->[$j-1] ^= unpack
'C'
, $char;
$seed->[-$j] += unpack
'C'
, $char;
}
}
}
print
"[+] ${name}'s enterpise/personal/student key are : \n\n"
;
foreach my $key ( $enter_seed, $perso_seed, $stude_seed )
{
foreach my $s ( @{ $key } )
{
my $a = sprintf
"%02x"
, $s & 0xff;
print $a;
}
print
"\n"
;
}
print
"\n[*] Enjoy it!\n"
;