other/getsecure.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper 'Dumper';
$|++;

our %S;
require "../common/supportedgames.pl";
require "../common/auth.pl";

my $gamename = "ut";
my $secure   = "wookie",
my $enctype  = 0;

print Dumper get_validate_string($S{game}->{$gamename}->{key}, $secure, $enctype);