#!/usr/bin/perl -w
# syser192_keygen.pl
# godisagirl @ 2007-07-29 06:58:38
#-------------------------------------------------------------------------------
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";
#-------------------------------------------------------------------------------
# EOF